Changeset 12465 for NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/DIA/diawri.F90

Timestamp:

2020-02-26T10:27:04+01:00 (4 years ago)

Author:

jcastill

Message:

Changes as in the original branch but updated to vn4.1

File:

• NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/DIA/diawri.F90 (modified) (1 diff)

NEMO/branches/UKMO/r12083_coupling_sequence/src/OCE/DIA/diawri.F90

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