QSWO_BELOW_FIRST_LAYER (I,J) = 0.0
QSWO_BELOW_FIRST_LAYER(i,j)= QSWO(I,J)*SWFRACB
QSWO_BELOW_FIRST_LAYER(i,j)= 0. _d 0
_RL QSWO_BELOW_FIRST_LAYER