_RL lwdtclr(sNx,sNy,Nrphys,nSx,nSy)
COMMON /saver/ lwdt,lwdtclr,swdt,swdtclr,turbu,turbv,turbt,turbq
& lwdt(1,1,1,bi,bj),lwdtclr(1,1,1,bi,bj),swdt(1,1,1,bi,bj),
& lwdt,swdt,lwdtclr,swdtclr,dlwdtg,
& lwdt,lwdtclr,swdt,swdtclr,turbu,turbv,turbt,turbq,
& lwdt,dlwdtg,lwdtclr,lwgclr,
_RL lwdt(im,jm,lm),lwdtclr(im,jm,lm)
& ( lwdtclr(i,j,l,bi,bj) +
_RL lwdtclr(im2,jm2,Nrphys,Nbi,Nbj)