pkg/ocn_compon_interf/cpl_init.F

6bfee994e4 Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
30541227a6 Jean*0003 CBOP 0
                0004 C !ROUTINE: CPL_INIT
                0005
                0006 C !INTERFACE:
                0007       SUBROUTINE CPL_INIT
                0008
                0009 C !DESCRIPTION:
69e21e3ef0 Jean*0010 C     *==========================================================*
30541227a6 Jean*0011 C     | SUBROUTINE CPL_INIT
                0012 C     | o Routine controlling coupler layer initialisation.
                0013 C     | - Oceanic version -
69e21e3ef0 Jean*0014 C     *==========================================================*
30541227a6 Jean*0015 C     | This version talks to the MIT Coupler. It uses the MIT
                0016 C     | Coupler "checkpoint1" library calls.
69e21e3ef0 Jean*0017 C     *==========================================================*
                0018
30541227a6 Jean*0019 C !USES:
                0020       IMPLICIT NONE
69e21e3ef0 Jean*0021 C     == Global variables ==
                0022 #include "SIZE.h"
                0023 #include "EEPARAMS.h"
                0024 #include "EESUPPORT.h"
                0025 #include "OCNIDS.h"
                0026
30541227a6 Jean*0027 C !INPUT/OUTPUT PARAMETERS:
649e58ac02 Jean*0028 C     myThid   :: Thread number for this instance of the routine
30541227a6 Jean*0029 c     INTEGER myThid
                0030 CEOP
69e21e3ef0 Jean*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
69e21e3ef0 Jean*0036
                0037 C--   Initialise connection with coupler
649e58ac02 Jean*0038       CALL MITCOMPONENT_INIT(
                0039      I                  ocnCompName,
                0040      O                  MPI_COMM_MODEL, msgUnit )
69e21e3ef0 Jean*0041 #endif
                0042
                0043       RETURN
                0044       END