d_HSNWbyATMonSNW(I,J) = d_HSNWbyATMonSNW(I,J)
d_HSNWbyATMonSNW(I,J)= tmpscal2*ICE2SNOW
& - d_HSNWbyATMonSNW(I,J)*SNOW2ICE
& ( d_HSNWbyATMonSNW(I,J)*SNOW2ICE
tmpscal1= d_HSNWbyATMonSNW(I,J)*SNOW2ICE
CALL DIAGNOSTICS_SCALE_FILL(d_HSNWbyATMonSNW,
_RL d_HSNWbyATMonSNW (1:sNx,1:sNy)
d_HSNWbyATMonSNW(I,J) = 0.0 _d 0