C***********************************************************
C
      FUNCTION HUMID(ZZ)
C
C***********************************************************
      IMPLICIT REAL*8 ( A-H, O-Z )
C
      PARAMETER(NLV= 32 )
      REAL*4 ZLV(NLV),HLV(NLV)
C
C-----------------------------------------------------------
C
      DATA ( ZLV(ILV),ILV=1,NLV )
     *        /  0.0,  0.6,  1.2,  1.8,  2.4,
     1           3.0,  3.6,  4.2,  4.8,  5.4,
     2           6.0,  6.6,  7.2,  7.8,  8.4,
     3           9.0,  9.6, 10.2, 10.8, 11.4,
     4          12.0, 12.7, 13.4, 14.2, 15.1,
     5          16.0, 17.1, 18.3, 19.6, 21.0,
     6          22.6, 30.0 /
C
      DATA ( HLV(ILV),ILV=1,NLV )
     *      /   83.0, 91.0, 95.0, 95.0, 91.0,
     1          85.0, 80.0, 75.0, 71.0, 68.0,
     2          66.0, 65.0, 64.0, 63.0, 62.0,
     3          61.0, 61.0, 62.0, 62.0, 63.0,
     4          63.0, 64.0, 67.0, 74.0, 75.0,
     5          46.0, 26.0,  7.0,  2.0,  0.5,
     6           0.2, 0.0                     /
C
C===========================================================
C
      HUMID = 0.0
      RETURN
      END
