- Timestamp:
- 2019-03-15T13:13:07+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r8395_coupling_sequence/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r10763 r10764 2406 2406 2407 2407 SUBROUTINE mppstop 2408 USE mod_oasis ! coupling routines 2408 2409 !!---------------------------------------------------------------------- 2409 2410 !! *** routine mppstop *** … … 2415 2416 !!---------------------------------------------------------------------- 2416 2417 ! 2418 #if defined key_oasis3 2419 ! If we're trying to shut down cleanly then we need to consider the fact 2420 ! that this could be part of an MPMD configuration - we don't want to 2421 ! leave other components deadlocked. 2422 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2423 #else 2417 2424 CALL mppsync 2418 2425 CALL mpi_finalize( info ) 2426 #endif 2419 2427 ! 2420 2428 END SUBROUTINE mppstop … … 4333 4341 ENDIF 4334 4342 CALL FLUSH(kout) 4335 STOP 'ctl_opn bad opening'4343 CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 4336 4344 ENDIF 4337 4345 !
Note: See TracChangeset
for help on using the changeset viewer.