fini
/clear,start
/filnam,press2,1

/PREP7

L=4.0		 ! [m]
B=1.0
H=3.0
T=2              !Eintauchtiefe der Unterkante 
s=5              ! wanddicke in mm !!!!!!!!!!!!!


grav=9.81        !Erdbeschleunigung
rho=1025         !Dichte Wasser
druck=rho*grav   !loadslope

mp,ex,1,2E11
mp,nuxy,1,0.3

et,1,shell181
KEYOPT,1,3,2
r,1,s/1000       !mm ==> m
                   

k,1,0,-T  ,0
k,2,B,-T  ,0
k,3,B,-T+H,0          !(Wasserspiegel immer bei Y = 0)
k,4,0,-T+H,0
k,5,0,-T  ,L
k,6,B,-T  ,L
k,7,B,-T+H,L
k,8,0,-T+H,L

a,1,2,3,4
a,6,5,8,7
a,5,1,4,8
a,2,6,7,3
a,8,4,3,7
a,5,6,2,1

mat,1
type,1
real,1
esize,0.1
amesh,all

!-----------------------------load

SFGRAD,PRES,0,Y,-T,-druck
nsel,s,loc,y,0,-T
SF,ALL,PRES,DRUCK*T

allsel,all

!------------------------------RB
nsel,s,loc,x,0.5*B
D,all,ux,0,,,,ROTY,ROTZ
nsel,s,loc,z,0.5*L
D,all,uz,0,,,,ROTX,ROTY
nsel,s,loc,y,-T+0.5*H
D,all,uy,0,,,,ROTX,ROTZ
allsel,all

/solu
nlgeom,on
nsubst,10,10,4
solve

/POST1  
  
/EFACET,1   
PLNSOL, U,X, 0,1.0
/PSF,PRES,NORM,2,0,1
/REP,FAST