!-----------------------------------------------------------------------
    COMMON /CLDWTR/ &
    CWM(IDIM1:IDIM2,JDIM1:JDIM2,LM),U00(IDIM1:IDIM2,JDIM1:JDIM2) &
    ,UL(2*LM) &
    ,LC(IDIM1:IDIM2,JDIM1:JDIM2),SR(IDIM1:IDIM2,JDIM1:JDIM2)
!-----------------------------------------------------------------------
