C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/ATMVARS.h,v 1.8 2016/01/06 00:28:14 jmc Exp $ C $Name: $ C *==========================================================* C | ATMVARS.h Declare arrays for holding data on the atmos. C | grid. Arrays may need adding or removing C | different couplings. C *==========================================================* C landMask_atm :: Atmosphere land mask (=1 : full land grid-point; C =0 : full ocean grid-point); C-- fields send to ATM: C OcMxlD_atm :: Ocean mixed-layer depths on atmos. grid (m) C SST_atm :: Sea surface temperature on atmos. grid ( oC). C SSS_atm :: Sea surface temperature on atmos. grid (psu). C vSq_atm :: Sea surface velocity square on atmos. grid (m2/s2) C- optionally sent: C fluxCO2_atm :: flux of CO2 from ocn->Atm on atmos. grid (mol/m2/s) C-- fields received from ATM: C atmSLPr_atm :: Sea Level atmos. pressure on atmos. grid (Pa) C HeatFlux_atm :: net Heat flux on atmos. grid (W/m2, +=upward) C qShortWave_atm :: net shortwave radiation on atmos. grid (W/m2, +=upward) C TauX_atm :: Zonal momentum flux on atmos. grid ( N/m^2, same C sign as the wind ; positive wind == westward flow) C TauY_atm :: Meridional momentum flux on atmos. grid ( N/m^2, same C sign as the wind ; positive wind == northward flow) C EvMPr_atm :: Fresh water flux (=Evap-Precip) on atmos. grid C ( kg/m2/s, positive into atmosphere). C- optionally received: C RunOff_atm :: Fresh water flux (=RunOff) on atmos. grid C ( kg/m2/s, positive is leaving the land bucket) C ROEnFx_atm :: Energy carried by RunOff on atmos. grid C ( W/m2, +=leaving land bucket) C SaltFlx_atm :: salt flux from seaice compon. on atmos. grid C ( g/m2/s, +=upward=leaving the ocean) C sIceMass_atm :: seaice mass on atmos. grid (kg/m2) C saltPlmFlx_atm :: salt-plume flux on atmos. grid, for salt_plume pkg C aCO2_atm :: atmos CO2 on atmos. grid (parts by volume) C wSpeed_atm :: surface windspeed on atmos. grid (m/s) C-- fields used for multiple purpose: C sIceFrac_atm :: seaice fraction on atmos. grid C-- fields sent to & received from ATM: C sIceThick_atm :: seaice thickness [m] on atmos. grid C sIceSnowH_atm :: snow thickness over seaice [m] on atmos. grid C sIceQ1_atm :: seaice enthalpy of ice layer 1 [J/kg] on atmos. grid C sIceQ2_atm :: seaice enthalpy of ice layer 2 [J/kg] on atmos. grid COMMON /ATMVARS_R/ & landMask_atm, & OcMxlD_atm, SST_atm, SSS_atm, vSq_atm, & fluxCO2_atm, & atmSLPr_atm, HeatFlux_atm, qShortWave_atm, & TauX_atm, TauY_atm, EvMPr_atm, & RunOff_atm, ROEnFx_atm, & SaltFlx_atm, sIceMass_atm, saltPlmFlx_atm, & aCO2_atm, wSpeed_atm, & sIceFrac_atm, & sIceThick_atm, sIceSnowH_atm, sIceQ1_atm, sIceQ2_atm _RL landMask_atm (Nx_atm,Ny_atm) _RL OcMxlD_atm (Nx_atm,Ny_atm) _RL SST_atm (Nx_atm,Ny_atm) _RL SSS_atm (Nx_atm,Ny_atm) _RL vSq_atm (Nx_atm,Ny_atm) _RL fluxCO2_atm (Nx_atm,Ny_atm) _RL atmSLPr_atm (Nx_atm,Ny_atm) _RL HeatFlux_atm (Nx_atm,Ny_atm) _RL qShortWave_atm (Nx_atm,Ny_atm) _RL TauX_atm (Nx_atm,Ny_atm) _RL TauY_atm (Nx_atm,Ny_atm) _RL EvMPr_atm (Nx_atm,Ny_atm) _RL RunOff_atm (Nx_atm,Ny_atm) _RL ROEnFx_atm (Nx_atm,Ny_atm) _RL SaltFlx_atm (Nx_atm,Ny_atm) _RL sIceMass_atm (Nx_atm,Ny_atm) _RL saltPlmFlx_atm (Nx_atm,Ny_atm) _RL aCO2_atm (Nx_atm,Ny_atm) _RL wSpeed_atm (Nx_atm,Ny_atm) _RL sIceFrac_atm (Nx_atm,Ny_atm) _RL sIceThick_atm (Nx_atm,Ny_atm) _RL sIceSnowH_atm (Nx_atm,Ny_atm) _RL sIceQ1_atm (Nx_atm,Ny_atm) _RL sIceQ2_atm (Nx_atm,Ny_atm) C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|