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