- Timestamp:
- 2020-04-23T10:57:49+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/r4.0-HEAD_r12713_dan_test_clems_branch/src/OCE/LBC/lib_mpp.F90
r12801 r12803 666 666 667 667 SUBROUTINE mppstop( ld_abort ) 668 669 USE mod_oasis ! coupling routines 670 668 671 !!---------------------------------------------------------------------- 669 672 !! *** routine mppstop *** … … 679 682 IF( PRESENT(ld_abort) ) ll_abort = ld_abort 680 683 ! 684 685 #if defined key_oasis3 686 ! If we're trying to shut down cleanly then we need to consider the fact 687 ! that this could be part of an MPMD configuration - we don't want to 688 ! leave other components deadlocked. 689 690 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 691 692 693 #else 681 694 #if defined key_mpp_mpi 682 695 IF(ll_abort) THEN … … 689 702 IF( ll_abort ) STOP 123 690 703 ! 704 #endif 691 705 END SUBROUTINE mppstop 692 706
Note: See TracChangeset
for help on using the changeset viewer.