_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)