Changeset 410
- Timestamp:
- Nov 22, 2011, 5:07:44 PM (14 years ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 15 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/dyn3d/anl_mcdstats.F
r38 r410 412 412 413 413 ierr = NF_CREATE(trim(adjustl(nomfich))//"_P.nc", 414 & NF_CLOBBER, nout)414 & IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout) 415 415 if (ierr.NE.NF_NOERR) THEN 416 416 write(*,*)' Pb d''ouverture du fichier ' … … 431 431 432 432 ierr = NF_CREATE(trim(adjustl(nomfich))//"_Z.nc", 433 & NF_CLOBBER, nout)433 & IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout) 434 434 IF(ierr.NE.NF_NOERR) THEN 435 435 write(*,*)' Pb d''ouverture du fichier ' -
trunk/LMDZ.MARS/libf/dyn3d/anl_stats-diag.F
r38 r410 403 403 404 404 ierr = NF_CREATE(trim(adjustl(nomfich))//"_P.nc", 405 & NF_CLOBBER, nout)405 & IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout) 406 406 if (ierr.NE.NF_NOERR) THEN 407 407 write(*,*)' Pb d''ouverture du fichier ' … … 422 422 423 423 ierr = NF_CREATE(trim(adjustl(nomfich))//"_Z.nc", 424 & NF_CLOBBER, nout)424 & IOR(NF_CLOBBER,NF_64BIT_OFFSET), nout) 425 425 IF(ierr.NE.NF_NOERR) THEN 426 426 write(*,*)' Pb d''ouverture du fichier ' -
trunk/LMDZ.MARS/libf/dyn3d/dynredem.F
r38 r410 111 111 c Creation du fichier: 112 112 c 113 ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)113 ierr = NF_CREATE(fichnom, IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid) 114 114 IF (ierr.NE.NF_NOERR) THEN 115 115 WRITE(6,*)" Failed creating file "//fichnom -
trunk/LMDZ.MARS/libf/dyn3d/iniav.F
r38 r410 39 39 time0_av=pfrac0 40 40 c 41 ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)41 ierr = NF_CREATE(fichnom, IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid) 42 42 IF (ierr.NE.NF_NOERR) THEN 43 43 WRITE(6,*)" Pb d ouverture du fichier "//fichnom -
trunk/LMDZ.MARS/libf/dyn3d/start2archive.F
r38 r410 281 281 write(*,*)'OK, Could not open file "start_archive.nc"' 282 282 write(*,*)'So let s create a new "start_archive"' 283 ierr = NF_CREATE('start_archive.nc', NF_CLOBBER, nid) 283 ierr = NF_CREATE('start_archive.nc', 284 & IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid) 284 285 call ini_archive(nid,day_ini,phis,ithS,tab_cntrl_fi) 285 286 endif -
trunk/LMDZ.MARS/libf/dyn3d/writediagdyn.F90
r38 r410 63 63 64 64 ! Create output NetCDF file 65 ierr=NF_CREATE(filename, NF_CLOBBER,nid)65 ierr=NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid) 66 66 if (ierr.ne.NF_NOERR) then 67 67 write(*,*)'writediagdyn: Error, failed creating file '//trim(filename) -
trunk/LMDZ.MARS/libf/phymars/inistats.F
r38 r410 43 43 enddo 44 44 45 ierr = NF_CREATE("stats.nc", NF_CLOBBER,nid)45 ierr = NF_CREATE("stats.nc",IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid) 46 46 if (ierr.ne.NF_NOERR) then 47 47 write (*,*) NF_STRERROR(ierr) -
trunk/LMDZ.MARS/libf/phymars/physdem1.F
r224 r410 94 94 c things to store in the physics start file: 95 95 c 96 ierr = NF_CREATE(adjustl(filename),NF_CLOBBER, nid) 96 ierr = NF_CREATE(adjustl(filename), 97 & IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid) 97 98 IF (ierr.NE.NF_NOERR) THEN 98 99 WRITE(6,*)'physdem1: Problem creating file ',adjustl(filename) -
trunk/LMDZ.MARS/libf/phymars/writediagfi.F
r320 r410 164 164 165 165 ! Create the NetCDF file 166 ierr = NF_CREATE(fichnom, NF_CLOBBER, nid)166 ierr = NF_CREATE(fichnom, IOR(NF_CLOBBER,NF_64BIT_OFFSET), nid) 167 167 ! Define the 'Time' dimension 168 168 ierr = nf_def_dim(nid,"Time",NF_UNLIMITED,idim) -
trunk/LMDZ.MARS/libf/phymars/writediagsoil.F90
r38 r410 73 73 74 74 ! Create output NetCDF file 75 ierr=NF_CREATE(filename, NF_CLOBBER,nid)75 ierr=NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nid) 76 76 if (ierr.ne.NF_NOERR) then 77 77 write(*,*)'writediagsoil: Error, failed creating file '//trim(filename) -
trunk/LMDZ.MARS/util/concatnc.F90
r397 r410 24 24 include "netcdf.inc" ! NetCDF definitions 25 25 26 character (len= 50), dimension(1000) :: file26 character (len=80), dimension(1000) :: file 27 27 ! file(): input file(s) names(s) 28 28 character (len=30), dimension(15) :: notconcat … … 626 626 !============================================================================== 627 627 write(*,*) "creating "//trim(adjustl(filename))//'...' 628 ierr = NF_CREATE(filename, NF_CLOBBER,nout)628 ierr = NF_CREATE(filename,IOR(NF_CLOBBER,NF_64BIT_OFFSET),nout) 629 629 ! NB: setting NF_CLOBBER mode means that it's OK to overwrite an existing file 630 630 if (ierr.NE.NF_NOERR) then -
trunk/LMDZ.MARS/util/hrecast.F90
r137 r410 509 509 510 510 ! Create output file 511 ierr=NF_CREATE(outfile, NF_CLOBBER,outfid)511 ierr=NF_CREATE(outfile,IOR(NF_CLOBBER,NF_64BIT_OFFSET),outfid) 512 512 if (ierr.ne.NF_NOERR) then 513 513 write(*,*)"Error: could not create file ",outfile -
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 -
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 -
trunk/LMDZ.MARS/util/zrecast.F90
r360 r410 943 943 944 944 ! Create output file 945 ierr=NF_CREATE(outfile, NF_CLOBBER,outfid)945 ierr=NF_CREATE(outfile,IOR(NF_CLOBBER,NF_64BIT_OFFSET),outfid) 946 946 if (ierr.ne.NF_NOERR) then 947 947 write(*,*)"Error: could not create file ",outfile
Note: See TracChangeset
for help on using the changeset viewer.