Changeset 8278 for branches/UKMO
- Timestamp:
- 2017-07-04T17:01:16+02:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r8200 r8278 1118 1118 1119 1119 IF (cdfile_name == "output.abort") THEN 1120 CALL ctl_stop(' STOP', 'NEMO abort from dia_wri_state')1120 CALL ctl_stop('MPPSTOP', 'NEMO abort from dia_wri_state') 1121 1121 END IF 1122 1122 -
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8203 r8278 3902 3902 IF( numevo_ice /= -1 ) CALL FLUSH(numevo_ice) 3903 3903 ! 3904 IF( cd1 == 'MPPSTOP' ) THEN 3905 IF(lwp) WRITE(numout,*) 'E R R O R: Calling mppstop' 3906 CALL mppstop() 3907 ENDIF 3904 3908 IF( cd1 == 'STOP' ) THEN 3905 3909 IF(lwp) WRITE(numout,*) 'huge E-R-R-O-R : immediate stop' -
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/step.F90
r8200 r8278 370 370 CALL ctl_stop( 'step: indic < 0' ) 371 371 CALL dia_wri_state( 'output.abort', kstp ) 372 CALL ctl_stop('STOP','NEMO failure in stp')373 372 ENDIF 374 373 IF( kstp == nit000 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.