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