- Timestamp:
- 2020-09-28T14:45:35+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r12555 r13531 2060 2060 !! 2061 2061 !!---------------------------------------------------------------------- 2062 INTEGER :: info 2062 INTEGER :: info, ierr 2063 2063 !!---------------------------------------------------------------------- 2064 2064 ! … … 2069 2069 ! leave other components deadlocked. 2070 2070 2071 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2072 2071 IF(lwp) CALL mpi_abort( mpi_comm_world, 1, ierr ) 2072 !CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2073 CALL exit(9) 2073 2074 2074 2075 #else
Note: See TracChangeset
for help on using the changeset viewer.