pkg/ocn_compon_interf/CPL_TAVE.h

963aacc62a Jean*0001 CBOP
644a2c3fdf Jean*0002 C     !ROUTINE: CPL_TAVE.h
963aacc62a Jean*0003 C     !INTERFACE:
644a2c3fdf Jean*0004 C     include "CPL_TAVE.h"
963aacc62a Jean*0005 C     !DESCRIPTION:
                0006 C     \bv
                0007 C     *==========================================================*
                0008 C     | CPL_TAVE.h
                0009 C     | o Header for CPL time-average diagnostics
                0010 C     *==========================================================*
                0011 C     | Declares global arrays used for holding/accumulating
                0012 C     | diagnostic output from CPL.
                0013 C     *==========================================================*
                0014 C     \ev
                0015 CEOP
                0016
                0017 #ifdef COMPONENT_MODULE
                0018 #ifdef ALLOW_TIMEAVE
                0019
                0020 C--   COMMON /CPL_TAVE_VARS/ Time average CPL-variables
                0021 C     CPL_timeAve :: Cumulated time [s]
                0022 C     SLPtave     :: Atmospheric Sea-Level pressure [Pa=N/m2]
                0023 C     HFtave      :: Net surface heat-flux   [W/m2, +=upward]
                0024 C     QSWtave     :: Net shortwave heat flux [W/m2, +=upward]
                0025 C     TXtave      :: Surface stress [Pa=N/m2], zonal compon.
                0026 C     TYtave      :: Surface stress [Pa=N/m2], merid compon.
                0027 C     FWtave      :: Net fresh water flux (=E-P-R) [kg/m2/s, +=upward]
ba0b047096 Mart*0028 C     SFxtave     :: Salt flux (from sea-ice)       [g/m2/s, +=upward]
963aacc62a Jean*0029 C     SICtave     :: Sea-ice mass [kg/m2]
                0030 C     MXLtave     :: Ocean mixed-layer depth   [m]
                0031 C     SSTtave     :: Ocean surface temperature [oC]
ba0b047096 Mart*0032 C     SSStave     :: Ocean surface salinity    [g/kg]
963aacc62a Jean*0033 C     vSqtave     :: Ocean surface velocity square [m2/s2]
                0034 C     aC02tave    :: CO2 level in atm [parts by volume]
                0035 C     sWSpdtave   :: Surface wind speed [m/s]
                0036 C     iceftave    :: Fraction of ocean covered by seaice
                0037 C     fCO2tave    :: Flux of CO2 from ocean->atm [mol/m2/s]
                0038       COMMON /CPL_TAVE_VARS/
                0039      &                   CPL_timeAve,
                0040      &                   SLPtave, HFtave, QSWtave,
                0041      &                   TXtave, TYtave,
                0042      &                   FWtave, SFxtave, SICtave,
644a2c3fdf Jean*0043      &                   MXLtave, SSTtave, SSStave, vSqtave
                0044 #ifdef ALLOW_DIC
                0045      &                 , aCO2tave, sWSpdtave,
963aacc62a Jean*0046      &                   iceftave, fCO2tave
644a2c3fdf Jean*0047 #endif /* ALLOW_DIC */
963aacc62a Jean*0048
                0049       _RL  CPL_timeAve(nSx,nSy)
                0050       _RL  SLPtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0051       _RL  HFtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0052       _RL  QSWtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0053       _RL  TXtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0054       _RL  TYtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0055       _RL  FWtave    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0056       _RL  SFxtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0057       _RL  SICtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0058       _RL  MXLtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0059       _RL  SSTtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0060       _RL  SSStave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0061       _RL  vSqtave   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
644a2c3fdf Jean*0062 #ifdef ALLOW_DIC
963aacc62a Jean*0063       _RL  aCO2tave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0064       _RL  sWSpdtave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0065       _RL  iceftave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
                0066       _RL  fCO2tave  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
644a2c3fdf Jean*0067 #endif /* ALLOW_DIC */
963aacc62a Jean*0068
                0069 #endif /* ALLOW_TIMEAVE */
                0070 #endif /* COMPONENT_MODULE */
                0071
                0072 CEH3 ;;; Local Variables: ***
                0073 CEH3 ;;; mode:fortran ***
                0074 CEH3 ;;; End: ***