- Timestamp:
- 2014-02-04T13:13:54+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90
r3211 r4426 125 125 CALL iom_nf90_check(NF90_DEF_DIM( if90id, 'x', kdompar(1,1) , idmy ), clinfo) 126 126 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 127 CALL iom_nf90_check(NF90_DEF_DIM( if90id, 'z', jpkorig , idmy ), clinfo) 128 128 CALL iom_nf90_check(NF90_DEF_DIM( if90id, 't', NF90_UNLIMITED, idmy ), clinfo) 129 129 ! global attributes … … 574 574 CHARACTER(LEN=*), INTENT(in) :: cdinfo 575 575 !--------------------------------------------------------------------- 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 577 579 END SUBROUTINE iom_nf90_check 578 580
Note: See TracChangeset
for help on using the changeset viewer.