Changeset 8669

Timestamp:

2017-11-01T16:14:23+01:00 (6 years ago)

Author:

andmirek

Message:

fix error in iom_set_zoom_domain_attr

File:

• branches/2017/dev_r7864_XIOS_defs/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (1 diff)

branches/2017/dev_r7864_XIOS_defs/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1304 +1304 @@
           IF(PRESENT(ibegin)) CALL xios_set_zoom_domain_attr     ( cdid, ibegin=ibegin)
           IF(PRESENT(jbegin)) CALL xios_set_zoom_domain_attr     ( cdid, jbegin=jbegin)
-          IF(PRESENT(nj)) CALL xios_set_zoom_domain_attr     ( cdid, ni=ni)
+          IF(PRESENT(ni)) CALL xios_set_zoom_domain_attr     ( cdid, ni=ni)
           IF(PRESENT(ni)) CALL xios_set_zoom_domain_attr     ( cdid, nj=nj)
      ENDIF