- Timestamp:
- 2017-11-17T12:37:29+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8183_GC_couple_pkg/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r8730 r8731 2406 2406 2407 2407 SUBROUTINE mppstop 2408 2409 USE mod_oasis ! coupling routines 2410 2408 2411 !!---------------------------------------------------------------------- 2409 2412 !! *** routine mppstop *** … … 2415 2418 !!---------------------------------------------------------------------- 2416 2419 ! 2420 2421 #if defined key_oasis3 2422 ! If we're trying to shut down cleanly then we need to consider the fact 2423 ! that this could be part of an MPMD configuration - we don't want to 2424 ! leave other components deadlocked. 2425 2426 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2427 2428 2429 #else 2430 2417 2431 CALL mppsync 2418 2432 CALL mpi_finalize( info ) 2433 #endif 2434 2419 2435 ! 2420 2436 END SUBROUTINE mppstop … … 4333 4349 ENDIF 4334 4350 CALL FLUSH(kout) 4335 STOP 'ctl_opn bad opening'4351 CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 4336 4352 ENDIF 4337 4353 !
Note: See TracChangeset
for help on using the changeset viewer.