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 6892 for branches/UKMO/dev_r6820_moci_GC3_xios2/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 – NEMO

Ignore:
Timestamp:
2016-08-25T16:23:05+02:00 (8 years ago)
Author:
stephenhaddad
Message:

rolled back changed which attempted to send a meaningful return code.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6891 r6892  
    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_info 
    2079  
    2080  
    20812065   SUBROUTINE mpp_comm_free( kcom ) 
    20822066      !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.