pkg/aim_ocn_coupler/ATMVARS.h

C $Header: $
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     AtmDepths_atm  - Atmos. depths on atmos. grid
C     OcnDepths_ocn  - Ocean depth on atmos. grid.
C     SST_atm        - Sea surface temperature on atmos. grid ( oC ).
C     HeatFlux_atm   - Heat flux on atmos. grid ( Wm^-2, positive into
C                      atmosphere).
C     EvMPr_atm      - Fresh water flux (=Evap-Precip) on atmos. grid 
C                      ( m/s, positive into atmosphere).
C     RunOff_atm     - Fresh water flux (=RunOff) on atmos. grid 
C                      ( m/s, positive is leaving the land bucket)
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)
      COMMON /ATMVARS_R/
     &       AtmDepths_atm, OcnDepths_atm,
     &       SST_atm, HeatFlux_atm, EvMPr_atm, RunOff_atm,
     &       TauX_atm, TauY_atm,
     &       uVelGround_atm, vVelGround_atm,
     &       qLatent_atm, qSensible_atm,
     &       qLongwave_atm, qShortwave_atm
      _RS AtmDepths_atm  (Nx_atm,Ny_atm)
      _RS OcnDepths_atm  (Nx_atm,Ny_atm)
      _RL SST_atm        (Nx_atm,Ny_atm)
      _RL HeatFlux_atm   (Nx_atm,Ny_atm)
      _RL EvMPr_atm      (Nx_atm,Ny_atm)
      _RL RunOff_atm     (Nx_atm,Ny_atm)
      _RL TauX_atm       (Nx_atm,Ny_atm)
      _RL TauY_atm       (Nx_atm,Ny_atm)
      _RL uVelGround_atm (Nx_atm,Ny_atm)
      _RL vVelGround_atm (Nx_atm,Ny_atm)
      _RL qLatent_atm    (Nx_atm,Ny_atm)
      _RL qSensible_atm  (Nx_atm,Ny_atm)
      _RL qShortwave_atm (Nx_atm,Ny_atm)
      _RL qLongwave_atm  (Nx_atm,Ny_atm)
1	C $Header: $
2	C $Name: $
3
4	C /==========================================================\
5	C \| ATMVARS.h Declare arrays for holding data on the atmos. \|
6	C \| grid. Arrays may need adding or removing \|
7	C \| different couplings. \|
8	C \==========================================================/
9	C AtmDepths_atm - Atmos. depths on atmos. grid
10	C OcnDepths_ocn - Ocean depth on atmos. grid.
11	C SST_atm - Sea surface temperature on atmos. grid ( oC ).
12	C HeatFlux_atm - Heat flux on atmos. grid ( Wm^-2, positive into
13	C atmosphere).
14	C EvMPr_atm - Fresh water flux (=Evap-Precip) on atmos. grid
15	C ( m/s, positive into atmosphere).
16	C RunOff_atm - Fresh water flux (=RunOff) on atmos. grid
17	C ( m/s, positive is leaving the land bucket)
18	C TauX_atm - Zonal momentum flux on atmos. grid ( N/m^2, same
19	C sign as the wind ; positive wind == westward flow)
20	C TauY_atm - Meridional momentum flux on atmos. grid ( N/m^2, same
21	C sign as the wind ; positive wind == northward flow)
22	COMMON /ATMVARS_R/
23	& AtmDepths_atm, OcnDepths_atm,
24	& SST_atm, HeatFlux_atm, EvMPr_atm, RunOff_atm,
25	& TauX_atm, TauY_atm,
26	& uVelGround_atm, vVelGround_atm,
27	& qLatent_atm, qSensible_atm,
28	& qLongwave_atm, qShortwave_atm
29	_RS AtmDepths_atm (Nx_atm,Ny_atm)
30	_RS OcnDepths_atm (Nx_atm,Ny_atm)
31	_RL SST_atm (Nx_atm,Ny_atm)
32	_RL HeatFlux_atm (Nx_atm,Ny_atm)
33	_RL EvMPr_atm (Nx_atm,Ny_atm)
34	_RL RunOff_atm (Nx_atm,Ny_atm)
35	_RL TauX_atm (Nx_atm,Ny_atm)
36	_RL TauY_atm (Nx_atm,Ny_atm)
37	_RL uVelGround_atm (Nx_atm,Ny_atm)
38	_RL vVelGround_atm (Nx_atm,Ny_atm)
39	_RL qLatent_atm (Nx_atm,Ny_atm)
40	_RL qSensible_atm (Nx_atm,Ny_atm)
41	_RL qShortwave_atm (Nx_atm,Ny_atm)
42	_RL qLongwave_atm (Nx_atm,Ny_atm)