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

no need to age before writing restart data

This commit is contained in:
Martin Diehl 2019-10-24 13:14:40 +02:00
parent 176f6028cd
commit 71def397d5
3 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/grid/grid_mech_FEM.f90
View File

@ -303,8 +303,7 @@ subroutine grid_mech_FEM_forward(guess,timeinc,timeinc_old,loadCaseTime,deformat
if (cutBack) then if (cutBack) then
C_volAvg = C_volAvgLastInc C_volAvg = C_volAvgLastInc
else else
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
if (restartWrite) then if (restartWrite) then
write(6,'(a)') 'Writing current solver data for restart to file';flush(6) write(6,'(a)') 'Writing current solver data for restart to file';flush(6)
@ -327,6 +326,9 @@ subroutine grid_mech_FEM_forward(guess,timeinc,timeinc_old,loadCaseTime,deformat
call CPFEM_restartWrite call CPFEM_restartWrite
endif endif
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg C_volAvgLastInc = C_volAvg

6
src/grid/grid_mech_spectral_basic.f90
View File

@ -282,8 +282,7 @@ subroutine grid_mech_spectral_basic_forward(guess,timeinc,timeinc_old,loadCaseTi
C_volAvg = C_volAvgLastInc C_volAvg = C_volAvgLastInc
C_minMaxAvg = C_minMaxAvgLastInc C_minMaxAvg = C_minMaxAvgLastInc
else else
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
if (restartWrite) then if (restartWrite) then
write(6,'(a)') 'Writing current solver data for restart to file';flush(6) write(6,'(a)') 'Writing current solver data for restart to file';flush(6)
@ -306,6 +305,9 @@ subroutine grid_mech_spectral_basic_forward(guess,timeinc,timeinc_old,loadCaseTi
call CPFEM_restartWrite call CPFEM_restartWrite
endif endif
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg C_volAvgLastInc = C_volAvg
C_minMaxAvgLastInc = C_minMaxAvg C_minMaxAvgLastInc = C_minMaxAvg

9
src/grid/grid_mech_spectral_polarisation.f90
View File

@ -303,9 +303,7 @@ subroutine grid_mech_spectral_polarisation_forward(guess,timeinc,timeinc_old,loa
C_volAvg = C_volAvgLastInc C_volAvg = C_volAvgLastInc
C_minMaxAvg = C_minMaxAvgLastInc C_minMaxAvg = C_minMaxAvgLastInc
else else
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
if (restartWrite) then if (restartWrite) then
write(6,'(a)') 'Writing current solver data for restart to file';flush(6) write(6,'(a)') 'Writing current solver data for restart to file';flush(6)
@ -327,7 +325,10 @@ subroutine grid_mech_spectral_polarisation_forward(guess,timeinc,timeinc_old,loa
call CPFEM_restartWrite call CPFEM_restartWrite
endif endif
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg C_volAvgLastInc = C_volAvg
C_minMaxAvgLastInc = C_minMaxAvg C_minMaxAvgLastInc = C_minMaxAvg