_RL SEAICE_lhFusion, SEAICE_lhEvap
& SEAICE_lhFusion, SEAICE_lhEvap,
& ( -SEAICE_lhFusion + HeatCapacity_Cp * ZERO )
tmpscal3= SEAICE_lhEvap+SEAICE_lhFusion
QI = SEAICE_rhoIce*SEAICE_lhFusion
QS = SEAICE_rhoSnow*SEAICE_lhFusion
lhSublim = SEAICE_lhEvap + SEAICE_lhFusion
& SEAICE_lhFusion, SEAICE_lhEvap, SEAICE_dalton,
SEAICE_lhFusion = flami
SEAICE_lhFusion = 3.34 _d 5
CALL WRITE_0D_RL( SEAICE_lhFusion ,INDEX_NONE,
const2=SEAICE_lhFusion*SEAICE_rhoIce