C-----------------------------------------------------------------------
                             C O M M O N /PVRBLS/
     & Z0    (IDIM1:IDIM2,JDIM1:JDIM2),USTAR (IDIM1:IDIM2,JDIM1:JDIM2)
     &,UZ0   (IDIM1:IDIM2,JDIM1:JDIM2),VZ0   (IDIM1:IDIM2,JDIM1:JDIM2)
     &,THZ0  (IDIM1:IDIM2,JDIM1:JDIM2),QZ0   (IDIM1:IDIM2,JDIM1:JDIM2)
     &,THS   (IDIM1:IDIM2,JDIM1:JDIM2),QS    (IDIM1:IDIM2,JDIM1:JDIM2)
     &,AKMS  (IDIM1:IDIM2,JDIM1:JDIM2),AKHS  (IDIM1:IDIM2,JDIM1:JDIM2)
     &,RF    (IDIM1:IDIM2,JDIM1:JDIM2)
     &,TWBS  (IDIM1:IDIM2,JDIM1:JDIM2),QWBS  (IDIM1:IDIM2,JDIM1:JDIM2)
     &,SNO   (IDIM1:IDIM2,JDIM1:JDIM2),SI    (IDIM1:IDIM2,JDIM1:JDIM2)
     &,CLDEFI(IDIM1:IDIM2,JDIM1:JDIM2)
     &,PREC  (IDIM1:IDIM2,JDIM1:JDIM2),ACPREC(IDIM1:IDIM2,JDIM1:JDIM2)
     &,ACCLIQ(IDIM1:IDIM2,JDIM1:JDIM2),CUPREC(IDIM1:IDIM2,JDIM1:JDIM2)
CGSM v100m
     &,TH100  (IDIM1:IDIM2,JDIM1:JDIM2),Q100   (IDIM1:IDIM2,JDIM1:JDIM2)
     &,U100   (IDIM1:IDIM2,JDIM1:JDIM2),V100   (IDIM1:IDIM2,JDIM1:JDIM2)
CGSM v100m
     &,TH10  (IDIM1:IDIM2,JDIM1:JDIM2),Q10   (IDIM1:IDIM2,JDIM1:JDIM2)
     &,U10   (IDIM1:IDIM2,JDIM1:JDIM2),V10   (IDIM1:IDIM2,JDIM1:JDIM2)
     &,TSHLTR(IDIM1:IDIM2,JDIM1:JDIM2),QSHLTR(IDIM1:IDIM2,JDIM1:JDIM2)
     &,TSHLTR1(IDIM1:IDIM2,JDIM1:JDIM2)
     &,PSHLTR(IDIM1:IDIM2,JDIM1:JDIM2)
C
     &,Q2 (IDIM1:IDIM2,JDIM1:JDIM2,LM)
C S. Morelli momentum chg
     &,XMOMFLUX(IDIM1:IDIM2,JDIM1:JDIM2)
     &,YMOMFLUX(IDIM1:IDIM2,JDIM1:JDIM2)
     &,AKM10(IDIM1:IDIM2,JDIM1:JDIM2),AKM10V(IDIM1:IDIM2,JDIM1:JDIM2)

C-----------------------------------------------------------------------