!! $Id: comsta.h,v 1.3 2000/10/19 19:43:20 sjlin Exp $! $Author: sjlin $!!! 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!      common/ tszon/ tszonal,numts      real(r8) tszonal(plat)           ! TS summed along each latitude      integer numts                    ! number of time samples for monthly ave