Changeset 11441 for branches

Timestamp:

2019-08-15T18:19:19+02:00 (5 years ago)

Author:

dancopsey

Message:

Make test greater than zero.

File:

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

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

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