C $Header: /u/gcmpack/MITgcm/pkg/ocn_compon_interf/CPL_TAVE.h,v 1.2 2016/01/06 00:58:23 jmc Exp $
C $Name:  $

CBOP
C     !ROUTINE: CPL_TAVE.h
C     !INTERFACE:
C     include "CPL_TAVE.h"
C     !DESCRIPTION:
C     \bv
C     *==========================================================*
C     | CPL_TAVE.h
C     | o Header for CPL time-average diagnostics
C     *==========================================================*
C     | Declares global arrays used for holding/accumulating
C     | diagnostic output from CPL.
C     *==========================================================*
C     \ev
CEOP

#ifdef COMPONENT_MODULE
#ifdef ALLOW_TIMEAVE

C--   COMMON /CPL_TAVE_VARS/ Time average CPL-variables
C     CPL_timeAve :: Cumulated time [s]
C     SLPtave     :: Atmospheric Sea-Level pressure [Pa=N/m2]
C     HFtave      :: Net surface heat-flux   [W/m2, +=upward]
C     QSWtave     :: Net shortwave heat flux [W/m2, +=upward]
C     TXtave      :: Surface stress [Pa=N/m2], zonal compon.
C     TYtave      :: Surface stress [Pa=N/m2], merid compon.
C     FWtave      :: Net fresh water flux (=E-P-R) [kg/m2/s, +=upward]
C     SFxtave     :: Salt flux (from sea-ice)  [psu.kg/m2/s, +=upward]
C     SICtave     :: Sea-ice mass [kg/m2]
C     MXLtave     :: Ocean mixed-layer depth   [m]
C     SSTtave     :: Ocean surface temperature [oC]
C     SSStave     :: Ocean surface salinity    [psu]
C     vSqtave     :: Ocean surface velocity square [m2/s2]
C     aC02tave    :: CO2 level in atm [parts by volume]
C     sWSpdtave   :: Surface wind speed [m/s]
C     iceftave    :: Fraction of ocean covered by seaice
C     fCO2tave    :: Flux of CO2 from ocean->atm [mol/m2/s]
      COMMON /CPL_TAVE_VARS/
     &                   CPL_timeAve,
     &                   SLPtave, HFtave, QSWtave,
     &                   TXtave, TYtave,
     &                   FWtave, SFxtave, SICtave,
     &                   MXLtave, SSTtave, SSStave, vSqtave
#ifdef ALLOW_DIC
     &                 , aCO2tave, sWSpdtave,
     &                   iceftave, fCO2tave
#endif /* ALLOW_DIC */

      _RL  CPL_timeAve(nSx,nSy)
      _RL  SLPtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  HFtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  QSWtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  TXtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  TYtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  FWtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  SFxtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  SICtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  MXLtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  SSTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  SSStave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  vSqtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
#ifdef ALLOW_DIC
      _RL  aCO2tave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  sWSpdtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  iceftave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
      _RL  fCO2tave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
#endif /* ALLOW_DIC */

#endif /* ALLOW_TIMEAVE */
#endif /* COMPONENT_MODULE */

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***