Some incorrect variable names fixed
This commit is contained in:
parent
8609c959df
commit
a5b3fa565f
|
@ -232,16 +232,16 @@ subroutine grid_mech_spectral_polarisation_init
|
|||
|
||||
restartRead: if (restartInc > 0) then
|
||||
write(6,'(/,a,'//IO_intOut(restartInc)//',a)') ' reading more values of increment ', restartInc, ' from file'
|
||||
call HDF5_read(fileHandle,C_volAvg, 'C_volAvg')
|
||||
call HDF5_read(fileHandle,C_volAvgLastInc,'C_volAvgLastInc')
|
||||
call HDF5_read(fileHandle,C_minMaxAvg,'C_ref')
|
||||
call HDF5_closeFile(fileHandle)
|
||||
! fileUnit = IO_open_jobFile_binary('C_volAvg')
|
||||
! read(fileUnit) C_volAvg; close(fileUnit)
|
||||
! fileUnit = IO_open_jobFile_binary('C_volAvgLastInv')
|
||||
! read(fileUnit) C_volAvgLastInc; close(fileUnit)
|
||||
! fileUnit = IO_open_jobFile_binary('C_ref')
|
||||
! read(fileUnit) C_minMaxAvg; close(fileUnit)
|
||||
! call HDF5_read(fileHandle,C_volAvg, 'C_volAvg')
|
||||
! call HDF5_read(fileHandle,C_volAvgLastInc,'C_volAvgLastInc')
|
||||
! call HDF5_read(fileHandle,C_minMaxAvg,'C_ref')
|
||||
! call HDF5_closeFile(fileHandle)
|
||||
fileUnit = IO_open_jobFile_binary('C_volAvg')
|
||||
read(fileUnit) C_volAvg; close(fileUnit)
|
||||
fileUnit = IO_open_jobFile_binary('C_volAvgLastInv')
|
||||
read(fileUnit) C_volAvgLastInc; close(fileUnit)
|
||||
fileUnit = IO_open_jobFile_binary('C_ref')
|
||||
read(fileUnit) C_minMaxAvg; close(fileUnit)
|
||||
endif restartRead
|
||||
|
||||
call Utilities_updateGamma(C_minMaxAvg,.true.)
|
||||
|
@ -386,25 +386,25 @@ subroutine grid_mech_spectral_polarisation_forward(guess,timeinc,timeinc_old,loa
|
|||
fileHandle = HDF5_openFile(trim(getSolverJobName())//trim(rankStr)//'.hdf5','w')
|
||||
|
||||
if (worldrank == 0) then
|
||||
call HDF5_write(fileHandle,C_volAvg, 'C_volAvg')
|
||||
call HDF5_write(fileHandle,C_volAvgLastInc,'C_volAvgLastInc')
|
||||
! call HDF5_write(fileHandle,C_volAvg, 'C_volAvg')
|
||||
! call HDF5_write(fileHandle,C_volAvgLastInc,'C_volAvgLastInc')
|
||||
call HDF5_write(fileHandle,F_aim, 'F_aim')
|
||||
call HDF5_write(fileHandle,F_aimDot, 'F_aimDot')
|
||||
call HDF5_write(fileHandle,F_lastInc, 'F_lastInc')
|
||||
! fileUnit = IO_open_jobFile_binary('C_volAvg','w')
|
||||
! write(fileUnit) C_volAvg; close(fileUnit)
|
||||
! fileUnit = IO_open_jobFile_binary('C_volAvgLastInv','w')
|
||||
! write(fileUnit) C_volAvgLastInc; close(fileUnit)
|
||||
call HDF5_write(fileHandle,F_aim_lastInc, 'F_aim_lastInc')
|
||||
fileUnit = IO_open_jobFile_binary('C_volAvg','w')
|
||||
write(fileUnit) C_volAvg; close(fileUnit)
|
||||
fileUnit = IO_open_jobFile_binary('C_volAvgLastInv','w')
|
||||
write(fileUnit) C_volAvgLastInc; close(fileUnit)
|
||||
! fileUnit = IO_open_jobFile_binary('F_aim','w')
|
||||
! write(fileUnit) F_aim; close(fileUnit)
|
||||
! fileUnit = IO_open_jobFile_binary('F_aim_lastInc','w')
|
||||
! write(fileUnit) F_aim_lastInc; close(fileUnit)
|
||||
! fileUnit = IO_open_jobFile_binary('F_aimDot','w')
|
||||
call HDF5_closeFile(fileHandle)
|
||||
! call HDF5_closeFile(fileHandle)
|
||||
! write(fileUnit) F_aimDot; close(fileUnit)
|
||||
endif
|
||||
|
||||
!write(rankStr,'(a1,i0)')'_',worldrank
|
||||
write(rankStr,'(a1,i0)')'_',worldrank
|
||||
call HDF5_write(fileHandle,F, 'F')
|
||||
call HDF5_write(fileHandle,F_lastInc, 'F_lastInc')
|
||||
call HDF5_write(fileHandle,F_tau, 'F_tau')
|
||||
|
|
Loading…
Reference in New Issue