223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

- added sanity check for temperature tolerance 

- added temperature tolerance in numerics.config
This commit is contained in:
Christoph Kords 2009-07-02 16:37:48 +00:00
parent 1c35103524
commit fe2f3e4d36
3 changed files with 56 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
code/IO.f90
View File

@ -853,6 +853,8 @@ endfunction
msg = 'Non-positive relative maximum value (upper bound) for GIA residual'
case (275)
msg = 'Limit for GIA iteration too small'
case (276)
msg = 'Non-positive relative tolerance for temperature'
case (300)
msg = 'This material can only be used with elements with three direct stress components'
case (500)

1
code/numerics.config
View File

@ -11,6 +11,7 @@ nState 10 # state loop limit
nStress 40 # stress loop limit
subStepMin 1.0e-3 # minimum (relative) size of sub-step allowed during cutback in crystallite
rTol_crystalliteState 1.0e-6 # relative tolerance in crystallite state loop
rTol_crystalliteTemperature 1.0e-6 # relative tolerance in crystallite temperature loop
rTol_crystalliteStress 1.0e-6 # relative tolerance in crystallite stress loop
aTol_crystalliteStress 1.0e-8 # absolute tolerance in crystallite stress loop

6
code/numerics.f90
View File

@ -68,6 +68,7 @@ subroutine numerics_init()
! nStress
! subStepMin
! rTol_crystalliteState
! rTol_crystalliteTemperature
! rTol_crystalliteStress
! aTol_crystalliteStress
! resToler
@ -132,7 +133,7 @@ subroutine numerics_init()
subStepMin = IO_floatValue(line,positions,2)
case ('rtol_crystallitestate')
rTol_crystalliteState = IO_floatValue(line,positions,2)
case ('rtol_crystalliteTemperature')
case ('rtol_crystallitetemperature')
rTol_crystalliteTemperature = IO_floatValue(line,positions,2)
case ('rtol_crystallitestress')
rTol_crystalliteStress = IO_floatValue(line,positions,2)
@ -178,7 +179,7 @@ subroutine numerics_init()
write(6,'(a24,x,i8)') 'NRiterMax: ',NRiterMax
write(6,*)
! sanity check (Temperature check missing!!!!!!!)
! sanity check
if (relevantStrain <= 0.0_pReal) call IO_error(260)
if (iJacoStiffness < 1_pInt) call IO_error(261)
if (iJacoLpresiduum < 1_pInt) call IO_error(262)
@ -189,6 +190,7 @@ subroutine numerics_init()
if (nStress < 1_pInt) call IO_error(267)
if (subStepMin <= 0.0_pReal) call IO_error(268)
if (rTol_crystalliteState <= 0.0_pReal) call IO_error(269)
if (rTol_crystalliteTemperature <= 0.0_pReal) call IO_error(276)
if (rTol_crystalliteStress <= 0.0_pReal) call IO_error(270)
if (aTol_crystalliteStress <= 0.0_pReal) call IO_error(271)
if (resToler <= 0.0_pReal) call IO_error(272)