Changeset 11441


Ignore:
Timestamp:
2019-08-15T18:19:19+02:00 (15 months ago)
Author:
dancopsey
Message:

Make test greater than zero.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_STARTHOUR/NEMOGCM/NEMO/OPA_SRC/step.F90

    r11438 r11441  
    374374      IF( indic < 0        )   THEN 
    375375                               CALL ctl_stop( 'step: indic < 0' ) 
    376                                IF( nn_abort ) CALL dia_wri_state( 'output.abort', kstp ) 
     376                               IF( nn_abort > 0 ) CALL dia_wri_state( 'output.abort', kstp ) 
    377377                               CALL ctl_stop('MPPSTOP', 'NEMO abort from stp') 
    378378      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.