_RL Lvap
& cpAir, Lvap, Lfresh,
WRITE(iUnit,*) 'BlkF: Lvap =',Lvap
Lvap = 2.5 _d 6
lath=Lvap
if (iceornot.gt.0) lath=Lvap+Lfresh
lath = Lvap+Lfresh
EQUIVALENCE ( Lvap , ALHC )
flh(i,j,bi,bj) = -Lvap*EVPloc(1)