_RL recip_multDim
recip_multDim = 1. _d 0/SEAICE_multDim
& + TICES(I,J,K,bi,bj)*tmp*recip_multDim
recip_multDim = SEAICE_multDim
recip_multDim = ONE / recip_multDim
areaPDFfac = denominator * recip_multDim