New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8278 – NEMO

Changeset 8278


Ignore:
Timestamp:
2017-07-04T17:01:16+02:00 (7 years ago)
Author:
frrh
Message:

Updates to stop/error/abort controls following TG's review.

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  
    11181118 
    11191119      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') 
    11211121      END IF 
    11221122        

  • branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r8203 r8278  
    39023902      IF( numevo_ice /= -1 )   CALL FLUSH(numevo_ice) 
    39033903      ! 
     3904      IF( cd1 == 'MPPSTOP' ) THEN 
     3905         IF(lwp) WRITE(numout,*)  'E R R O R: Calling mppstop' 
     3906         CALL mppstop() 
     3907      ENDIF 
    39043908      IF( cd1 == 'STOP' ) THEN 
    39053909         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  
    370370                               CALL ctl_stop( 'step: indic < 0' ) 
    371371                               CALL dia_wri_state( 'output.abort', kstp ) 
    372                                CALL ctl_stop('STOP','NEMO failure in stp') 
    373372      ENDIF 
    374373      IF( kstp == nit000   )   THEN 
Note: See TracChangeset for help on using the changeset viewer.