1 |
jmc |
1.1 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
|
|
#ifdef COMPONENT_MODULE |
5 |
|
|
C *==========================================================* |
6 |
|
|
C | CPL_PARAMS.h |
7 |
|
|
C | o Header file for Coupling component interface |
8 |
|
|
C *==========================================================* |
9 |
|
|
C | this version is specific to 1 component (atmos) |
10 |
|
|
C *==========================================================* |
11 |
|
|
|
12 |
|
|
C-- COMMON /CPL_ATM_PAR_L/: logical parameters |
13 |
|
|
C useImportSST :: True => use the Imported SST from couler |
14 |
|
|
COMMON /LAND_PAR_L/ |
15 |
|
|
& useImportSST |
16 |
|
|
LOGICAL useImportSST |
17 |
|
|
|
18 |
|
|
C-- COMMON /CPL_ATM_PAR_I/: Integer valued parameters |
19 |
|
|
C cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter |
20 |
|
|
COMMON /CPL_ATM_PAR_I/ |
21 |
|
|
& cplSendFrq_iter |
22 |
|
|
INTEGER cplSendFrq_iter |
23 |
|
|
|
24 |
|
|
C-- COMMON /CPL_ATM_PAR_C/: Character valued parameters |
25 |
|
|
c CHARACTER*(MAX_LEN_FNAM) cpl_atmFile |
26 |
|
|
|
27 |
|
|
C-- COMMON /CPL_ATM_PAR_R/: real-type parameters |
28 |
|
|
C cpl_atmSendFrq :: Frequency^-1 for sending data to coupler (s) |
29 |
|
|
c COMMON /CPL_ATM_PAR_R/ |
30 |
|
|
c & cpl_atmSendFrq |
31 |
|
|
|
32 |
|
|
#endif /* COMPONENT_MODULE */ |