Changeset 9679 for branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2018-05-29T16:37:04+02:00 (6 years ago)

Author:

dancopsey

Message:

Merge in r8183 version of this branch (dev_r8183_GC_couple_pkg [8730:8734])

File:

• branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (1 diff)

branches/UKMO/dev_merge_2017_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -1032 +1032 @@
       ENDIF
 #endif
+
+      IF (cdfile_name == "output.abort") THEN
+         CALL ctl_stop('STOP', 'NEMO abort from dia_wri_state')
+      END IF
+       
       ! 
    END SUBROUTINE dia_wri_state