pkg/atm_compon_interf/CPL_PARAMS.h

a9cdd26a43 Jean*0001 #ifdef COMPONENT_MODULE
                0002 C     *==========================================================*
                0003 C     | CPL_PARAMS.h
                0004 C     | o Header file for Coupling component interface
                0005 C     *==========================================================*
                0006 C     |   this version is specific to 1 component (atmos)
                0007 C     *==========================================================*
                0008
fa4a0a5486 Jean*0009 C--   COMMON /CPL_ATM_SWITCH/: from coupler, control switch
                0010 C                              of optionnally exchanged fields;
                0011 C     cpl_exchange_RunOff :: controls exchange of RunOff fields
                0012 C     cpl_exchange1W_sIce :: controls 1-way exchange of seaice (step fwd in ATM)
                0013 C     cpl_exchange2W_sIce :: controls 2-way exchange of ThSIce variables
                0014 C     cpl_exchange_SaltPl :: controls exchange of Salt-Plume fields
                0015 C     cpl_exchange_DIC    :: controls exchange of DIC variables
                0016       COMMON /CPL_ATM_SWITCH/
                0017      &     cpl_exchange_RunOff,
                0018      &     cpl_exchange1W_sIce, cpl_exchange2W_sIce,
                0019      &     cpl_exchange_SaltPl,
                0020      &     cpl_exchange_DIC
                0021       INTEGER cpl_exchange_RunOff
                0022       INTEGER cpl_exchange1W_sIce
                0023       INTEGER cpl_exchange2W_sIce
                0024       INTEGER cpl_exchange_SaltPl
                0025       INTEGER cpl_exchange_DIC
                0026
a9cdd26a43 Jean*0027 C--   COMMON /CPL_ATM_PAR_L/: logical parameters
1be817fa63 Jean*0028 C     atm_cplSequential  :: use Sequential Coupling (instead of Synchronous)
                0029 C     atm_cplExch_RunOff :: exchange RunOff     fields with coupler
                0030 C     atm_cplExch1W_sIce :: 1-way exchange of seaice fields with coupler
                0031 C     atm_cplExch2W_sIce :: 2-way exchange of ThSIce fields with coupler
                0032 C     atm_cplExch_SaltPl :: exchange Salt-Plume fields with coupler
                0033 C     atm_cplExch_DIC    :: exchange DIC        fields with coupler
bbdc4c9ae5 Jean*0034 C     cpl_oldPickup :: restart from an old pickup (= until checkpoint 59h)
5a2fc21c93 Jean*0035 C     useImportMxlD :: True => use Imported Mix.Layer Detph from coupler
                0036 C     useImportSST  :: True => use the Imported SST from coupler
                0037 C     useImportSSS  :: True => use the Imported SSS from coupler
                0038 C     useImportVsq  :: True => use the Imported Surf. velocity^2
fa4a0a5486 Jean*0039 C     useImportThSIce :: True => use the Imported thSIce state var from coupler
                0040 C     useImportFlxCO2 :: True => use the Imported air-sea CO2 flux from coupler
5a2fc21c93 Jean*0041       COMMON /CPL_ATM_PAR_L/
1be817fa63 Jean*0042      &  atm_cplSequential,
                0043      &  atm_cplExch_RunOff,
                0044      &  atm_cplExch1W_sIce, atm_cplExch2W_sIce, atm_cplExch_SaltPl,
                0045      &  atm_cplExch_DIC,
44ff40f0ae Jean*0046      &  cpl_oldPickup,
4ff1cd5702 Jean*0047      &  useImportMxlD, useImportSST, useImportSSS,
fa4a0a5486 Jean*0048      &  useImportVsq, useImportThSIce, useImportFlxCO2
5a2fc21c93 Jean*0049
1be817fa63 Jean*0050       LOGICAL atm_cplSequential
                0051       LOGICAL atm_cplExch_RunOff
                0052       LOGICAL atm_cplExch1W_sIce
                0053       LOGICAL atm_cplExch2W_sIce
                0054       LOGICAL atm_cplExch_SaltPl
                0055       LOGICAL atm_cplExch_DIC
5a2fc21c93 Jean*0056       LOGICAL cpl_oldPickup
4ff1cd5702 Jean*0057       LOGICAL useImportMxlD, useImportSST, useImportSSS
fa4a0a5486 Jean*0058       LOGICAL useImportVsq, useImportThSIce, useImportFlxCO2
a9cdd26a43 Jean*0059
                0060 C--   COMMON /CPL_ATM_PAR_I/: Integer valued parameters
                0061 C     cplSendFrq_iter :: send data to coupler every "cplSendFrq" iter
0b50a127d4 Jean*0062 C     maxNumberPrint  :: max number of printed Export/Import messages
                0063 C     countPrtExp     :: counter for printed Export message
                0064 C     countPrtImp     :: counter for printed Import message
1be817fa63 Jean*0065 C     cplErrorCount   :: counter for errors in coupling config
a9cdd26a43 Jean*0066       COMMON /CPL_ATM_PAR_I/
0b50a127d4 Jean*0067      &  cplSendFrq_iter,
1be817fa63 Jean*0068      &  maxNumberPrint, countPrtExp, countPrtImp,
                0069      &  cplErrorCount
a9cdd26a43 Jean*0070       INTEGER cplSendFrq_iter
0b50a127d4 Jean*0071       INTEGER maxNumberPrint
                0072       INTEGER countPrtExp
                0073       INTEGER countPrtImp
1be817fa63 Jean*0074       INTEGER cplErrorCount
a9cdd26a43 Jean*0075
                0076 C--   COMMON /CPL_ATM_PAR_C/: Character valued parameters
                0077 c     CHARACTER*(MAX_LEN_FNAM) cpl_atmFile
                0078
                0079 C--   COMMON /CPL_ATM_PAR_R/: real-type parameters
                0080 C     cpl_atmSendFrq  :: Frequency^-1 for sending data to coupler (s)
4ff1cd5702 Jean*0081 c     COMMON /CPL_ATM_PAR_R/
a9cdd26a43 Jean*0082 c    &    cpl_atmSendFrq
                0083
4ff1cd5702 Jean*0084 #endif /* COMPONENT_MODULE */