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

arguments are better than public variables

This commit is contained in:
Martin Diehl 2019-10-23 23:06:47 +02:00
parent 67228b46a6
commit 534073358e
4 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/CPFEM2.f90
View File

@ -122,7 +122,9 @@ end subroutine CPFEM_init
!--------------------------------------------------------------------------------------------------
!> @brief forwards data after successful increment
!--------------------------------------------------------------------------------------------------
subroutine CPFEM_age
subroutine CPFEM_age(restartWrite)
logical :: restartWrite
integer :: i, ph, homog, mySource
character(len=32) :: rankStr, PlasticItem, HomogItem

2
src/grid/grid_mech_FEM.f90
View File

@ -325,7 +325,7 @@ subroutine grid_mech_FEM_forward(guess,timeinc,timeinc_old,loadCaseTime,deformat
call HDF5_closeFile(fileHandle)
endif
call CPFEM_age ! age state and kinematics
call CPFEM_age(restartWrite) ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg

2
src/grid/grid_mech_spectral_basic.f90
View File

@ -303,7 +303,7 @@ subroutine grid_mech_spectral_basic_forward(guess,timeinc,timeinc_old,loadCaseTi
call HDF5_closeFile(fileHandle)
endif
call CPFEM_age ! age state and kinematics
call CPFEM_age(restartWrite) ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg

2
src/grid/grid_mech_spectral_polarisation.f90
View File

@ -325,7 +325,7 @@ subroutine grid_mech_spectral_polarisation_forward(guess,timeinc,timeinc_old,loa
call HDF5_closeFile(fileHandle)
endif
call CPFEM_age ! age state and kinematics
call CPFEM_age(restartWrite) ! age state and kinematics
call utilities_updateCoords(F)
C_volAvgLastInc = C_volAvg