!
! $Id$
! $Author$
!
!
! Diagnostic statistics integrals
!
      common/comsta/rmsz(plat)  ,rmsd (plat)  ,rmst(plat)  ,stq(plat)
      common/comsta/             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