_RL SEAICE_gamma_t, SEAICE_gamma_t_frz
& SEAICE_gamma_t, SEAICE_gamma_t_frz,
GAMMA = dRf(1)/SEAICE_gamma_t
SEAICE_gamma_t = UNSET_RL
& SEAICE_gamma_t .NE. UNSET_RL ) THEN
IF ( SEAICE_gamma_t .NE. UNSET_RL .AND.
& SEAICE_gamma_t .NE. 0. _d 0 ) THEN
SEAICE_availHeatFrac = SEAICE_deltaTtherm/SEAICE_gamma_t
CALL WRITE_0D_RL( SEAICE_gamma_t, INDEX_NONE,