include file: SWRE 2
      REAL REICE,                       !  rE for ice cloud                SWRE.2      
     &     RELIQ,                       !  rE for liquid cloud             SWRE.3      
     &     DRE                          !  RELIQ-REICE                     SWRE.4      
      PARAMETER ( REICE = 30.E-6, RELIQ = 7.E-6, DRE = RELIQ - REICE )     SWRE.5