- Timestamp:
- 2017-06-21T14:27:02+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r7993 r8200 2049 2049 2050 2050 SUBROUTINE mppstop 2051 2052 USE mod_oasis ! coupling routines 2053 2051 2054 !!---------------------------------------------------------------------- 2052 2055 !! *** routine mppstop *** … … 2058 2061 !!---------------------------------------------------------------------- 2059 2062 ! 2063 2064 #if defined key_oasis3 2065 ! If we're trying to shut down cleanly then we need to consider the fact 2066 ! that this could be part of an MPMD configuration - we don't want to 2067 ! leave other components deadlocked. 2068 2069 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2070 2071 2072 #else 2073 2060 2074 CALL mppsync 2061 2075 CALL mpi_finalize( info ) 2076 #endif 2077 2062 2078 ! 2063 2079 END SUBROUTINE mppstop … … 3988 4004 WRITE(kout,*) 3989 4005 ENDIF 3990 STOP 'ctl_opn bad opening'4006 CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 3991 4007 ENDIF 3992 4008
Note: See TracChangeset
for help on using the changeset viewer.