10 |
C *==========================================================* |
C *==========================================================* |
11 |
|
|
12 |
C-- COMMON /CPL_ATM_PAR_L/: logical parameters |
C-- COMMON /CPL_ATM_PAR_L/: logical parameters |
13 |
C useImportSST :: True => use the Imported SST from couler |
C cpl_earlyExpImpCall :: call coupler early in the time stepping call sequence |
14 |
COMMON /LAND_PAR_L/ |
C cpl_oldPickup :: restart from an old pickup (= until checkpoint 52m_post) |
15 |
& useImportSST |
C useImportMxlD :: True => use Imported Mix.Layer Detph from coupler |
16 |
LOGICAL useImportSST |
C useImportSST :: True => use the Imported SST from coupler |
17 |
|
C useImportSSS :: True => use the Imported SSS from coupler |
18 |
|
C useImportVsq :: True => use the Imported Surf. velocity^2 |
19 |
|
COMMON /CPL_ATM_PAR_L/ |
20 |
|
& cpl_earlyExpImpCall, cpl_oldPickup, |
21 |
|
& useImportMxlD, useImportSST, useImportSSS, useImportVsq |
22 |
|
|
23 |
|
LOGICAL cpl_earlyExpImpCall |
24 |
|
LOGICAL cpl_oldPickup |
25 |
|
LOGICAL useImportMxlD, useImportSST, useImportSSS, useImportVsq |
26 |
|
|
27 |
C-- COMMON /CPL_ATM_PAR_I/: Integer valued parameters |
C-- COMMON /CPL_ATM_PAR_I/: Integer valued parameters |
28 |
C cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter |
C cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter |