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 */ |