Ignore:
Timestamp:
2019-03-15T13:13:07+01:00 (23 months ago)
Author:
jcastill
Message:

Minimal set of changes for coupling order

File:
1 edited

Legend:

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

    r10763 r10764  
    24062406 
    24072407   SUBROUTINE mppstop 
     2408      USE mod_oasis      ! coupling routines 
    24082409      !!---------------------------------------------------------------------- 
    24092410      !!                  ***  routine mppstop  *** 
     
    24152416      !!---------------------------------------------------------------------- 
    24162417      ! 
     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 
    24172424      CALL mppsync 
    24182425      CALL mpi_finalize( info ) 
     2426#endif 
    24192427      ! 
    24202428   END SUBROUTINE mppstop 
     
    43334341         ENDIF 
    43344342         CALL FLUSH(kout)  
    4335          STOP 'ctl_opn bad opening' 
     4343         CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 
    43364344      ENDIF 
    43374345      ! 
Note: See TracChangeset for help on using the changeset viewer.