Changeset 80 for trunk


Ignore:
Timestamp:
07/23/13 01:00:46 (11 years ago)
Author:
smasson
Message:

force model to stop properly in case of error found...

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r75 r80  
    28822882      IF( numevo_ice /= -1 )   CALL FLUSH(numevo_ice) 
    28832883      ! 
    2884       IF( cd1 == 'STOP' ) THEN 
    2885          IF(lwp) WRITE(numout,*)  'huge E-R-R-O-R : immediate stop' 
    2886          CALL mppstop() 
    2887       ENDIF 
     2884!!$      IF( cd1 == 'STOP' ) THEN 
     2885!!$         IF(lwp) WRITE(numout,*)  'huge E-R-R-O-R : immediate stop' 
     2886!!$         CALL mppstop() 
     2887!!$      ENDIF 
    28882888      ! 
    28892889   END SUBROUTINE ctl_stop 

  • trunk/NEMOGCM/NEMO/OPA_SRC/step.F90

    r69 r80  
    276276      ! 
    277277#if defined key_iomput 
    278       IF( kstp == nitend )   CALL xios_context_finalize() 
     278      IF( kstp == nitend .OR. indic < 0 )   CALL xios_context_finalize() 
    279279#endif 
    280280      ! 
Note: See TracChangeset for help on using the changeset viewer.