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

View File

@ -303,8 +303,7 @@ subroutine grid_mech_FEM_forward(guess,timeinc,timeinc_old,loadCaseTime,deformat
if (cutBack) then
C_volAvg = C_volAvgLastInc
else
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
if (restartWrite) then
write(6,'(a)') 'Writing current solver data for restart to file';flush(6)
@ -328,6 +327,9 @@ subroutine grid_mech_FEM_forward(guess,timeinc,timeinc_old,loadCaseTime,deformat
call CPFEM_restartWrite
endif
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg
F_aimDot = merge(stress_BC%maskFloat*(F_aim-F_aim_lastInc)/timeinc_old, 0.0_pReal, guess)

View File

@ -282,8 +282,7 @@ subroutine grid_mech_spectral_basic_forward(guess,timeinc,timeinc_old,loadCaseTi
C_volAvg = C_volAvgLastInc
C_minMaxAvg = C_minMaxAvgLastInc
else
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
if (restartWrite) then
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
endif
call CPFEM_age ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg
C_minMaxAvgLastInc = C_minMaxAvg

View File

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