pkg/compon_communic/mitcoupler_init.F

C $Header: /u/gcmpack/MITgcm/pkg/compon_communic/mitcoupler_init.F,v 1.3 2013/11/27 21:48:30 jmc Exp $
C $Name:  $

!=======================================================================
      subroutine MITCOUPLER_init( 
     I                      myTypeStr, 
     O                      MPI_COMM_local, msgUnit )
      implicit none

! MPI variables
#include "mpif.h"

! Predefined constants/arrays
#include "CPLR_SIG.h"

! Arguments
      character*(*) myTypeStr
      integer MPI_COMM_local
      integer msgUnit

! Functions

! Local
      logical couplerFlag

!     ------------------------------------------------------------------

! Homogeneous registration phase (every process Bcasts)
!  also open a coupling log file (.clog) with I/O unit: LogUnit
      couplerFlag = .TRUE.
      call MITCPLR_init1( myTypeStr, couplerFlag )
      msgUnit = LogUnit

! Return the communicator for my component
      MPI_COMM_local = MPI_COMM_mylocal

! Heterogeneous registration phase (within component incl. coupler)
      call mitcplr_init2b( myTypeStr )

!     ------------------------------------------------------------------
      return
      end
!=======================================================================
1	C $Header: /u/gcmpack/MITgcm/pkg/compon_communic/mitcoupler_init.F,v 1.3 2013/11/27 21:48:30 jmc Exp $
2	C $Name: $
3
4	!=======================================================================
5	subroutine MITCOUPLER_init(
6	I myTypeStr,
7	O MPI_COMM_local, msgUnit )
8	implicit none
9
10	! MPI variables
11	#include "mpif.h"
12
13	! Predefined constants/arrays
14	#include "CPLR_SIG.h"
15
16	! Arguments
17	character() myTypeStr
18	integer MPI_COMM_local
19	integer msgUnit
20
21	! Functions
22
23	! Local
24	logical couplerFlag
25
26	! ------------------------------------------------------------------
27
28	! Homogeneous registration phase (every process Bcasts)
29	! also open a coupling log file (.clog) with I/O unit: LogUnit
30	couplerFlag = .TRUE.
31	call MITCPLR_init1( myTypeStr, couplerFlag )
32	msgUnit = LogUnit
33
34	! Return the communicator for my component
35	MPI_COMM_local = MPI_COMM_mylocal
36
37	! Heterogeneous registration phase (within component incl. coupler)
38	call mitcplr_init2b( myTypeStr )
39
40	! ------------------------------------------------------------------
41	return
42	end
43	!=======================================================================