Changeset 410 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Nov 22, 2011, 5:07:44 PM (13 years ago)

Author:

acolaitis

Message:

Modified NCDF norm of our files from classic to 64bit offset to support variables indices of more than integer*4 maximum length. This is a priori retrocompatible with classic format. I have tested it, it works for all file outputs, newstart (on classic or 64-bit offset files). One can check the format of his .nc with ncdump -k file.nc

Location:

trunk/LMDZ.MARS/libf/phymars

Files:

• inistats.F (modified) (1 diff)
• physdem1.F (modified) (1 diff)
• writediagfi.F (modified) (1 diff)
• writediagsoil.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/inistats.F

@@ -43 +43 @@
       enddo
 
-      ierr = NF_CREATE("stats.nc",NF_CLOBBER,nid)
+      ierr = NF_CREATE("stats.nc",IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid)
       if (ierr.ne.NF_NOERR) then
          write (*,*) NF_STRERROR(ierr)

trunk/LMDZ.MARS/libf/phymars/physdem1.F

@@ -94 +94 @@
 c  things to store in the physics start file:
 c
-      ierr = NF_CREATE(adjustl(filename),NF_CLOBBER, nid)
+      ierr = NF_CREATE(adjustl(filename),  
+     &      IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid)
       IF (ierr.NE.NF_NOERR) THEN
         WRITE(6,*)'physdem1: Problem creating file ',adjustl(filename)

trunk/LMDZ.MARS/libf/phymars/writediagfi.F

@@ -164 +164 @@
 
          ! Create the NetCDF file
-         ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)
+         ierr = NF_CREATE(fichnom, IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid)
          ! Define the 'Time' dimension
          ierr = nf_def_dim(nid,"Time",NF_UNLIMITED,idim)

trunk/LMDZ.MARS/libf/phymars/writediagsoil.F90

@@ -73 +73 @@
   
   ! Create output NetCDF file
-  ierr=NF_CREATE(filename,NF_CLOBBER,nid)
+  ierr=NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid)
   if (ierr.ne.NF_NOERR) then
     write(*,*)'writediagsoil: Error, failed creating file '//trim(filename)