pkg/atm_compon_interf/cpl_init.F

C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/cpl_init.F,v 1.2 2009/12/25 19:43:43 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP 0
C !ROUTINE: CPL_INIT

C !INTERFACE:
      SUBROUTINE CPL_INIT

C !DESCRIPTION:
C     *==========================================================*
C     | SUBROUTINE CPL_INIT
C     | o Routine controlling coupler layer initialisation.
C     | - Atmospheric version -
C     *==========================================================*
C     | This version talks to the MIT Coupler. It uses the MIT
C     | Coupler "checkpoint1" library calls.
C     *==========================================================*

C !USES:
      IMPLICIT NONE
C     == Global variables ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "EESUPPORT.h"
#include "ATMIDS.h"

C !INPUT/OUTPUT PARAMETERS:
C     myThid :: Thread number for this instance of the routine
c     INTEGER myThid
CEOP

#ifdef COMPONENT_MODULE
C !LOCAL VARIABLES:
C     msgUnit  :: log-file I/O unit
      INTEGER msgUnit

C--   Initialise connection with coupler
      CALL MITCOMPONENT_INIT(
     I                  atmCompName,
     O                  MPI_COMM_MODEL, msgUnit )
#endif

      RETURN
      END
1	jmc	1.3	C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/cpl_init.F,v 1.2 2009/12/25 19:43:43 jmc Exp $
2	jmc	1.2	C $Name: $
3	jmc	1.1
4			#include "CPP_OPTIONS.h"
5
6	jmc	1.2	CBOP 0
7			C !ROUTINE: CPL_INIT
8
9			C !INTERFACE:
10			SUBROUTINE CPL_INIT
11
12			C !DESCRIPTION:
13	jmc	1.1	C ==========================================================
14	jmc	1.2	C \| SUBROUTINE CPL_INIT
15			C \| o Routine controlling coupler layer initialisation.
16			C \| - Atmospheric version -
17	jmc	1.1	C ==========================================================
18	jmc	1.2	C \| This version talks to the MIT Coupler. It uses the MIT
19			C \| Coupler "checkpoint1" library calls.
20	jmc	1.1	C ==========================================================
21	jmc	1.2
22			C !USES:
23	jmc	1.1	IMPLICIT NONE
24			C == Global variables ==
25			#include "SIZE.h"
26			#include "EEPARAMS.h"
27			#include "EESUPPORT.h"
28			#include "ATMIDS.h"
29
30	jmc	1.2	C !INPUT/OUTPUT PARAMETERS:
31			C myThid :: Thread number for this instance of the routine
32			c INTEGER myThid
33			CEOP
34
35	jmc	1.3	#ifdef COMPONENT_MODULE
36	jmc	1.2	C !LOCAL VARIABLES:
37	jmc	1.3	C msgUnit :: log-file I/O unit
38			INTEGER msgUnit
39	jmc	1.1
40			C-- Initialise connection with coupler
41	jmc	1.3	CALL MITCOMPONENT_INIT(
42			I atmCompName,
43			O MPI_COMM_MODEL, msgUnit )
44	jmc	1.1	#endif
45
46			RETURN
47			END