*HEADING
EC38PYDE: DLOAD, FLOW, AND DFLOW FOR PORE PRESSURE ELEMENTS  [C3D8RPH]
*PREPRINT,ECHO=NO
*NODE
*NGEN, NSET=FACE3
*NGEN, NSET=FACE5
*NSET, NSET=FACE1
*NSET, NSET=FACE2
*NSET, NSET=FACE4
*NSET, NSET=FACE6
*NSET,NSET=CORNERS1
*NSET,NSET=CORNERS2
*NSET,NSET=CORNERS3
*NSET,NSET=CORNERS4
*NSET,NSET=CORNERS5
*NSET,NSET=CORNERS6
*NSET,NSET=NALL, GENERATE
*NSET,NSET=CORNERS
*ELEMENT, TYPE=C3D8RPH, ELSET=ALL_ELEMENTS
*SOLID SECTION,MATERIAL=A1, ELSET=ALL_ELEMENTS
*MATERIAL,NAME=A1
*ELASTIC
 1.E8,
*PERMEABILITY,SPECIFIC=1.0
 1.E-5,
*DENSITY
 1.7321,
*AMPLITUDE,NAME=STEP-FUNCTION,TIME=STEP
0.,1.,1.,1.
*INITIAL CONDITIONS,TYPE=RATIO
NALL,1.
*STEP
*SOILS,CONSOLIDATION
*EL PRINT
 LOADS,
*NODE PRINT,TOTALS=YES
 RF,
*NODE PRINT
 POR,
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS, 8
*DLOAD,OP=NEW
1,CENTRIF,100.,0.,2.5,-.5,0.,0.,1.
*END STEP
*STEP
*SOILS, CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, BX, 100.
ALL_ELEMENTS, BY, 100.
ALL_ELEMENTS, BZ, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, GRAV, 100.,1,1,1
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, P1, 100.
ALL_ELEMENTS, P2, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, P3, 100.
ALL_ELEMENTS, P5, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, P4, 100.
ALL_ELEMENTS, P6, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, HP1, 100., 5., 0.
ALL_ELEMENTS, HP2, 100., 5., 0.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, HP3, 300., 5., 0.
ALL_ELEMENTS, HP5, 100., 5., 0.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*DLOAD, OP=NEW
ALL_ELEMENTS, HP4, 100., 5., 0.
ALL_ELEMENTS, HP6, 100., 5., 0.
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS2, 8
*DLOAD, OP=NEW
*FLOW, OP=NEW
** 1, Q1NU, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY,OP=NEW
 NALL, 1,3
 CORNERS1, 8
*FLOW, OP=NEW, AMP=STEP-FUNCTION
ALL_ELEMENTS, Q2, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS5, 8
*FLOW, OP=MOD
ALL_ELEMENTS, Q2, 14.7, 0.
ALL_ELEMENTS, Q3, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS6, 8
*FLOW, OP=NEW
ALL_ELEMENTS, Q4, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS3, 8
*FLOW, OP=NEW
ALL_ELEMENTS, Q5, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS4, 8
*FLOW, OP=NEW
ALL_ELEMENTS, Q6, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS2, 8
*FLOW, OP=NEW
*DFLOW, OP=NEW
** 1, S1NU, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS1, 8
*DFLOW, OP=NEW, AMP=STEP-FUNCTION
ALL_ELEMENTS, S2, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS5, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S3, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS6, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S4, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS3, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S5, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS4, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S6, 3.E-5
*END STEP