C $Header: /u/gcmpack/MITgcm/pkg/atm2d/OCNVARS.h,v 1.4 2013/12/02 23:54:43 jmc Exp $ C $Name: $ C *==========================================================* C | OCNVARS.h Declare arrays for holding data on the ocean C | grid. Arrays may need adding or removing C | different couplings. C *==========================================================* C landMask_ocn :: Atmosphere land mask (=1 : full land grid-point; C =0 : full ocean grid-point); C OcMxlD_ocn ::- Ocean mixed-layer depths on ocean grid (m) C SST_ocn :: Sea surface temperature on ocean grid ( oC). C SSS_ocn :: Sea surface temperature on ocean grid (psu). C vSq_ocn :: Sea surface velocity square on ocean grid (m2/s2) C fluxCO2_ocn :: flux of CO2 from ocn->Atm on ocean grid (mol/m2/s) C atmSLPr_ocn :: Sea Level atmos. pressure on ocean grid (Pa) C HeatFlux_ocn :: net Heat flux on ocean grid (W/m2, +=upward) C qShortWave_ocn :: net shortwave radiation on ocean grid (W/m2, +=upward) C TauX_ocn :: Zonal momentum flux on ocean grid ( N/m^2, same C sign as the wind ; positive wind == westward flow) C TauY_ocn :: Meridional momentum flux on ocean grid ( N/m^2, same C sign as the wind ; positive wind == northward flow) C FWFlux_ocn :: Fresh water flux on ocean grid C ( kg/m2/s, positive out of ocean). C SaltFlx_ocn :: salt flux from sea-ice compon. on ocean grid C ( g/m2/s, +=upward=leaving the ocean) C sIceMass_ocn :: sea-ice mass on ocean grid (kg/m2) C aCO2_ocn :: atmos CO2 on ocean grid (parts by volume) C wSpeed_ocn :: surface windspeed on ocean grid (m/s) C sIceFrac_ocn :: sea-ice fraction on ocean grid COMMON /OCNVARS_R/ & landMask_ocn, & OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_ocn, & fluxCO2_ocn, & atmSLPr_ocn, HeatFlux_ocn, qShortWave_ocn, c & qLatent_ocn, qSensible_ocn, qLongWave_ocn, c & uVelGround_ocn, vVelGround_ocn, & TauX_ocn, TauY_ocn, & FWFlux_ocn, & SaltFlx_ocn, sIceMass_ocn, & aCO2_ocn, wSpeed_ocn, sIceFrac_ocn _RL landMask_ocn (Nx_ocn,Ny_ocn) _RL OcMxlD_ocn (Nx_ocn,Ny_ocn) _RL SST_ocn (Nx_ocn,Ny_ocn) _RL SSS_ocn (Nx_ocn,Ny_ocn) _RL vSq_ocn (Nx_ocn,Ny_ocn) _RL fluxCO2_ocn (Nx_ocn,Ny_ocn) _RL atmSLPr_ocn (Nx_ocn,Ny_ocn) _RL HeatFlux_ocn (Nx_ocn,Ny_ocn) _RL qShortWave_ocn (Nx_ocn,Ny_ocn) c _RL qLatent_ocn (Nx_ocn,Ny_ocn) c _RL qSensible_ocn (Nx_ocn,Ny_ocn) c _RL qLongWave_ocn (Nx_ocn,Ny_ocn) c _RL uVelGround_ocn (Nx_ocn,Ny_ocn) c _RL vVelGround_ocn (Nx_ocn,Ny_ocn) _RL TauX_ocn (Nx_ocn,Ny_ocn) _RL TauY_ocn (Nx_ocn,Ny_ocn) _RL FWFlux_ocn (Nx_ocn,Ny_ocn) _RL SaltFlx_ocn (Nx_ocn,Ny_ocn) _RL sIceMass_ocn (Nx_ocn,Ny_ocn) _RL aCO2_ocn (Nx_ocn,Ny_ocn) _RL wSpeed_ocn (Nx_ocn,Ny_ocn) _RL sIceFrac_ocn (Nx_ocn,Ny_ocn)