44 real(dp),
intent(in) :: temp_val
50 #if defined(FRAC_DUST)
51 kappa_ice = kappa(floor(temp_val)) &
52 +(kappa(floor(temp_val)+1)-kappa(floor(temp_val))) &
53 *(temp_val-
real(floor(temp_val),dp))
56 +(kappa(floor(temp_val)+1)-kappa(floor(temp_val))) &
57 *(temp_val-
real(floor(temp_val),dp))
63 #if defined(FRAC_DUST)
64 kappa_val = (1.0_dp-frac_dust)*kappa_ice + frac_dust*kappa_c