From cf3f869877c00b57056f7e00e754c7a5737a9149 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 23 Feb 2022 06:19:16 +0100 Subject: [PATCH] make clear that mechanical is always initialized --- src/grid/DAMASK_grid.f90 | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index c5888b99a..c1e89c88a 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -302,21 +302,22 @@ 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) + case (FIELD_THERMAL_ID) initial_conditions => config_load%get('initial_conditions',defaultVal=emptyDict) thermal => initial_conditions%get('thermal',defaultVal=emptyDict) call grid_thermal_spectral_init(thermal%get_asFloat('T')) - case(FIELD_DAMAGE_ID) - call grid_damage_spectral_init + case (FIELD_DAMAGE_ID) + call grid_damage_spectral_init() end select - enddo + end do + + call mechanical_init() - call mechanical_init !-------------------------------------------------------------------------------------------------- ! write header of output file if (worldrank == 0) then