jscott/pkg_atm2d/OCNVARS.h

C $Header: /u/gcmpack/MITgcm_contrib/jscott/pkg_atm2d/OCNVARS.h,v 1.1 2006/08/11 18:55:51 jscott 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     AtmDepths_ocn  - Atmos. depth on ocean grid     ( Pa )
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     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 ( m/s, positive out
C                      of ocean).
C     SaltFlx_ocn    - salt flux from sea-ice compon. on ocean grid
C                      (+=upward=leaving the ocean)
C     sIceMass_ocn   - sea-ice mass  on ocean grid (kg/m2)

      COMMON /OCNVARS_R/
     &       AtmDepths_ocn,
     &       OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_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

      _RS AtmDepths_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 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)

1	jscott	1.2	C $Header: /u/gcmpack/MITgcm_contrib/jscott/pkg_atm2d/OCNVARS.h,v 1.1 2006/08/11 18:55:51 jscott Exp $
2	jscott	1.1	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			C AtmDepths_ocn - Atmos. depth on ocean grid ( Pa )
10			C OcMxlD_ocn - Ocean mixed-layer depths on ocean grid (m)
11			C SST_ocn - Sea surface temperature on ocean grid ( oC).
12			C SSS_ocn - Sea surface temperature on ocean grid (psu).
13			C vSq_ocn - Sea surface velocity square on ocean grid (m2/s2)
14			C atmSLPr_ocn - Sea Level atmos. pressure on ocean grid (Pa)
15			C HeatFlux_ocn - net Heat flux on ocean grid (W/m2, +=upward)
16			C qShortWave_ocn - net shortwave radiation on ocean grid (W/m2, +=upward)
17			C TauX_ocn - Zonal momentum flux on ocean grid ( N/m^2, same
18			C sign as the wind ; positive wind == westward flow)
19			C TauY_ocn - Meridional momentum flux on ocean grid ( N/m^2, same
20			C sign as the wind ; positive wind == northward flow)
21			C FWFlux_ocn - Fresh water flux on ocean grid ( m/s, positive out
22			C of ocean).
23			C SaltFlx_ocn - salt flux from sea-ice compon. on ocean grid
24			C (+=upward=leaving the ocean)
25			C sIceMass_ocn - sea-ice mass on ocean grid (kg/m2)
26
27			COMMON /OCNVARS_R/
28			& AtmDepths_ocn,
29			& OcMxlD_ocn, SST_ocn, SSS_ocn, vSq_ocn,
30			& atmSLPr_ocn, HeatFlux_ocn, qShortWave_ocn,
31			c & qLatent_ocn, qSensible_ocn, qLongWave_ocn,
32			c & uVelGround_ocn, vVelGround_ocn,
33			& TauX_ocn, TauY_ocn,
34			& FWFlux_ocn,
35			& SaltFlx_ocn, sIceMass_ocn
36
37			_RS AtmDepths_ocn (Nx_ocn,Ny_ocn)
38			_RL OcMxlD_ocn (Nx_ocn,Ny_ocn)
39			_RL SST_ocn (Nx_ocn,Ny_ocn)
40			_RL SSS_ocn (Nx_ocn,Ny_ocn)
41			_RL vSq_ocn (Nx_ocn,Ny_ocn)
42			_RL atmSLPr_ocn (Nx_ocn,Ny_ocn)
43			_RL HeatFlux_ocn (Nx_ocn,Ny_ocn)
44			_RL qShortWave_ocn (Nx_ocn,Ny_ocn)
45			c _RL qLatent_ocn (Nx_ocn,Ny_ocn)
46			c _RL qSensible_ocn (Nx_ocn,Ny_ocn)
47			c _RL qLongWave_ocn (Nx_ocn,Ny_ocn)
48			c _RL uVelGround_ocn (Nx_ocn,Ny_ocn)
49			c _RL vVelGround_ocn (Nx_ocn,Ny_ocn)
50			_RL TauX_ocn (Nx_ocn,Ny_ocn)
51			_RL TauY_ocn (Nx_ocn,Ny_ocn)
52			_RL FWFlux_ocn (Nx_ocn,Ny_ocn)
53			_RL SaltFlx_ocn (Nx_ocn,Ny_ocn)
54			_RL sIceMass_ocn (Nx_ocn,Ny_ocn)
55