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

13
src/grid/DAMASK_grid.f90
View File

@ -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