pkg/atm2d/OCNVARS.h

C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/OCNVARS.h,v 1.6 2009/09/14 16:24:53 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)
1	C $Header: /u/gcmpack/MITgcm/pkg/atm_ocn_coupler/OCNVARS.h,v 1.6 2009/09/14 16:24:53 jmc Exp $
2	C $Name: $
3
4	C ==========================================================
5	C \| OCNVARS.h Declare arrays for holding data on the ocean
6	C \| grid. Arrays may need adding or removing
7	C \| different couplings.
8	C ==========================================================
9
10	C landMask_ocn :: Atmosphere land mask (=1 : full land grid-point;
11	C =0 : full ocean grid-point);
12	C OcMxlD_ocn ::- Ocean mixed-layer depths on ocean grid (m)
13	C SST_ocn :: Sea surface temperature on ocean grid ( oC).
14	C SSS_ocn :: Sea surface temperature on ocean grid (psu).
15	C vSq_ocn :: Sea surface velocity square on ocean grid (m2/s2)
16	C fluxCO2_ocn :: flux of CO2 from ocn->Atm on ocean grid (mol/m2/s)
17	C atmSLPr_ocn :: Sea Level atmos. pressure on ocean grid (Pa)
18	C HeatFlux_ocn :: net Heat flux on ocean grid (W/m2, +=upward)
19	C qShortWave_ocn :: net shortwave radiation on ocean grid (W/m2, +=upward)
20	C TauX_ocn :: Zonal momentum flux on ocean grid ( N/m^2, same
21	C sign as the wind ; positive wind == westward flow)
22	C TauY_ocn :: Meridional momentum flux on ocean grid ( N/m^2, same
23	C sign as the wind ; positive wind == northward flow)
24	C FWFlux_ocn :: Fresh water flux on ocean grid
25	C ( kg/m2/s, positive out of ocean).
26	C SaltFlx_ocn :: salt flux from sea-ice compon. on ocean grid
27	C ( g/m2/s, +=upward=leaving the ocean)
28	C sIceMass_ocn :: sea-ice mass on ocean grid (kg/m2)
29	C aCO2_ocn :: atmos CO2 on ocean grid (parts by volume)
30	C wSpeed_ocn :: surface windspeed on ocean grid (m/s)
31	C sIceFrac_ocn :: sea-ice fraction on ocean grid
32
33	COMMON /OCNVARS_R/
34	& landMask_ocn,
35	& OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_ocn,
36	& fluxCO2_ocn,
37	& atmSLPr_ocn, HeatFlux_ocn, qShortWave_ocn,
38	c & qLatent_ocn, qSensible_ocn, qLongWave_ocn,
39	c & uVelGround_ocn, vVelGround_ocn,
40	& TauX_ocn, TauY_ocn,
41	& FWFlux_ocn,
42	& SaltFlx_ocn, sIceMass_ocn,
43	& aCO2_ocn, wSpeed_ocn, sIceFrac_ocn
44
45	_RL landMask_ocn (Nx_ocn,Ny_ocn)
46	_RL OcMxlD_ocn (Nx_ocn,Ny_ocn)
47	_RL SST_ocn (Nx_ocn,Ny_ocn)
48	_RL SSS_ocn (Nx_ocn,Ny_ocn)
49	_RL vSq_ocn (Nx_ocn,Ny_ocn)
50	_RL fluxCO2_ocn (Nx_ocn,Ny_ocn)
51	_RL atmSLPr_ocn (Nx_ocn,Ny_ocn)
52	_RL HeatFlux_ocn (Nx_ocn,Ny_ocn)
53	_RL qShortWave_ocn (Nx_ocn,Ny_ocn)
54	c _RL qLatent_ocn (Nx_ocn,Ny_ocn)
55	c _RL qSensible_ocn (Nx_ocn,Ny_ocn)
56	c _RL qLongWave_ocn (Nx_ocn,Ny_ocn)
57	c _RL uVelGround_ocn (Nx_ocn,Ny_ocn)
58	c _RL vVelGround_ocn (Nx_ocn,Ny_ocn)
59	_RL TauX_ocn (Nx_ocn,Ny_ocn)
60	_RL TauY_ocn (Nx_ocn,Ny_ocn)
61	_RL FWFlux_ocn (Nx_ocn,Ny_ocn)
62	_RL SaltFlx_ocn (Nx_ocn,Ny_ocn)
63	_RL sIceMass_ocn (Nx_ocn,Ny_ocn)
64	_RL aCO2_ocn (Nx_ocn,Ny_ocn)
65	_RL wSpeed_ocn (Nx_ocn,Ny_ocn)
66	_RL sIceFrac_ocn (Nx_ocn,Ny_ocn)