Changeset 5675 for branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90

Timestamp:

2015-08-10T16:39:02+02:00 (9 years ago)

Author:

dancopsey

Message:

Applied clean shutdown code imported from Met Office internal branch ​http://fcm2/projects/NEMO/browser/NEMO/branches/dev/frrh/vn3.5_beta_clean_shutdown

File:

• branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90 (modified) (1 diff)

branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90

@@ -112 +112 @@
     IF( inbsel >  jpk ) THEN
        IF(lwp) WRITE(numout,*)  ' STOP inbsel =',inbsel,' is larger than jpk=',jpk
-       STOP
+       CALL ctl_stop('STOP', 'NEMO aborted from dia_wri')
     ENDIF