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

View File

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