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