*HEADING
ONE DIMENSIONAL COUPLED DEMAND WETTABILITY, WITH GEL, QUADRATIC ELEMENTS 
*** UNITS: M, SEC, NEWTON
*NODE,NSET=ALLN
1,0.,0.
3,.00508,0.
101,0.,.0508
103,.00508,.0508
*NGEN,NSET=BOT
1,3,1
*NGEN,NSET=TOP
101,103,1
*NFILL,NSET=ALLN
BOT,TOP,20,5
*NSET,NSET=LHS,GENERATE
1,101,5
*NSET,NSET=RHS,GENERATE
3,103,5
*NSET,NSET=PORN,GENERATE
1,101,10
3,103,10
*ELEMENT,TYPE=CPE8RP,ELSET=BLOCK
1,1,3,13,11,2,8,12,6
*ELGEN,ELSET=BLOCK
1,10,10,1
*ELSET,ELSET=OUTE
1,3,5,7,9
********************************************
*ORIENTATION,NAME=RECT
 1.0, 0.0, 0.0,   0.0, 1.0, 0.0
 1, 0.0
*SOLID SECTION,ELSET=BLOCK,MATERIAL=CORE,ORIENT=RECT
.02, 
*MATERIAL,NAME=CORE
*ELASTIC
10000.,0.
*POROUS BULK MODULI
 ,2.E9
*PERMEABILITY,SPECIFIC=10000.
3.7E-4, 
*SORPTION
-100000.,.04
-10000.,.05
-4500.,.1
-3500.,.18
-2000.,.45
-1000.,.91
0.,1.
*SORPTION,TYPE=EXSORPTION
-100000.,.09
-10000.,.1
-8000.,.11
-6000.,.18
-4500.,.33
-3000.,.79
-2000.,.91
0.,1.
*GEL
.0005,.0015,1.E8,500.
*MOISTURE SWELLING
0.,0.
.01,.2
.04,.4
.09,.6
.16,.8
.25,1.
*RATIOS
.5,2.,.5
********************************************
*INITIAL CONDITIONS,TYPE=SATURATION
ALLN,.05
*INITIAL CONDITIONS,TYPE=PORE PRESSURE
ALLN,-10000.
*INITIAL CONDITIONS,TYPE=RATIO
ALLN,5.
*BOUNDARY
BOT,2
ALLN,1
*RESTART,WRITE,FREQUENCY=10
********************************************
**
*STEP
*SOILS,CONSOLIDATION
1.E-7,1.E-7
*DLOAD
10,P3,-500.
*CONTROLS,PARA=FIELD,FIELD=DISP
.01,1.,,1.
*CONTROLS,PARA=FIELD,FIELD=PORE
.01,1.,,1.E-6
*CONTROLS,ANALYSIS=DISCONTINUOUS
*NODE PRINT,FREQUENCY=5,NSET=LHS 
U,RF,POR,RVT
*EL PRINT,FREQUENCY=5,ELSET=OUTE
S,E
SAT,POR,GELVR,VOIDR
*NODE FILE,FREQUENCY=20,NSET=LHS
U,RF,POR,RVT
*EL FILE,FREQUENCY=20,ELSET=OUTE
S,E
SAT,POR,GELVR,VOIDR
*OUTPUT,FIELD, Frequency=100
*NODE OUTPUT,NSET=LHS
 U,POR
*ELEMENT OUTPUT,ELSET=OUTE
 S,SAT,VOIDR,GELVR
*OUTPUT,HISTORY,Frequency=5
*NODE OUTPUT,NSET=LHS
 U,RF,POR,RVT
*ELEMENT OUTPUT,ELSET=OUTE
 S22,POR
*END STEP
********************************************
*STEP,INC=300,NLGEOM
*SOILS,CONSOLIDATION,UTOL=10000.
1.,3000.,,300.
*PRINT, FREQ=10
*BOUNDARY
1,8,,-100.
3,8,,-100.
*END STEP