_RL SEAICE_lhFusion, SEAICE_lhEvap
& SEAICE_lhFusion, SEAICE_lhEvap,
D1W=SEAICE_dalton*SEAICE_lhEvap*SEAICE_rhoAir
recip_lhEvap = 1./SEAICE_lhEvap
tmpscal3= SEAICE_lhEvap+SEAICE_lhFusion
& * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 )
lhSublim = SEAICE_lhEvap + SEAICE_lhFusion
& SEAICE_lhFusion, SEAICE_lhEvap, SEAICE_dalton,
SEAICE_lhEvap = flamb
SEAICE_lhEvap = 2.50 _d 6
CALL WRITE_0D_RL( SEAICE_lhEvap ,INDEX_NONE,