cpl_aim%2Bocn/shared_code/ATMIDS.h

28d277c994 Jean*0001 C     *==========================================================*
                0002 C     | ATMIDS.h Declare symbolic constants holding strings that
                0003 C     |          are used to identify this component and the
                0004 C     |          fields it exchanges with other components.
                0005 C     *==========================================================*
                0006       CHARACTER*(8)  atmCompName
dd2563fa11 Jean*0007       PARAMETER( atmCompName         = 'UV-Atmos'       )
28d277c994 Jean*0008
080e3553b8 Jean*0009       CHARACTER*(13) atmCplParamsName
                0010       PARAMETER( atmCplParamsName    = 'ATM CplParams'  )
                0011       INTEGER    atmParSize
                0012       PARAMETER( atmParSize = 6 )
                0013
                0014 C--   fields sent from OCN to ATM:
dd2563fa11 Jean*0015       CHARACTER*(10) atmMxlDName
                0016       PARAMETER( atmMxlDName         = 'ATM ocMxlD'     )
844edcc456 Jean*0017       CHARACTER*(7)  atmSSTName
dd2563fa11 Jean*0018       PARAMETER( atmSSTName          = 'ATM SST'        )
                0019       CHARACTER*(7)  atmSSSName
                0020       PARAMETER( atmSSSName          = 'ATM SSS'        )
                0021       CHARACTER*(9)  atmSSVsqName
                0022       PARAMETER( atmSSVsqName        = 'ATM SSVsq'      )
080e3553b8 Jean*0023       CHARACTER*(11) atmCO2FluxName
                0024       PARAMETER( atmCO2FluxName      = 'ATM CO2Flux'    )
                0025
                0026 C--   fields that can be sent in both direction:
                0027       CHARACTER*(12) atmSIceFracName
                0028       PARAMETER( atmSIceFracName     = 'ATM sIceFrac'   )
                0029       CHARACTER*(13) atmSIceThickName
                0030       PARAMETER( atmSIceThickName    = 'ATM sIceThick'  )
                0031       CHARACTER*(13) atmSIceSnowName
                0032       PARAMETER( atmSIceSnowName     = 'ATM sIceSnowH'  )
                0033       CHARACTER*(10) atmSIceQ1Name
                0034       PARAMETER( atmSIceQ1Name       = 'ATM sIceQ1'     )
                0035       CHARACTER*(10) atmSIceQ2Name
                0036       PARAMETER( atmSIceQ2Name       = 'ATM sIceQ2'     )
dd2563fa11 Jean*0037
080e3553b8 Jean*0038 C--   fields sent from ATM to OCN:
                0039       CHARACTER*(8)  atmLandName
                0040       PARAMETER( atmLandName         = 'ATM Land'       )
dd2563fa11 Jean*0041       CHARACTER*(8)  atmSLPrName
                0042       PARAMETER( atmSLPrName         = 'ATM SLPr'       )
                0043       CHARACTER*(12) atmHeatFluxName
                0044       PARAMETER( atmHeatFluxName     = 'ATM HeatFlux'   )
                0045       CHARACTER*(14) atmQshortWaveName
                0046       PARAMETER( atmQshortWaveName   = 'ATM Qshortwave' )
844edcc456 Jean*0047       CHARACTER*(8)  atmTauXName
dd2563fa11 Jean*0048       PARAMETER( atmTauXName         = 'ATM tauX'       )
844edcc456 Jean*0049       CHARACTER*(8)  atmTauYName
dd2563fa11 Jean*0050       PARAMETER( atmTauYName         = 'ATM tauY'       )
844edcc456 Jean*0051       CHARACTER*(9) atmEvMPrName
dd2563fa11 Jean*0052       PARAMETER( atmEvMPrName        = 'ATM Ev-Pr'      )
844edcc456 Jean*0053       CHARACTER*(10) atmRunOffName
dd2563fa11 Jean*0054       PARAMETER( atmRunOffName       = 'ATM RunOff'     )
                0055       CHARACTER*(12) atmROEnFxName
                0056       PARAMETER( atmROEnFxName       = 'ATM RO.EnFlx'   )
                0057       CHARACTER*(12) atmSaltFxName
                0058       PARAMETER( atmSaltFxName       = 'ATM SaltFlux'   )
080e3553b8 Jean*0059       CHARACTER*(12) atmSIceMassName
                0060       PARAMETER( atmSIceMassName     = 'ATM sIceMass'   )
                0061       CHARACTER*(14) atmSaltPlmFlxName
                0062       PARAMETER( atmSaltPlmFlxName   = 'ATM SaltPlmFlx' )
28d277c994 Jean*0063       CHARACTER*(10) atmAirCO2Name
                0064       PARAMETER( atmAirCO2Name       = 'ATM AirCO2'     )
080e3553b8 Jean*0065       CHARACTER*(11) atmWindSpdName
                0066       PARAMETER( atmWindSpdName      = 'ATM WindSpd'    )
dd2563fa11 Jean*0067
080e3553b8 Jean*0068 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|