!-----------------------------------------------------------------------
      real(4),pointer::cwm(:,:,:),u00(:,:),ul(:),sr(:,:)
      integer(4),pointer::lc(:,:)
      COMMON/CLDWTR/CWM,U00,UL,LC,SR
!-----------------------------------------------------------------------