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

Changeset 6892


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.

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

    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      !!---------------------------------------------------------------------- 
  • branches/UKMO/dev_r6820_moci_GC3_xios2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

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