*HEADING
EC38PRDE: DLOAD, FLOW, AND DFLOW FOR PORE PRESSURE ELEMENTS  [C3D8RP]
*PREPRINT,ECHO=NO
*NODE
 1, 1.
 3, 4.
 7, 1., 5.
 9, 4., 5.
 11, 1., 0., -.5
 13, 4., 0., -.5
 17, 1., 5., -.5
 19, 4., 5., -.5
 21, 1., 0., -1.
 23, 4., 0., -1.
 27, 1., 5., -1.
 29, 4., 5., -1.
*NGEN, NSET=FACE3
 1,3
 7,9
 1,7,3
 3,9,3
*NGEN, NSET=FACE5
 21,23
 27,29
 21,27,3
 23,29,3
*NSET, NSET=FACE1
 1,2,3, 11,13, 21,22,23
*NSET, NSET=FACE2
 7,8,9, 17,19, 27,28,29
*NSET, NSET=FACE4
 3,6,9, 13,19, 23,26,29
*NSET, NSET=FACE6
 1,4,7, 11,17, 21,24,27
*NSET,NSET=CORNERS1
 1,3,21,23
*NSET,NSET=CORNERS2
 7,9,27,29
*NSET,NSET=CORNERS3
 1,3,7,9
*NSET,NSET=CORNERS4
 3,9,23,29
*NSET,NSET=CORNERS5
 21,23,27,29
*NSET,NSET=CORNERS6
 1,7,21,27
*NSET,NSET=NALL, GENERATE
 1,29
*NSET,NSET=CORNERS
 1,3,7,9,21,23,27,29
*ELEMENT, TYPE=C3D8RP, ELSET=ALL_ELEMENTS
 1, 1,3,23,21,7,9,29,27
*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
 1. , 1.
*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
1.,1.
*DLOAD, OP=NEW
ALL_ELEMENTS, BX, 100.
ALL_ELEMENTS, BY, 100.
ALL_ELEMENTS, BZ, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, GRAV, 100.,1,1,1
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, P1, 100.
ALL_ELEMENTS, P2, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, P3, 100.
ALL_ELEMENTS, P5, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, P4, 100.
ALL_ELEMENTS, P6, 100.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, HP1, 100., 5., 0.
ALL_ELEMENTS, HP2, 100., 5., 0.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, HP3, 300., 5., 0.
ALL_ELEMENTS, HP5, 100., 5., 0.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*DLOAD, OP=NEW
ALL_ELEMENTS, HP4, 100., 5., 0.
ALL_ELEMENTS, HP6, 100., 5., 0.
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*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
 1., 1.
*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
 1., 1.
*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
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS6, 8
*FLOW, OP=NEW
ALL_ELEMENTS, Q4, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS3, 8
*FLOW, OP=NEW
ALL_ELEMENTS, Q5, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS4, 8
*FLOW, OP=NEW
ALL_ELEMENTS, Q6, 14.7, 2.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS2, 8
*FLOW, OP=NEW
*DFLOW, OP=NEW
** 1, S1NU, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*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
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS5, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S3, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS6, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S4, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS3, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S5, 3.E-5
*END STEP
*STEP
*SOILS,CONSOLIDATION
 1., 1.
*BOUNDARY, OP=NEW
 NALL, 1,3
 CORNERS4, 8
*DFLOW, OP=NEW
ALL_ELEMENTS, S6, 3.E-5
*END STEP