*HEADING
ONE DIMENSIONAL DESATURATION PROBLEM, COUPLED    
*** UNITS: M, TON, SEC, KN
*NODE,NSET=ALLN
1,0.,0.,0.
3,.1,0.,0.
101,0.,0.,1.
103,.1,0.,1.
1001,0.,-1.,0.
1003,.1,-1.,0.
1101,0.,-1.,1.
1103,.1,-1.,1.
*NGEN,NSET=BOTB
1,3,2
*NGEN,NSET=TOPB
101,103,2
*NFILL,NSET=ALLN
BOTB,TOPB,10,10
*NGEN,NSET=BOTF
1001,1003,2
*NGEN,NSET=TOPF
1101,1103,2
*NFILL,NSET=ALLN
BOTF,TOPF,10,10
*NSET,NSET=LHS,GENERATE
1,101,10
1001,1101,10
*ELEMENT,TYPE=C3D8P,ELSET=BLOCK
1,1,3,13,11,1001,1003,1013,1011
*ELGEN,ELSET=BLOCK
1,10,10,1
*ELSET,ELSET=OUTE
1,3,5,7,9
*SOLID SECTION,ELSET=BLOCK,MATERIAL=CORE
*MATERIAL,NAME=CORE
*ELASTIC
1.3E3,0.
*DENSITY
1.5, 
*POROUS BULK MODULI
 ,2.E6
*PERMEABILITY,SPECIFIC=10.
4.5E-6, 
*PERMEABILITY,TYPE=SATURATION
.666666,.85
1.,1.
*SORPTION
-100.,.8
-10.,.85
-9.5,.9
-9.,.922
-8.,.947
-7.,.961
-6.,.973
-4.,.988
-2.,.999
0.,1.
*SORPTION,TYPE=EXSORPTION
-100.,.8
-10.,.85
-9.5,.9
-9.,.922
-8.,.947
-7.,.961
-6.,.973
-4.,.988
-2.,.999
0.,1.
*INITIAL CONDITIONS,TYPE=SATURATION
ALLN,1.
*NSET,NSET=PORN,GENERATE
1,101,10
3,103,10
1001,1101,10
1003,1103,10
*INITIAL CONDITIONS,TYPE=PORE PRESSURE
PORN,0.
*INITIAL CONDITIONS,TYPE=RATIO
ALLN,.4235
*INITIAL CONDITIONS,TYPE=STRESS,GEOSTATIC
BLOCK,0.,1.,-17.9750615,0.,0.,0.
*EQUATION
2, 
3,8,1.,1,8,-1.
2, 
1003,8,1.,1,8,-1.
2, 
1001,8,1.,1,8,-1.
*BOUNDARY
ALLN,1,2
BOTB,3
BOTF,3
*RESTART,WRITE,FREQUENCY=10
*STEP,INC=1
*GEOSTATIC
1.E-6,1.E-6
*DLOAD
BLOCK,GRAV,10.,0.,0.,-1.
*BOUNDARY
PORN,8,,0.
*NODE PRINT,FREQUENCY=5,NSET=LHS 
U,RF,POR,RVT
*EL PRINT,FREQUENCY=5,ELSET=OUTE
S, 
E, 
SAT,POR,VOIDR
*NODE FILE,FREQUENCY=10,NSET=LHS
U,RF,POR,RVT
*EL FILE,FREQUENCY=10,ELSET=OUTE
S,E
SAT,POR,VOIDR
*OUTPUT,FIELD,VARIABLE=PRESELECT,FREQUENCY=10
*OUTPUT,HISTORY,Frequency=1
*NODE OUTPUT,NSET=LHS
U,RF,POR,RVT
*ELEMENT OUTPUT,ELSET=OUTE
S,E
SAT,POR,VOIDR
*END STEP
*STEP,INC=100
*SOILS,CONSOLIDATION,UTOL=10.
20.,50000.
*BOUNDARY,OP=NEW
1,8,,0.
ALLN,1,2,0.
BOTB,3,,0.
BOTF,3,,0.
*CONTROLS,ANALYSIS=DISCONTINUOUS
*END STEP