Changeset 4426


Ignore:
Timestamp:
2014-02-04T13:13:54+01:00 (7 years ago)
Author:
trackstand2
Message:

Corrected jpk to jpkorig when defining z dimension for netcdf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

    r3211 r4426  
    125125            CALL iom_nf90_check(NF90_DEF_DIM( if90id, 'x', kdompar(1,1)  , idmy ), clinfo) 
    126126            CALL iom_nf90_check(NF90_DEF_DIM( if90id, 'y', kdompar(2,1)  , idmy ), clinfo) 
    127             CALL iom_nf90_check(NF90_DEF_DIM( if90id, 'z', jpk           , idmy ), clinfo) 
     127            CALL iom_nf90_check(NF90_DEF_DIM( if90id, 'z', jpkorig       , idmy ), clinfo) 
    128128            CALL iom_nf90_check(NF90_DEF_DIM( if90id, 't', NF90_UNLIMITED, idmy ), clinfo) 
    129129            ! global attributes 
     
    574574      CHARACTER(LEN=*), INTENT(in) :: cdinfo 
    575575      !--------------------------------------------------------------------- 
    576       IF(kstatus /= nf90_noerr)   CALL ctl_stop( 'iom_nf90_check : '//TRIM(nf90_strerror(kstatus)), TRIM(cdinfo) ) 
     576      IF(kstatus /= nf90_noerr)THEN 
     577         CALL ctl_stop( 'iom_nf90_check : '//TRIM(nf90_strerror(kstatus)), TRIM(cdinfo) ) 
     578      END IF 
    577579   END SUBROUTINE iom_nf90_check 
    578580 
Note: See TracChangeset for help on using the changeset viewer.