!-----------------------------------------------------------------------
    INTEGER :: VTMS
    COMMON /SLOPES/ &
    VTMS(IDIM1:IDIM2,JDIM1:JDIM2,LM) &
    ,ISLD(IDIM1:IDIM2,JDIM1:JDIM2)
!-----------------------------------------------------------------------
