COMMON /CHMALL/ XXALLY(NLONP2,NLAT,NLEV,NC),     ! NLEV,...,1
     *                XXALLP(NLONP2,NLAT,NLEV,NY),     ! in SPS
     *                XXALLD(NLONP2,NLAT,NLEV,NY),
     $                XXALLY2(NLONP2,NLAT,NLEV,NC)
      COMMON /XXYSUT/ XXSUTY(NLONP2,NLAT,NLEV,NC)