_RL convertPRECIP2HI, convertHI2PRECIP
& * convertHI2PRECIP
& * convertHI2PRECIP * ( - d_HSNWbyRAIN(I,J)*SNOW2ICE
& *convertHI2PRECIP )
& + tmpscal1*convertHI2PRECIP
& + r_FWbySublim(I,J)*convertHI2PRECIP
convertHI2PRECIP = ONE/convertPRECIP2HI