Changeset 410 for trunk/LMDZ.MARS/util/lslin.F90
- Timestamp:
- Nov 22, 2011, 5:07:44 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/util/lslin.F90
r137 r410 615 615 !============================================================================== 616 616 write(*,*) "creating "//trim(adjustl(filename))//'...' 617 ierr = NF_CREATE(filename, NF_CLOBBER,nout)617 ierr = NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nout) 618 618 ! NB: setting NF_CLOBBER mode means that it's OK to overwrite an existing file 619 619 if (ierr.NE.NF_NOERR) then
Note: See TracChangeset
for help on using the changeset viewer.