fini
/prep7
*get,typemax,ETYP,,NUM,MAX    ! max defined element type
*get,realmax,RCON,,NUM,MAX    ! max defined real constant
*get,mat_max,MAT,,NUM,MAX     ! max defined material
*get,nodemax,NODE,,NUM,MAX    ! highest numbered node in model
			      ! Create a new higher number for element type, real, and material
newnode=nodemax+1000          ! number for pressure node for HSFLD241
newnumber=typemax+1
*if,realmax,ge,newnumber,then
   newnumber=realmax+1
*endif
*if,mat_max,ge,newnumber,then
   newnumber=mat_max+1
*endif
et,newnumber,HSFLD241         ! 2-D Hydrostatic Fluid Element
keyopt,newnumber,1,0          ! UX, UY, UZ, plus HDSP at pressure node
keyopt,newnumber,5,1          ! Fluid mass calculated based on the volume of the fluid element
keyopt,newnumber,6,1          ! Incompressible

tb,fluid,2,,,,liquid          !geaendert zu Beispiel mp,dens,newnumber,1.0e-15
tbdata,1,0.00208	      !sollte in N/µm^2
tbdata,2,6.4e-4		      !waermeausdehnung
tbdata,3,1.0e-15	      !Dichte kg/µm^3
     			      ! Density of Water, kg/µm^3/1000
		    	      ! man kann mp oder tb für mech eigenschaft nutzen



                              ! Ignoring thermal expansion in this example
                              ! Ignoring TB,FLUID in this example
r,newnumber                   ! Ignoring Reference pressure for compressible gas
type,newnumber
mat,newnumber
real,newnumber 

cmsel,s,innen		      ! Select nodes on interior, Komponente innen
esln                          ! Select elements that touch these nodes (oder NSLL,S,1 ODER esln ODER lsel,s,line,,6,9)
n,newnode,0,0,0               ! Pressure node at 0,0,0 KreisMitte
ESURF,newnode                 ! ESURF HSFLD242 elements over solid element faces
                              !    Extra node "newnode" with ESURF with HSFLD242

d,newnode,ux,0.0    	      !SYMMETRIE BED (NEU)

allsel,all
NEQIT, 50 
fini
/solu                         ! return to solving