/[MITgcm]/MITgcm/pkg/atm_compon_interf/cpl_init.F
ViewVC logotype

Contents of /MITgcm/pkg/atm_compon_interf/cpl_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph

Revision 1.2 - (show annotations) (download)
Fri Dec 25 19:43:43 2009 UTC (14 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint64q, checkpoint64p, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint63h, checkpoint63i, checkpoint63j, checkpoint63k, checkpoint63d, checkpoint63e, checkpoint63f, checkpoint63g, checkpoint63a, checkpoint63b, checkpoint63c, checkpoint64, checkpoint63, checkpoint62c, checkpoint62b, checkpoint62a, checkpoint62g, checkpoint62f, checkpoint62e, checkpoint62d, checkpoint62k, checkpoint62j, checkpoint62i, checkpoint62h, checkpoint62o, checkpoint62n, checkpoint62m, checkpoint62l, checkpoint62s, checkpoint62r, checkpoint62q, checkpoint62p, checkpoint62w, checkpoint62v, checkpoint62u, checkpoint62t, checkpoint62z, checkpoint62y, checkpoint62x
Changes since 1.1: +23 -14 lines 
clean-up (remove unused vars)
1 C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/cpl_init.F,v 1.1 2003/12/15 02:49:09 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CBOP 0
7 C !ROUTINE: CPL_INIT
8
9 C !INTERFACE:
10 SUBROUTINE CPL_INIT
11
12 C !DESCRIPTION:
13 C *==========================================================*
14 C | SUBROUTINE CPL_INIT
15 C | o Routine controlling coupler layer initialisation.
16 C | - Atmospheric version -
17 C *==========================================================*
18 C | This version talks to the MIT Coupler. It uses the MIT
19 C | Coupler "checkpoint1" library calls.
20 C *==========================================================*
21
22 C !USES:
23 IMPLICIT NONE
24 C == Global variables ==
25 #include "SIZE.h"
26 #include "EEPARAMS.h"
27 #include "EESUPPORT.h"
28 #include "ATMIDS.h"
29
30 C !INPUT/OUTPUT PARAMETERS:
31 C == Routine arguments ==
32 C myThid :: Thread number for this instance of the routine
33 c INTEGER myThid
34 CEOP
35
36 C !LOCAL VARIABLES:
37 C == Local variables ==
38
39 C-- Initialise connection with coupler
40 #ifdef COMPONENT_MODULE
41 CALL MITCOMPONENT_INIT( atmCompName, MPI_COMM_MODEL )
42 #endif
43
44 RETURN
45 END
  ViewVC Help
Powered by ViewVC 1.1.22