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

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/dyn3d

Files:

• anl_mcdstats.F (modified) (2 diffs)
• anl_stats-diag.F (modified) (2 diffs)
• dynredem.F (modified) (1 diff)
• iniav.F (modified) (1 diff)
• start2archive.F (modified) (1 diff)
• writediagdyn.F90 (modified) (1 diff)

trunk/LMDZ.MARS/libf/dyn3d/anl_mcdstats.F

@@ -412 +412 @@
  
           ierr = NF_CREATE(trim(adjustl(nomfich))//"_P.nc",
-     &                     NF_CLOBBER, nout)
+     &                     IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout)
           if (ierr.NE.NF_NOERR) THEN
             write(*,*)' Pb d''ouverture du fichier '
@@ -431 +431 @@
 
           ierr = NF_CREATE(trim(adjustl(nomfich))//"_Z.nc",
-     &                     NF_CLOBBER, nout)
+     &                     IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout)
           IF(ierr.NE.NF_NOERR) THEN
             write(*,*)' Pb d''ouverture du fichier '

trunk/LMDZ.MARS/libf/dyn3d/anl_stats-diag.F

@@ -403 +403 @@
  
           ierr = NF_CREATE(trim(adjustl(nomfich))//"_P.nc",
-     &                     NF_CLOBBER, nout)
+     &                     IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout)
           if (ierr.NE.NF_NOERR) THEN
             write(*,*)' Pb d''ouverture du fichier '
@@ -422 +422 @@
 
           ierr = NF_CREATE(trim(adjustl(nomfich))//"_Z.nc",
-     &                     NF_CLOBBER, nout)
+     &                     IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout)
           IF(ierr.NE.NF_NOERR) THEN
             write(*,*)' Pb d''ouverture du fichier '

trunk/LMDZ.MARS/libf/dyn3d/dynredem.F

@@ -111 +111 @@
 c Creation du fichier:
 c
-      ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)
+      ierr = NF_CREATE(fichnom, IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid)
       IF (ierr.NE.NF_NOERR) THEN
          WRITE(6,*)" Failed creating file "//fichnom

trunk/LMDZ.MARS/libf/dyn3d/iniav.F

@@ -39 +39 @@
       time0_av=pfrac0
 c
-      ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)
+      ierr = NF_CREATE(fichnom, IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid)
       IF (ierr.NE.NF_NOERR) THEN
          WRITE(6,*)" Pb d ouverture du fichier "//fichnom

trunk/LMDZ.MARS/libf/dyn3d/start2archive.F

@@ -281 +281 @@
          write(*,*)'OK, Could not open file "start_archive.nc"'
          write(*,*)'So let s create a new "start_archive"'
-         ierr = NF_CREATE('start_archive.nc', NF_CLOBBER, nid)
+         ierr = NF_CREATE('start_archive.nc', 
+     &  IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid)
          call ini_archive(nid,day_ini,phis,ithS,tab_cntrl_fi)
       endif

trunk/LMDZ.MARS/libf/dyn3d/writediagdyn.F90

@@ -63 +63 @@
   
   ! 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(*,*)'writediagdyn: Error, failed creating file '//trim(filename)