_RL tmpW
tmpW=whflux(i,j,bi,bj)
tmpW=wsflux(i,j,bi,bj)
tmpW=wtauu(i,j,bi,bj)
tmpW=wtauv(i,j,bi,bj)
tmpW=watemp(i,j,bi,bj)
tmpW=waqh(i,j,bi,bj)
tmpW=wprecip(i,j,bi,bj)
tmpW=wsnowprecip(i,j,bi,bj)
tmpW=wswflux(i,j,bi,bj)
tmpW=wswdown(i,j,bi,bj)
tmpW=wlwflux(i,j,bi,bj)
tmpW=wlwdown(i,j,bi,bj)
tmpW=wevap(i,j,bi,bj)
tmpW=wapressure(i,j,bi,bj)
tmpW=wuwind(i,j,bi,bj)
tmpW=wvwind(i,j,bi,bj)
tmpW=0.
if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then
fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW)