pkg/atm_ocn_coupler/initialise.F

C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/initialise.F,v 1.4 2013/12/02 21:55:06 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP 0
C !ROUTINE: INITIALISE

C !INTERFACE:
      SUBROUTINE INITIALISE(
     O                       msgUnit )

C !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE INITIALISE
C     | o Routine to initialise coupling component.
C     *==========================================================*
C     | Initialisation involves starting up MPI and then joining
C     | the coupled configuration as a component with the special
C     | name "Coupler". With the present MIT Coupler library
C     | only one process can register with the name "Coupler".
C     | This component is the process responsible for
C     | coordinating the transfer of data between other
C     | components and for mapping data from one components
C     | representation to anothers representation as appropriate.
C     *==========================================================*

C !USES:
      IMPLICIT NONE
C     === GLobal variables ==
#include "CPLIDS.h"

C !INPUT/OUTPUT PARAMETERS:
C     msgUnit          :: log-file I/O unit
      INTEGER msgUnit

C !LOCAL VARIABLES:
C     iErr             :: Error code
C     MPI_COMM_Coupler :: Communicatior used by this component.
C                         Stored internally by the coupling library.
      INTEGER iErr
      INTEGER MPI_COMM_Coupler
CEOP

      CALL MPI_Init(iErr)

C--   Set the running directory (= rank_0 )
      CALL SETDIR( 0 )

C     Register this process as the "coupler" participant. Currently there can
C     only be one coupler participant all others are "component" participants.
      CALL MITCOUPLER_INIT(
     I                      cplCompName,
     O                      MPI_COMM_Coupler, msgUnit )

      CALL CPL_READ_PARAMS( msgUnit )

      CALL SET_RUNOFFMAP( msgUnit )

C--   Initialise Coupler field arrays
      CALL CPL_INIT_ATM_VARS( msgUnit )
      CALL CPL_INIT_OCN_VARS( msgUnit )

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/initialise.F,v 1.4 2013/12/02 21:55:06 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CBOP 0
7	C !ROUTINE: INITIALISE
8
9	C !INTERFACE:
10	SUBROUTINE INITIALISE(
11	O msgUnit )
12
13	C !DESCRIPTION:
14	C ==========================================================
15	C \| SUBROUTINE INITIALISE
16	C \| o Routine to initialise coupling component.
17	C ==========================================================
18	C \| Initialisation involves starting up MPI and then joining
19	C \| the coupled configuration as a component with the special
20	C \| name "Coupler". With the present MIT Coupler library
21	C \| only one process can register with the name "Coupler".
22	C \| This component is the process responsible for
23	C \| coordinating the transfer of data between other
24	C \| components and for mapping data from one components
25	C \| representation to anothers representation as appropriate.
26	C ==========================================================
27
28	C !USES:
29	IMPLICIT NONE
30	C === GLobal variables ==
31	#include "CPLIDS.h"
32
33	C !INPUT/OUTPUT PARAMETERS:
34	C msgUnit :: log-file I/O unit
35	INTEGER msgUnit
36
37	C !LOCAL VARIABLES:
38	C iErr :: Error code
39	C MPI_COMM_Coupler :: Communicatior used by this component.
40	C Stored internally by the coupling library.
41	INTEGER iErr
42	INTEGER MPI_COMM_Coupler
43	CEOP
44
45	CALL MPI_Init(iErr)
46
47	C-- Set the running directory (= rank_0 )
48	CALL SETDIR( 0 )
49
50	C Register this process as the "coupler" participant. Currently there can
51	C only be one coupler participant all others are "component" participants.
52	CALL MITCOUPLER_INIT(
53	I cplCompName,
54	O MPI_COMM_Coupler, msgUnit )
55
56	CALL CPL_READ_PARAMS( msgUnit )
57
58	CALL SET_RUNOFFMAP( msgUnit )
59
60	C-- Initialise Coupler field arrays
61	CALL CPL_INIT_ATM_VARS( msgUnit )
62	CALL CPL_INIT_OCN_VARS( msgUnit )
63
64	RETURN
65	END