!-----------------------------------------------------------------------
    COMMON /C_FRACTIONS/ F_ice(LM,IDIM1:IDIM2,JDIM1:JDIM2) &
    ,                    F_rain(LM,IDIM1:IDIM2,JDIM1:JDIM2) &
    ,                    F_RimeF(LM,IDIM1:IDIM2,JDIM1:JDIM2)
!-----------------------------------------------------------------------