Changeset 6892
- Timestamp:
- 2016-08-25T16:23:05+02:00 (8 years ago)
- 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 2063 2063 END SUBROUTINE mppstop 2064 2064 2065 SUBROUTINE mppstop_info (info)2066 !!----------------------------------------------------------------------2067 !! *** routine mppstop ***2068 !!2069 !! ** purpose : Stop massively parallel processors method2070 !!2071 !!----------------------------------------------------------------------2072 INTEGER, INTENT(in) :: info2073 !!----------------------------------------------------------------------2074 !2075 CALL mppsync2076 CALL mpi_finalize( info )2077 !2078 END SUBROUTINE mppstop_info2079 2080 2081 2065 SUBROUTINE mpp_comm_free( kcom ) 2082 2066 !!---------------------------------------------------------------------- -
branches/UKMO/dev_r6820_moci_GC3_xios2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r6890 r6892 209 209 CALL cpl_finalize ! end coupling and mpp communications with OASIS 210 210 ELSE 211 IF( lk_mpp ) CALL mppstop _info (nstop)! end mpp communications211 IF( lk_mpp ) CALL mppstop ! end mpp communications 212 212 ENDIF 213 213 #endif
Note: See TracChangeset
for help on using the changeset viewer.