source: lmdz_wrf/WRFV3/external/atm_ocn/mpi_more.F @ 1

Last change on this file since 1 was 1, checked in by lfita, 10 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 424 bytes
Line 
1      SUBROUTINE GLOB_ABORT(ie,s,rc)
2#if defined( DM_PARALLEL )
3      implicit none
4      include 'mpif.h'
5      integer rc,ie,ierr
6      character*(*) s
7      if (ie.ne.0) then
8        print*,'GLOB_ABORT: '//s//' ie,rc:',ie,rc
9        if (rc.eq.0) RETURN
10        CALL MPI_ABORT(MPI_COMM_WORLD,rc,ierr)
11      end if
12#endif
13      RETURN
14      END
15!
16!***********************************************************************
17!
Note: See TracBrowser for help on using the repository browser.