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

not needed

This commit is contained in:
Martin Diehl 2022-02-03 07:58:51 +01:00
parent 5d55392425
commit 2cb3b2cc45
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/phase_thermal.f90
View File

@ -259,9 +259,9 @@ module subroutine thermal_restartWrite(groupHandle,ph)
integer(HID_T), intent(in) :: groupHandle integer(HID_T), intent(in) :: groupHandle
integer, intent(in) :: ph integer, intent(in) :: ph
integer(HID_T) :: new_group
integer :: so integer :: so
do so = 1,thermal_Nsources(ph) do so = 1,thermal_Nsources(ph)
call HDF5_write(thermalState(ph)%p(so)%state,groupHandle,'omega_thermal') call HDF5_write(thermalState(ph)%p(so)%state,groupHandle,'omega_thermal')
enddo enddo
@ -274,9 +274,9 @@ module subroutine thermal_restartRead(groupHandle,ph)
integer(HID_T), intent(in) :: groupHandle integer(HID_T), intent(in) :: groupHandle
integer, intent(in) :: ph integer, intent(in) :: ph
integer(HID_T) :: new_group
integer :: so integer :: so
do so = 1,thermal_Nsources(ph) do so = 1,thermal_Nsources(ph)
call HDF5_read(thermalState(ph)%p(so)%state0,groupHandle,'omega_thermal') call HDF5_read(thermalState(ph)%p(so)%state0,groupHandle,'omega_thermal')
enddo enddo