Changeset 7896


Ignore:
Timestamp:
2017-04-11T14:04:26+02:00 (3 years ago)
Author:
andmirek
Message:

change in structure

File:
1 edited

Legend:

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

    r7895 r7896  
    108108            ELSE                   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER )  
    109109            ENDIF 
     110 
    110111#if defined key_netcdf4 
    111                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 
    112                CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 
    113                IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER) 
    114                ELSE                   ;   imode = IOR(ihdf5, NF90_NOCLOBBER) 
    115                ENDIF 
    116                CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id ), clinfo) 
     112            IF(lwp) WRITE(numout,*) TRIM(clinfo)//' creating file: '//TRIM(cdname)//' in hdf5 (netcdf4) mode' 
     113            CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 
     114            IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER) 
     115            ELSE                   ;   imode = IOR(ihdf5, NF90_NOCLOBBER) 
     116            ENDIF 
     117            CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id ), clinfo) 
    117118#else 
    118                CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo) 
     119            CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo) 
    119120#endif 
    120121 
Note: See TracChangeset for help on using the changeset viewer.