function ccm3_cloud_iceliquid_fraction_param_function, temp

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

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

;ranval=randomn(seed,/normal)
;ranval=1.+(ranval/0.1)
ranval=1.0

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

if frac gt 1. then frac=1.
if frac lt 0. then frac=0.0

return, frac

end