REAL FUNCTION DRM(IZ)  4
***function       DRM
*
*auteur           Louis Garand  - rpn - dorval
*
*REVISION 001     JACQUES HALLE - DDO - DORVAL - 421-4660
*                                 Decembre 1995
*                 Generaliser pour toutes les plateformes satellitaires.
*
*langage          fortran 5
*
*objet            NORMALIZATION FOR SUN ZENITH ANGLE (LAMBERTIAN)
*                 FOR OCEAN.
*
*appel            val = DRM(IZ)
*
*arguments        iz  - input  - index
*                 val - output - normalization factor
**
      implicit  none
c
      integer  iz
c
      REAL  DRF(11)
c 
      DATA DRF /1.,1.0255,1.1197,1.2026,1.3472,1.4926,1.8180,2.1980, 
     X          2.8180,3.8615,4.3555/
c
      DRM=DRF(IZ) 
c
      RETURN
      END