TALK=F;RUN( 1, 1)
************************************************************
Q1 created by VDI menu, Version 2007, Date 26/09/07
CPVNAM=VDI;SPPNAM=Core
************************************************************
Echo DISPLAY / USE settings
************************************************************
IRUNN = 1 ;LIBREF = 501
************************************************************
Group 1. Run Title
TEXT(USP: 2D xy plate in tension )
************************************************************
Group 2. Transience
STEADY = T
************************************************************
Groups 3, 4, 5 Grid Information
* Overall number of cells, RSET(M,NX,NY,NZ,tolerance)
RSET(M,4,4,1,1.000000E-05)
************************************************************
Group 6. Body-Fitted coordinates
************************************************************
Group 7. Variables: STOREd,SOLVEd,NAMEd
ONEPHS = T
* Non-default variable names
* Solved variables list
SOLVE(DISY,DISX)
* Stored variables list
STORE(PRPS,DEN1,ENUL,DVO1,DRH1,EPSX,EPSY,EPSZ)
STORE(STRX,STRY)
STORE(DXT,DYT,DX/T,DY/T)
SAVE7BEGIN
***** SELECT CASENO ******
integer(caseno)
caseno = 1 : z free
caseno = 2 : z fixed
caseno=1
***** CASENO ******
real(CEPSY,CEPSX)
REAL(FY,POISSON,YOUNG)
YOUNG = 1/0.5E-11
POISSON=0.3
FY= -40.0e6 ! H/m^2 = 40 N/mm^2
IF(CASENO.EQ.2) THEN
CEPSX = FY/YOUNG*(1+POISSON)*POISSON
CEPSY = FY/YOUNG*(1-POISSON**2)
ELSE
CEPSX = FY/YOUNG*POISSON
CEPSY = FY/YOUNG
ENDIF
**** CALCULATE analytical solution ***
(STORED VAR DXT IS :CEPSX:*XG)
(STORED VAR DYT IS :CEPSY:*(YVLAST -YG))
(STORED VAR DX/T IS DISX/(DXT+1.e-20))
(STORED VAR DY/T IS DISY/(DYT+1.e-20))
IF(CASENO.EQ.2) THEN
SPEDAT(BOUNDARY,ZCONST,R,1.e20) ! z contraction prevented
ELSE
SPEDAT(BOUNDARY,ZCONST,R,0.0) ! z contraction allowed
ENDIF
SAVE7END
************************************************************
Group 8. Terms & Devices
USP = T ; USPDBG= F
UTCPLT = F ; USPIMB= F
UAUTO = T ; UGTGRD= F
USPVTK = T ; USPTER= F
USCANX = T ; USCANY= T
USCANZ = T
MXLEV = 0 ;MYLEV = 0 ;MZLEV = 0
DOMAT = -1
CELLST = 1; FACEST= 1
MINPRP = -1 ; MAXPRP= 100
UMXLEV = 2 ; UMXCLS= 10000
UNOLAY = 2 ; UIOLEV= 1
UWALEV = 1 ; UGRITR= 2
UMXCRS = 16
USPREL = 7.000000E-01 ; UMNCEL= 1.000000E+00
UDVREL = 1.000000E+00
SPEDAT(SET,USPDBG,PRINTCOEF,L,T)
************************************************************
Group 9. Properties
* Domain material index is 160 signifying:
* NOTSET
SETPRPS(1,160,Q1)
ENUT = 0.000000E+00
DRH1DP = 5.000000E-12
DVO1DT = 1.000000E-05
* List of user-defined materials to be read by EARTH
MATFLG=T;IMAT=3
* Name
*Ind. Dens. Viscos. Spec.heat Conduct. Expans. Compr.
*
160 7800.0 0.3 473.0 43.0 1.0E-5 0.5E-11
*
161 7800.0 0.3 473.0 43.0 1.0E-4 0.5E-11
*
162 3800.0 0.3 473.0 43.0 1.0E-5 0.5E-10
************************************************************
Group 10.Inter-Phase Transfer Processes
************************************************************
Group 11.Initialise Var/Porosity Fields
FIINIT(STRY) = 1.001000E-10 ;FIINIT(STRX) = 1.001000E-10
FIINIT(DISY) = 1.001000E-10 ;FIINIT(DISX) = 1.001000E-10
FIINIT(EPSZ) = 1.001000E-10 ;FIINIT(EPSY) = 1.001000E-10
FIINIT(EPSX) = 1.001000E-10 ;FIINIT(DRH1) = 1.001000E-10
FIINIT(DVO1) = 1.001000E-10 ;FIINIT(ENUL) = 1.001000E-10
FIINIT(DEN1) = 1.001000E-10 ;FIINIT(PRPS) = 1.600000E+02
No PATCHes used for this Group
INIADD = F
************************************************************
Group 12. Convection and diffusion adjustments
No PATCHes used for this Group
************************************************************
Group 13. Boundary & Special Sources
No PATCHes used for this Group
EGWF = T
************************************************************
Echo save-block settings for Group 13
SAVE13BEGIN
(SOURCE DISY at UP is COVAL(1,0)!VOLU)
(SOURCE DISX at AXESZZ is COVAL(1,0)!VOLU)
(SOURCE DISY at FORS01 is COVAL(FIXFLU,:FY:)!VOLU)
SAVE13END
************************************************************
Group 14. Downstream Pressure For PARAB
************************************************************
Group 15. Terminate Sweeps
LSWEEP = 100
RESFAC = 1.000000E-03
************************************************************
Group 16. Terminate Iterations
************************************************************
Group 17. Relaxation
RELAX(DISY,LINRLX, 1.000000E+00)
RELAX(DISX,LINRLX, 1.000000E+00)
************************************************************
Group 18. Limits
************************************************************
Group 19. EARTH Calls To GROUND Station
STRA = T
CSG10 ='q1'
************************************************************
Group 20. Preliminary Printout
************************************************************
Group 21. Print-out of Variables
DISTIL=T
EX(DISY)= 1.200E-05
EX(DISX)= 2.700E-06
EX(DYT )= 1.200E-05
EX(DXT )= 2.700E-06
EX(STRY)= 4.000E+07
EX(STRX)= 6.370E+03
EX(EPSZ)= 6.000E-05
EX(EPSY)= 2.000E-04
EX(EPSX)= 6.000E-05
EX(DX/T)= 9.999E-01
EX(DY/T)= 1.000E+00
************************************************************
Group 22. Monitor Print-Out
IXMON = 3 ;IYMON = 3 ;IZMON = 1
NPRMON = 100000
NPRMNT = 1
************************************************************
Group 23.Field Print-Out & Plot Control
NPRINT = 100000
NXPRIN = 1
NYPRIN = 1
ISWPRF = 1 ;ISWPRL = 100000
No PATCHes used for this Group
************************************************************
Group 24. Dumps For Restarts
GVIEW(P,4.884879E-02,1.988987E-01,9.788017E-01)
GVIEW(UP,-4.999128E-02,9.792304E-01,-1.964908E-01)
> DOM, SIZE, 9.000000E-02, 1.200000E-01, 1.000000E-01
> DOM, MONIT, 5.625000E-02, 7.500000E-02, 5.000000E-02
> DOM, SCALE, 1.000000E+00, 1.000000E+00, 1.000000E+00
> DOM, INCREMENT, 1.000000E-02, 1.000000E-02, 1.000000E-02
> GRID, RSET_X_1, 4, 1.000000E+00
> GRID, RSET_Y_1, 4, 1.000000E+00
> GRID, RSET_Z_1, 1, 1.000000E+00
> OBJ, NAME, UP
> OBJ, POSITION, 0.000000E+00, 1.200000E-01, 0.000000E+00
> OBJ, SIZE, 9.000000E-02, 0.000000E+00, 1.000000E-01
> OBJ, GEOMETRY, cube11
> OBJ, ROTATION24, 1
> OBJ, TYPE, PLATE
> OBJ, NAME, FORS01
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 9.000000E-02, 0.000000E+00, 1.000000E-01
> OBJ, GEOMETRY, cube11
> OBJ, ROTATION24, 1
> OBJ, TYPE, PLATE
> OBJ, NAME, AXESZZ
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 0.000000E+00, 1.200000E-01, 1.000000E-01
> OBJ, GEOMETRY, cube11
> OBJ, ROTATION24, 1
> OBJ, TYPE, PLATE
> OBJ, NAME, BODY
> OBJ, POSITION, 0.000000E+00, 0.000000E+00, 0.000000E+00
> OBJ, SIZE, 9.000000E-02, 1.200000E-01, 1.000000E-01
> OBJ, GEOMETRY, cube14
> OBJ, ROTATION24, 1
> OBJ, TYPE, BLOCKAGE
> OBJ, MATERIAL, 161,NOTSET
************************************************************
STOP