C-----------------------------------------------------------------------
                             C O M M O N /CLDWTR/ 
     & CWM(IM,JM,LM),U00(IM,JM),UL(2*LM),LC(IM,JM),SR(IM,JM)
C-----------------------------------------------------------------------
                             save /CLDWTR/