make clear that mechanical is always initialized
This commit is contained in:
parent
e54e7b8513
commit
cf3f869877
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue