comsta.h

CCSM Research Tools: Community Atmosphere Model (CAM)

!
! $Id: comsta.h,v 1.5 2000/06/02 16:19:36 jet Exp $
! $Author: jet $
!
!
! Diagnostic statistics integrals
!
      common/comsta/rmsz(plat)  ,rmsd(plat)  ,rmst(plat)  ,stq(plat), &
                    psurf(plat)
!
      real(r8) rmsz    ! lambda/p sum of w*dp/ps times square vorticity
      real(r8) rmsd    ! lambda/p sum of w*dp/ps times square divergence
      real(r8) rmst    ! lambda/p sum of w*dp/ps times square temperature
      real(r8) stq     ! lambda/p sum of w*dp/ps times square moisture
      real(r8) psurf   ! lambda/p sum of w*dp/ps times square surface press
!
      common/ tszon/ tszonal,numts

      real(r8) tszonal(plat)           ! TS summed along each latitude
      integer numts                    ! number of time samples for monthly ave