Skip to content
Snippets Groups Projects
Commit 2970f894 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

add precision for opening the restart file

parent c8f8cb36
No related branches found
No related tags found
No related merge requests found
...@@ -10,6 +10,7 @@ USE grid, ONLY: local_Na,local_Na_offset,local_np,local_np_offset,& ...@@ -10,6 +10,7 @@ USE grid, ONLY: local_Na,local_Na_offset,local_np,local_np_offset,&
USE fields USE fields
USE diagnostics_par USE diagnostics_par
USE time_integration USE time_integration
USE prec_const, ONLY : xp,dp,sp
IMPLICIT NONE IMPLICIT NONE
PUBLIC :: load_moments!, write_restart PUBLIC :: load_moments!, write_restart
...@@ -41,7 +42,11 @@ CONTAINS ...@@ -41,7 +42,11 @@ CONTAINS
WRITE(rstfile,'(a,a1,i2.2,a3)') TRIM(resfile0),'_',job2load,'.h5' WRITE(rstfile,'(a,a1,i2.2,a3)') TRIM(resfile0),'_',job2load,'.h5'
CALL speak("Resume from "//rstfile) CALL speak("Resume from "//rstfile)
! Open file ! Open file
CALL openf(rstfile, fidrst,mpicomm=comm0) IF(xp .EQ. dp) THEN
CALL openf(rstfile, fidrst, mode='r', real_prec='d', mpicomm=comm0)
ELSE
CALL openf(rstfile, fidrst, mode='r', mpicomm=comm0)
ENDIF
! Get the dimensions of the checkpoint moments ! Get the dimensions of the checkpoint moments
CALL getatt(fidrst,"/data/input/model", "Na", Na_cp) CALL getatt(fidrst,"/data/input/model", "Na", Na_cp)
CALL getatt(fidrst,"/data/input/grid" , "Np", Np_cp) CALL getatt(fidrst,"/data/input/grid" , "Np", Np_cp)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment