_RL SEAICE_dalton
& SEAICE_dalton, SEAICE_cpAir,
D1=SEAICE_dalton*SEAICE_cpAir*SEAICE_rhoAir
D1W=SEAICE_dalton*SEAICE_lhEvap*SEAICE_rhoAir
& SEAICE_lhFusion, SEAICE_lhEvap, SEAICE_dalton,
SEAICE_dalton = 1.75 _d -03
D1I=SEAICE_dalton*lhSublim*SEAICE_rhoAir
CALL WRITE_0D_RL( SEAICE_dalton ,INDEX_NONE,