function ccm3_cloud_iceliquid_fraction_param_function, temp

; Reference Kiehl et al., Journal of Climate, June 1998, pg 1133, eqn 7

; temperature is in K, p_ratio is the pressure/surface_pressure, land_flag=1 is land.
t=temp-273.

if t gt -10. then frac=0.0
if t ge -10. and t le -30. then frac=-0.05*(t+10.)
if t lt -30. then frac=1.

return, frac

end