Changeset 12448 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
- Timestamp:
- 2020-02-24T17:39:27+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_spectral_optics/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8058 r12448 62 62 USE lbcnfd ! north fold treatment 63 63 USE in_out_manager ! I/O manager 64 USE mod_oasis ! coupling routines 64 65 65 66 IMPLICIT NONE … … 2023 2024 !!---------------------------------------------------------------------- 2024 2025 ! 2026 #if defined key_oasis3 || defined key_oasis3mct 2027 ! If we're trying to shut down cleanly then we need to consider the fact 2028 ! that this could be part of an MPMD configuration - we don't want to 2029 ! leave other components deadlocked. 2030 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2031 #else 2025 2032 CALL mppsync 2026 2033 CALL mpi_finalize( info ) 2034 #endif 2027 2035 ! 2028 2036 END SUBROUTINE mppstop
Note: See TracChangeset
for help on using the changeset viewer.