Changeset 13531


Ignore:
Timestamp:
2020-09-28T14:45:35+02:00 (5 months ago)
Author:
timgraham
Message:

Change to mppstop to prevent the model hanging when an error occurs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r12555 r13531  
    20602060      !! 
    20612061      !!---------------------------------------------------------------------- 
    2062       INTEGER ::   info 
     2062      INTEGER ::   info, ierr 
    20632063      !!---------------------------------------------------------------------- 
    20642064      ! 
     
    20692069      ! leave other components deadlocked. 
    20702070 
    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) 
    20732074 
    20742075#else 
Note: See TracChangeset for help on using the changeset viewer.