pkg/atm_compon_interf/cpl_init.F

3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
a9cdd26a43 Jean*0002
30541227a6 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_INIT
                0005
                0006 C !INTERFACE:
                0007       SUBROUTINE CPL_INIT
                0008
                0009 C !DESCRIPTION:
a9cdd26a43 Jean*0010 C     *==========================================================*
30541227a6 Jean*0011 C     | SUBROUTINE CPL_INIT
                0012 C     | o Routine controlling coupler layer initialisation.
                0013 C     | - Atmospheric version -
a9cdd26a43 Jean*0014 C     *==========================================================*
30541227a6 Jean*0015 C     | This version talks to the MIT Coupler. It uses the MIT
                0016 C     | Coupler "checkpoint1" library calls.
a9cdd26a43 Jean*0017 C     *==========================================================*
                0018
30541227a6 Jean*0019 C !USES:
                0020       IMPLICIT NONE
a9cdd26a43 Jean*0021 C     == Global variables ==
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024 #include "EESUPPORT.h"
                0025 #include "ATMIDS.h"
                0026
30541227a6 Jean*0027 C !INPUT/OUTPUT PARAMETERS:
                0028 C     myThid :: Thread number for this instance of the routine
                0029 c     INTEGER myThid
                0030 CEOP
                0031
649e58ac02 Jean*0032 #ifdef COMPONENT_MODULE
30541227a6 Jean*0033 C !LOCAL VARIABLES:
649e58ac02 Jean*0034 C     msgUnit  :: log-file I/O unit
                0035       INTEGER msgUnit
a9cdd26a43 Jean*0036
                0037 C--   Initialise connection with coupler
649e58ac02 Jean*0038       CALL MITCOMPONENT_INIT(
                0039      I                  atmCompName,
                0040      O                  MPI_COMM_MODEL, msgUnit )
a9cdd26a43 Jean*0041 #endif
                0042
                0043       RETURN
                0044       END