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

make clear that mechanical is always initialized

This commit is contained in:
Martin Diehl 2022-02-23 06:19:16 +01:00
parent e54e7b8513
commit cf3f869877
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/grid/DAMASK_grid.f90
View File

@ -302,7 +302,7 @@ program DAMASK_grid
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! doing initialization depending on active solvers ! doing initialization depending on active solvers
call spectral_Utilities_init call spectral_Utilities_init
do field = 1, nActiveFields do field = 2, nActiveFields
select case (ID(field)) select case (ID(field))
case (FIELD_THERMAL_ID) case (FIELD_THERMAL_ID)
@ -311,12 +311,13 @@ program DAMASK_grid
call grid_thermal_spectral_init(thermal%get_asFloat('T')) call grid_thermal_spectral_init(thermal%get_asFloat('T'))
case (FIELD_DAMAGE_ID) case (FIELD_DAMAGE_ID)
call grid_damage_spectral_init call grid_damage_spectral_init()
end select end select
end do end do
call mechanical_init call mechanical_init()
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! write header of output file ! write header of output file
if (worldrank == 0) then if (worldrank == 0) then