pkg/atm_ocn_coupler/OCNVARS.h

128d77e532 Jean*0001 C     *==========================================================*
                0002 C     | OCNVARS.h Declare arrays for holding data on the ocean
                0003 C     |           grid. Arrays may need adding or removing
                0004 C     |           different couplings.
                0005 C     *==========================================================*
                0006
                0007 C     landMask_ocn   :: Atmosphere land mask (=1 : full land grid-point;
                0008 C                       =0 : full ocean grid-point);
df704bd4eb Jean*0009
                0010 C--   fields received from OCN:
128d77e532 Jean*0011 C     OcMxlD_ocn     ::- Ocean mixed-layer depths on ocean grid (m)
                0012 C     SST_ocn        :: Sea surface temperature on ocean grid ( oC).
ba0b047096 Mart*0013 C     SSS_ocn        :: Sea surface salinity on ocean grid (g/kg).
128d77e532 Jean*0014 C     vSq_ocn        :: Sea surface velocity square on ocean grid (m2/s2)
df704bd4eb Jean*0015 C-    optionally received:
128d77e532 Jean*0016 C     fluxCO2_ocn    :: flux of CO2 from ocn->Atm on ocean grid (mol/m2/s)
df704bd4eb Jean*0017
                0018 C--   fields send to OCN:
128d77e532 Jean*0019 C     atmSLPr_ocn    :: Sea Level atmos. pressure on ocean grid (Pa)
                0020 C     HeatFlux_ocn   :: net Heat flux on ocean grid (W/m2, +=upward)
                0021 C     qShortWave_ocn :: net shortwave radiation on ocean grid (W/m2, +=upward)
                0022 C     TauX_ocn       :: Zonal momentum flux on ocean grid ( N/m^2, same
                0023 C                       sign as the wind ; positive wind == westward flow)
                0024 C     TauY_ocn       :: Meridional momentum flux on ocean grid ( N/m^2, same
                0025 C                       sign as the wind ; positive wind == northward flow)
                0026 C     FWFlux_ocn     :: Fresh water flux on ocean grid
                0027 C                       ( kg/m2/s, positive out of ocean).
df704bd4eb Jean*0028 C-    optionally sent:
                0029 C     SaltFlx_ocn    :: salt flux from seaice compon. on ocean grid
128d77e532 Jean*0030 C                       ( g/m2/s, +=upward=leaving the ocean)
df704bd4eb Jean*0031 C     sIceMass_ocn   :: seaice mass  on ocean grid (kg/m2)
                0032 C     saltPlmFlx_ocn :: salt-plume flux for salt_plume pkg
                0033 C     RunOff_ocn     :: Run-Off (kg/m2/s) used for DIC pkg calculations
128d77e532 Jean*0034 C     aCO2_ocn       :: atmos CO2 on ocean grid (parts by volume)
                0035 C     wSpeed_ocn     :: surface windspeed on ocean grid (m/s)
df704bd4eb Jean*0036
                0037 C--   fields used for multiple purpose:
                0038 C     sIceFrac_ocn   :: seaice fraction  on ocean grid
                0039
                0040 C--   fields sent to & received from OCN:
                0041 C     sIceThick_ocn  :: seaice thickness [m]
                0042 C     sIceSnowH_ocn  :: snow thickness over seaice  [m]
                0043 C     sIceQ1_ocn     :: seaice enthalpy of ice layer 1 [J/kg]
                0044 C     sIceQ2_ocn     :: seaice enthalpy of ice layer 2 [J/kg]
7f58e89433 Jean*0045
                0046       COMMON /OCNVARS_R/
128d77e532 Jean*0047      &       landMask_ocn,
7f58e89433 Jean*0048      &       OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_ocn,
4ee86acaaf Jeff*0049      &       fluxCO2_ocn,
7f58e89433 Jean*0050      &       atmSLPr_ocn, HeatFlux_ocn, qShortWave_ocn,
df704bd4eb Jean*0051      &       TauX_ocn, TauY_ocn, FWFlux_ocn,
                0052      &       SaltFlx_ocn, sIceMass_ocn, saltPlmFlx_ocn,
                0053      &       RunOff_ocn, aCO2_ocn, wSpeed_ocn,
                0054      &       sIceFrac_ocn,
                0055      &       sIceThick_ocn, sIceSnowH_ocn, sIceQ1_ocn, sIceQ2_ocn
7f58e89433 Jean*0056
128d77e532 Jean*0057       _RL landMask_ocn   (Nx_ocn,Ny_ocn)
df704bd4eb Jean*0058
7f58e89433 Jean*0059       _RL OcMxlD_ocn     (Nx_ocn,Ny_ocn)
                0060       _RL SST_ocn        (Nx_ocn,Ny_ocn)
                0061       _RL SSS_ocn        (Nx_ocn,Ny_ocn)
                0062       _RL vSq_ocn        (Nx_ocn,Ny_ocn)
4ee86acaaf Jeff*0063       _RL fluxCO2_ocn    (Nx_ocn,Ny_ocn)
df704bd4eb Jean*0064
7f58e89433 Jean*0065       _RL atmSLPr_ocn    (Nx_ocn,Ny_ocn)
                0066       _RL HeatFlux_ocn   (Nx_ocn,Ny_ocn)
                0067       _RL qShortWave_ocn (Nx_ocn,Ny_ocn)
                0068       _RL TauX_ocn       (Nx_ocn,Ny_ocn)
                0069       _RL TauY_ocn       (Nx_ocn,Ny_ocn)
                0070       _RL FWFlux_ocn     (Nx_ocn,Ny_ocn)
df704bd4eb Jean*0071
7f58e89433 Jean*0072       _RL SaltFlx_ocn    (Nx_ocn,Ny_ocn)
                0073       _RL sIceMass_ocn   (Nx_ocn,Ny_ocn)
df704bd4eb Jean*0074       _RL saltPlmFlx_ocn (Nx_ocn,Ny_ocn)
                0075
                0076       _RL RunOff_ocn     (Nx_ocn,Ny_ocn)
4ee86acaaf Jeff*0077       _RL aCO2_ocn       (Nx_ocn,Ny_ocn)
                0078       _RL wSpeed_ocn     (Nx_ocn,Ny_ocn)
df704bd4eb Jean*0079
4ee86acaaf Jeff*0080       _RL sIceFrac_ocn   (Nx_ocn,Ny_ocn)
df704bd4eb Jean*0081       _RL sIceThick_ocn  (Nx_ocn,Ny_ocn)
                0082       _RL sIceSnowH_ocn  (Nx_ocn,Ny_ocn)
                0083       _RL sIceQ1_ocn     (Nx_ocn,Ny_ocn)
                0084       _RL sIceQ2_ocn     (Nx_ocn,Ny_ocn)
                0085
                0086 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|