New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7898 – NEMO

Changeset 7898


Ignore:
Timestamp:
2017-04-11T15:16:15+02:00 (8 years ago)
Author:
andmirek
Message:

key_netcdf4 when openning existing file for writing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_netcdf4/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

    r7896 r7898  
    8585         IF( ldwrt ) THEN  ! ... in write mode 
    8686            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' open existing file: '//TRIM(cdname)//' in WRITE mode' 
    87             IF( snc4set%luse ) THEN 
     87#if defined key_netcdf4 
    8888               CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id ), clinfo) 
    89             ELSE 
     89#else 
    9090               CALL iom_nf90_check(NF90_OPEN( TRIM(cdname), NF90_WRITE  , if90id, chunksize = ichunk ), clinfo) 
    91             ENDIF 
     91#endif 
    9292            CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                          ), clinfo) 
    9393         ELSE              ! ... in read mode 
     
    108108            ELSE                   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER )  
    109109            ENDIF 
    110  
    111110#if defined key_netcdf4 
    112111            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 
     
    119118            CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo) 
    120119#endif 
    121  
    122120            CALL iom_nf90_check(NF90_SET_FILL( if90id, NF90_NOFILL, idmy                     ), clinfo) 
    123121            ! define dimensions 
Note: See TracChangeset for help on using the changeset viewer.