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 6890 – NEMO

Changeset 6890


Ignore:
Timestamp:
2016-08-25T13:59:40+02:00 (8 years ago)
Author:
stephenhaddad
Message:

updated to exit with error code when "E R R O R" is reported.

Location:
branches/UKMO/dev_r6820_moci_GC3_xios2/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r6476 r6890  
    20632063   END SUBROUTINE mppstop 
    20642064 
     2065   SUBROUTINE mppstop_info (info) 
     2066      !!---------------------------------------------------------------------- 
     2067      !!                  ***  routine mppstop  *** 
     2068      !! 
     2069      !! ** purpose :   Stop massively parallel processors method 
     2070      !! 
     2071      !!---------------------------------------------------------------------- 
     2072      INTEGER, INTENT(in) ::      info 
     2073      !!---------------------------------------------------------------------- 
     2074      ! 
     2075      CALL mppsync 
     2076      CALL mpi_finalize( info ) 
     2077      ! 
     2078   END SUBROUTINE mppstop 
     2079 
    20652080 
    20662081   SUBROUTINE mpp_comm_free( kcom ) 

  • branches/UKMO/dev_r6820_moci_GC3_xios2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r6204 r6890  
    209209         CALL cpl_finalize              ! end coupling and mpp communications with OASIS 
    210210      ELSE 
    211          IF( lk_mpp )   CALL mppstop    ! end mpp communications 
     211         IF( lk_mpp )   CALL mppstop_info (nstop)   ! end mpp communications 
    212212      ENDIF 
    213213#endif 
Note: See TracChangeset for help on using the changeset viewer.