pkg/atm2d/OCNVARS.h

1aa77e172a 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);
                0009 C     OcMxlD_ocn     ::- Ocean mixed-layer depths on ocean grid (m)
                0010 C     SST_ocn        :: Sea surface temperature on ocean grid ( oC).
ba0b047096 Mart*0011 C     SSS_ocn        :: Sea surface salinity on ocean grid (g/kg).
1aa77e172a Jean*0012 C     vSq_ocn        :: Sea surface velocity square on ocean grid (m2/s2)
                0013 C     fluxCO2_ocn    :: flux of CO2 from ocn->Atm on ocean grid (mol/m2/s)
                0014 C     atmSLPr_ocn    :: Sea Level atmos. pressure on ocean grid (Pa)
                0015 C     HeatFlux_ocn   :: net Heat flux on ocean grid (W/m2, +=upward)
                0016 C     qShortWave_ocn :: net shortwave radiation on ocean grid (W/m2, +=upward)
                0017 C     TauX_ocn       :: Zonal momentum flux on ocean grid ( N/m^2, same
                0018 C                       sign as the wind ; positive wind == westward flow)
                0019 C     TauY_ocn       :: Meridional momentum flux on ocean grid ( N/m^2, same
                0020 C                       sign as the wind ; positive wind == northward flow)
                0021 C     FWFlux_ocn     :: Fresh water flux on ocean grid
                0022 C                       ( kg/m2/s, positive out of ocean).
                0023 C     SaltFlx_ocn    :: salt flux from sea-ice compon. on ocean grid
                0024 C                       ( g/m2/s, +=upward=leaving the ocean)
                0025 C     sIceMass_ocn   :: sea-ice mass  on ocean grid (kg/m2)
                0026 C     aCO2_ocn       :: atmos CO2 on ocean grid (parts by volume)
                0027 C     wSpeed_ocn     :: surface windspeed on ocean grid (m/s)
                0028 C     sIceFrac_ocn   :: sea-ice fraction  on ocean grid
09a6f3668a Jeff*0029
                0030       COMMON /OCNVARS_R/
1aa77e172a Jean*0031      &       landMask_ocn,
09a6f3668a Jeff*0032      &       OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_ocn,
0b83645f94 Jeff*0033      &       fluxCO2_ocn,
09a6f3668a Jeff*0034      &       atmSLPr_ocn, HeatFlux_ocn, qShortWave_ocn,
                0035 c    &       qLatent_ocn, qSensible_ocn, qLongWave_ocn,
                0036 c    &       uVelGround_ocn, vVelGround_ocn,
                0037      &       TauX_ocn, TauY_ocn,
                0038      &       FWFlux_ocn,
0b83645f94 Jeff*0039      &       SaltFlx_ocn, sIceMass_ocn,
                0040      &       aCO2_ocn, wSpeed_ocn, sIceFrac_ocn
09a6f3668a Jeff*0041
1aa77e172a Jean*0042       _RL landMask_ocn   (Nx_ocn,Ny_ocn)
09a6f3668a Jeff*0043       _RL OcMxlD_ocn     (Nx_ocn,Ny_ocn)
                0044       _RL SST_ocn        (Nx_ocn,Ny_ocn)
                0045       _RL SSS_ocn        (Nx_ocn,Ny_ocn)
                0046       _RL vSq_ocn        (Nx_ocn,Ny_ocn)
0b83645f94 Jeff*0047       _RL fluxCO2_ocn    (Nx_ocn,Ny_ocn)
09a6f3668a Jeff*0048       _RL atmSLPr_ocn    (Nx_ocn,Ny_ocn)
                0049       _RL HeatFlux_ocn   (Nx_ocn,Ny_ocn)
                0050       _RL qShortWave_ocn (Nx_ocn,Ny_ocn)
                0051 c     _RL qLatent_ocn    (Nx_ocn,Ny_ocn)
                0052 c     _RL qSensible_ocn  (Nx_ocn,Ny_ocn)
                0053 c     _RL qLongWave_ocn  (Nx_ocn,Ny_ocn)
                0054 c     _RL uVelGround_ocn (Nx_ocn,Ny_ocn)
                0055 c     _RL vVelGround_ocn (Nx_ocn,Ny_ocn)
                0056       _RL TauX_ocn       (Nx_ocn,Ny_ocn)
                0057       _RL TauY_ocn       (Nx_ocn,Ny_ocn)
                0058       _RL FWFlux_ocn     (Nx_ocn,Ny_ocn)
                0059       _RL SaltFlx_ocn    (Nx_ocn,Ny_ocn)
                0060       _RL sIceMass_ocn   (Nx_ocn,Ny_ocn)
0b83645f94 Jeff*0061       _RL aCO2_ocn       (Nx_ocn,Ny_ocn)
                0062       _RL wSpeed_ocn     (Nx_ocn,Ny_ocn)
                0063       _RL sIceFrac_ocn   (Nx_ocn,Ny_ocn)