Changeset 410 for trunk/LMDZ.MARS/util


Ignore:
Timestamp:
Nov 22, 2011, 5:07:44 PM (14 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/util
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/concatnc.F90

    r397 r410  
    2424include "netcdf.inc" ! NetCDF definitions
    2525
    26 character (len=50), dimension(1000) :: file
     26character (len=80), dimension(1000) :: file
    2727! file(): input file(s) names(s)
    2828character (len=30), dimension(15) :: notconcat
    … …  
    626626!==============================================================================
    627627write(*,*) "creating "//trim(adjustl(filename))//'...'
    628 ierr = NF_CREATE(filename,NF_CLOBBER,nout)
     628ierr = NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nout)
    629629! NB: setting NF_CLOBBER mode means that it's OK to overwrite an existing file
    630630if (ierr.NE.NF_NOERR) then

  • trunk/LMDZ.MARS/util/hrecast.F90

    r137 r410  
    509509
    510510! Create output file
    511 ierr=NF_CREATE(outfile,NF_CLOBBER,outfid)
     511ierr=NF_CREATE(outfile,IOR(NF_CLOBBER,NF_64BIT_OFFSET),outfid)
    512512if (ierr.ne.NF_NOERR) then
    513513  write(*,*)"Error: could not create file ",outfile

  • trunk/LMDZ.MARS/util/localtime.F90

    r137 r410  
    611611!==============================================================================
    612612write(*,*) "creating "//trim(adjustl(filename))//'...'
    613 ierr = NF_CREATE(filename,NF_CLOBBER,nout)
     613ierr = NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nout)
    614614! NB: setting NF_CLOBBER mode means that it's OK to overwrite an existing file
    615615if (ierr.NE.NF_NOERR) then

  • trunk/LMDZ.MARS/util/lslin.F90

    r137 r410  
    615615!==============================================================================
    616616write(*,*) "creating "//trim(adjustl(filename))//'...'
    617 ierr = NF_CREATE(filename,NF_CLOBBER,nout)
     617ierr = NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nout)
    618618! NB: setting NF_CLOBBER mode means that it's OK to overwrite an existing file
    619619if (ierr.NE.NF_NOERR) then

  • trunk/LMDZ.MARS/util/zrecast.F90

    r360 r410  
    943943
    944944! Create output file
    945 ierr=NF_CREATE(outfile,NF_CLOBBER,outfid)
     945ierr=NF_CREATE(outfile,IOR(NF_CLOBBER,NF_64BIT_OFFSET),outfid)
    946946if (ierr.ne.NF_NOERR) then
    947947  write(*,*)"Error: could not create file ",outfile
Note: See TracChangeset for help on using the changeset viewer.