Changeset 3803 for LMDZ6/trunk/libf

Timestamp:

Jan 18, 2021, 8:02:21 PM (4 years ago)

Author:

Ehouarn Millour

Message:

Make dynamics restart.nc file be in "64-bit offset" mode to enable generating large files. While at it also enforce this for limit.nc, guide_ins.nc and grilles_gcm.nc generated by the model.
EM

Location:

LMDZ6/trunk/libf

Files:

• dyn3d/dynredem.F90 (modified) (2 diffs)
• dyn3d/guide_mod.F90 (modified) (1 diff)
• dyn3d_common/grilles_gcm_netcdf_sub.F90 (modified) (1 diff)
• dyn3dmem/dynredem_loc.F90 (modified) (2 diffs)
• dyn3dmem/guide_loc_mod.F90 (modified) (1 diff)
• dynphy_lonlat/phylmd/limit_netcdf.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dyn3d/dynredem.F90

@@ -9 +9 @@
   USE infotrac
   USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
-                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER
+                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER,   &
+                    NF90_64BIT_OFFSET
   USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil
   USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, &
@@ -104 +105 @@
 
 !--- File creation
-  CALL err(NF90_CREATE(fichnom,NF90_CLOBBER,nid))
+  CALL err(NF90_CREATE(fichnom,IOR(NF90_CLOBBER,NF90_64BIT_OFFSET),nid))
 
 !--- Some global attributes

LMDZ6/trunk/libf/dyn3d/guide_mod.F90

@@ -1550 +1550 @@
 ! ----------------------------------------------
 ! Ouverture du fichier
-        ierr=NF_CREATE("guide_ins.nc",NF_CLOBBER,nid)
+        ierr=NF_CREATE("guide_ins.nc",IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid)
 ! Definition des dimensions
         ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 

LMDZ6/trunk/libf/dyn3d_common/grilles_gcm_netcdf_sub.F90

@@ -78 +78 @@
   ! CREATION OUTPUT
   ! ouverture fichier netcdf de sortie out
-  status=NF_CREATE('grilles_gcm.nc',NF_CLOBBER,ncid_out)
+  status=NF_CREATE('grilles_gcm.nc',IOR(NF_CLOBBER,NF_64BIT_OFFSET),ncid_out)
   CALL handle_err(status)
   status=NF_DEF_DIM(ncid_out,'lonu',iim+1,out_lonudim)

LMDZ6/trunk/libf/dyn3dmem/dynredem_loc.F90

@@ -11 +11 @@
   USE infotrac
   USE netcdf, ONLY: NF90_CREATE, NF90_DEF_DIM, NF90_INQ_VARID, NF90_GLOBAL,    &
-                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER
+                    NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER,   &
+                    NF90_64BIT_OFFSET
   USE dynredem_mod, ONLY: cre_var, put_var, err, modname, fil
   USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, &
@@ -110 +111 @@
 
 !--- File creation
-  CALL err(NF90_CREATE(fichnom,NF90_CLOBBER,nid))
+  CALL err(NF90_CREATE(fichnom,IOR(NF90_CLOBBER,NF90_64BIT_OFFSET),nid))
 
 !--- Some global attributes

LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90

@@ -2198 +2198 @@
 ! ----------------------------------------------
 ! Ouverture du fichier
-        ierr=NF_CREATE("guide_ins.nc",NF_CLOBBER,nid)
+        ierr=NF_CREATE("guide_ins.nc",IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid)
 ! Definition des dimensions
         ierr=NF_DEF_DIM(nid,"LONU",iip1,id_lonu) 

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/limit_netcdf.F90

@@ -74 +74 @@
                   NF90_DEF_DIM, NF90_DEF_VAR, NF90_PUT_VAR, NF90_PUT_ATT,      &
                   NF90_NOERR,   NF90_NOWRITE, NF90_DOUBLE,  NF90_GLOBAL,       &
-                  NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT
+                  NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT,      &
+                  NF90_64BIT_OFFSET
   USE inter_barxy_m,      ONLY: inter_barxy
   USE netcdf95,           ONLY: nf95_def_var, nf95_put_att, nf95_put_var
@@ -228 +229 @@
 
   !--- File creation
-  CALL ncerr(NF90_CREATE(fnam,NF90_CLOBBER,nid),fnam)
+  CALL ncerr(NF90_CREATE(fnam,IOR(NF90_CLOBBER,NF90_64BIT_OFFSET),nid),fnam)
   CALL ncerr(NF90_PUT_ATT(nid,NF90_GLOBAL,"title","Fichier conditions aux limites"),fnam)
   str='File produced using ce0l executable.'