Changeset 10675 for branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2019-02-13T14:30:01+01:00 (5 years ago)

Author:

timgraham

Message:

Added nn_abort switch in namrun,
Removed call to ctl_stop from dia_wri_state into step
Put if statement around call to dia_wri_state in step

File:

• branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_abort_switch/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -376 +376 @@
       IF( indic < 0        )   THEN
                                CALL ctl_stop( 'step: indic < 0' )
-                               CALL dia_wri_state( 'output.abort', kstp )
+                               IF( nn_abort ) CALL dia_wri_state( 'output.abort', kstp )
+                               CALL ctl_stop('MPPSTOP', 'NEMO abort from stp')
       ENDIF
       IF( kstp == nit000   )   THEN