Changeset 7893


Ignore:
Timestamp:
2017-04-11T13:52:39+02:00 (3 years ago)
Author:
andmirek
Message:

small changes in structure

File:
1 edited

Legend:

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

    r7892 r7893  
    108108            ELSE                   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER )  
    109109            ENDIF 
    110             IF( snc4set%luse ) THEN 
     110#if defined key_netcdf4 
    111111               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) 
    117             ELSE 
    118 #if defined key_netcdf4 
    119112               CALL GET_NF90_SYMBOL("NF90_HDF5", ihdf5) 
    120113               IF( llclobber ) THEN   ;   imode = IOR(ihdf5, NF90_CLOBBER) 
Note: See TracChangeset for help on using the changeset viewer.