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,
6c5a9380b0 Ed H*0055      &  cpl_snapshot_mdsio, cpl_snapshot_mnc,
                0056      &  cpl_timeave_mdsio, cpl_timeave_mnc
31ebb84b18 Jean*0057
                0058       LOGICAL ocn_cplSequential
                0059       LOGICAL ocn_cplExch_RunOff
                0060       LOGICAL ocn_cplExch1W_sIce
                0061       LOGICAL ocn_cplExch2W_sIce
                0062       LOGICAL ocn_cplExch_SaltPl
                0063       LOGICAL ocn_cplExch_DIC
69e21e3ef0 Jean*0064       LOGICAL useImportHFlx
                0065       LOGICAL useImportFW
                0066       LOGICAL useImportTau
e596558d31 Jean*0067       LOGICAL useImportSLP
d06ba90ed2 Jean*0068       LOGICAL useImportRunOff
d4b28e407b Jean*0069       LOGICAL useImportSIce
d06ba90ed2 Jean*0070       LOGICAL useImportThSIce
                0071       LOGICAL useImportSltPlm
                0072       LOGICAL useImportFice
e7c6a47db7 Jeff*0073       LOGICAL useImportCO2
                0074       LOGICAL useImportWSpd
44ff40f0ae Jean*0075       LOGICAL
6c5a9380b0 Ed H*0076      &     cpl_snapshot_mdsio, cpl_snapshot_mnc,
                0077      &     cpl_timeave_mdsio, cpl_timeave_mnc
69e21e3ef0 Jean*0078
31ebb84b18 Jean*0079 C--   COMMON /CPL_OCN_PAR_I/: Integer valued parameters
                0080 C     maxNumberPrint :: max number of printed Export/Import messages
                0081 C     countPrtExp    :: counter for printed Export message
                0082 C     countPrtImp    :: counter for printed Import message
                0083 C     cplErrorCount  :: counter for errors in coupling config
                0084       COMMON /CPL_OCN_PAR_I/
                0085      &  cplErrorCount
                0086       INTEGER cplErrorCount
                0087
69e21e3ef0 Jean*0088 C--   COMMON /CPL_OCN_PAR_C/: Character valued parameters
                0089 c     CHARACTER*(MAX_LEN_FNAM) cpl_ocnFile
                0090
                0091 C--   COMMON /CPL_OCN_PAR_R/: real-type parameters
                0092 C     cpl_taveFreq   :: Frequency^-1 for time-Aver. output (s)
44ff40f0ae Jean*0093       COMMON /CPL_OCN_PAR_R/
69e21e3ef0 Jean*0094      &    cpl_taveFreq
                0095       _RL cpl_taveFreq
                0096
44ff40f0ae Jean*0097 #endif /* COMPONENT_MODULE */
6c5a9380b0 Ed H*0098
                0099 CEH3 ;;; Local Variables: ***
                0100 CEH3 ;;; mode:fortran ***
                0101 CEH3 ;;; End: ***