pkg/ocn_compon_interf/CPL_PARAMS.h

69e21e3ef0 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 (ocean)
                0007 C     *==========================================================*
                0008
d06ba90ed2 Jean*0009 C--   COMMON /CPL_OCN_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_OCN_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
69e21e3ef0 Jean*0027 C--   COMMON /CPL_OCN_PAR_L/: logical parameters
31ebb84b18 Jean*0028 C     ocn_cplSequential  :: use Sequential Coupling (instead of Synchronous)
                0029 C     ocn_cplExch_RunOff :: exchange RunOff     fields with coupler
                0030 C     ocn_cplExch1W_sIce :: 1-way exchange of seaice fields with coupler
                0031 C     ocn_cplExch2W_sIce :: 2-way exchange of ThSIce fields with coupler
                0032 C     ocn_cplExch_SaltPl :: exchange Salt-Plume fields with coupler
                0033 C     ocn_cplExch_DIC    :: exchange DIC        fields with coupler
69e21e3ef0 Jean*0034 C     useImportHFlx :: True => use the Imported HeatFlux from couler
                0035 C     useImportFW   :: True => use the Imported Fresh Water flux fr cpl
                0036 C     useImportTau  :: True => use the Imported Wind-Stress from couler
e7c6a47db7 Jeff*0037 C     useImportSLP  :: True => use the Imported Sea-level Pressure
d06ba90ed2 Jean*0038 C     useImportRunOff :: True => use the Imported RunOff flux from coupler
                0039 C     useImportSIce   :: True => use the Imported Sea-Ice mass as ice-loading
                0040 C     useImportThSIce :: True => use the Imported thSIce state var from coupler
                0041 C     useImportSltPlm :: True => use the Imported Salt-Plume flux from coupler
                0042 C     useImportFice   :: True => use the Imported Seaice fraction (DIC-only)
                0043 C     useImportCO2    :: True => use the Imported atmos. CO2 from coupler
                0044 C     useImportWSpd   :: True => use the Imported surf. Wind speed from coupler
e7c6a47db7 Jeff*0045
e596558d31 Jean*0046       COMMON /CPL_OCN_PAR_L/
31ebb84b18 Jean*0047      &  ocn_cplSequential,
                0048      &  ocn_cplExch_RunOff,
                0049      &  ocn_cplExch1W_sIce, ocn_cplExch2W_sIce, ocn_cplExch_SaltPl,
                0050      &  ocn_cplExch_DIC,
44ff40f0ae Jean*0051      &  useImportHFlx, useImportFW, useImportTau,
d06ba90ed2 Jean*0052      &  useImportSLP,  useImportRunOff,
                0053      &  useImportSIce, useImportThSIce, useImportSltPlm,
                0054      &  useImportFice, useImportCO2, useImportWSpd,
b7411f1a84 Jean*0055      &  cpl_snapshot_mdsio, cpl_snapshot_mnc
31ebb84b18 Jean*0056
                0057       LOGICAL ocn_cplSequential
                0058       LOGICAL ocn_cplExch_RunOff
                0059       LOGICAL ocn_cplExch1W_sIce
                0060       LOGICAL ocn_cplExch2W_sIce
                0061       LOGICAL ocn_cplExch_SaltPl
                0062       LOGICAL ocn_cplExch_DIC
69e21e3ef0 Jean*0063       LOGICAL useImportHFlx
                0064       LOGICAL useImportFW
                0065       LOGICAL useImportTau
e596558d31 Jean*0066       LOGICAL useImportSLP
d06ba90ed2 Jean*0067       LOGICAL useImportRunOff
d4b28e407b Jean*0068       LOGICAL useImportSIce
d06ba90ed2 Jean*0069       LOGICAL useImportThSIce
                0070       LOGICAL useImportSltPlm
                0071       LOGICAL useImportFice
e7c6a47db7 Jeff*0072       LOGICAL useImportCO2
                0073       LOGICAL useImportWSpd
b7411f1a84 Jean*0074       LOGICAL cpl_snapshot_mdsio, cpl_snapshot_mnc
69e21e3ef0 Jean*0075
31ebb84b18 Jean*0076 C--   COMMON /CPL_OCN_PAR_I/: Integer valued parameters
                0077 C     maxNumberPrint :: max number of printed Export/Import messages
                0078 C     countPrtExp    :: counter for printed Export message
                0079 C     countPrtImp    :: counter for printed Import message
                0080 C     cplErrorCount  :: counter for errors in coupling config
                0081       COMMON /CPL_OCN_PAR_I/
                0082      &  cplErrorCount
                0083       INTEGER cplErrorCount
                0084
69e21e3ef0 Jean*0085 C--   COMMON /CPL_OCN_PAR_C/: Character valued parameters
                0086 c     CHARACTER*(MAX_LEN_FNAM) cpl_ocnFile
                0087
44ff40f0ae Jean*0088 #endif /* COMPONENT_MODULE */