Changeset 9536

Timestamp:

2018-05-01T13:37:48+02:00 (7 years ago)

Author:

andmirek

Message:

#1953 and #1962 stop immediately if XIOS restart read/write functionality is used without key_iomput

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

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

@@ -266 +266 @@
    ENDIF
 #else
-        clinfo = 'key_iomput is needed to use XIOS restart read/write functionality'
-        CALL ctl_stop(TRIM(clinfo))
+        clinfo = 'iom_set_rstw_var_active: key_iomput is needed to use XIOS restart read/write functionality'
+        CALL ctl_stop('STOP', TRIM(clinfo))
 #endif
 
@@ -373 +373 @@
    ENDIF
 #else
-        clinfo = 'key_iomput is needed to use XIOS restart read/write functionality'
-        CALL ctl_stop(TRIM(clinfo))
+        clinfo = 'iom_set_rstw_core: key_iomput is needed to use XIOS restart read/write functionality'
+        CALL ctl_stop('STOP', TRIM(clinfo))
 #endif
    END SUBROUTINE iom_set_rstw_core