C**********************************************************
C
      FUNCTION TEMPZ( ZZ )
C
      IMPLICIT REAL*8 ( A-H, O-Z )
      PARAMETER(NLV= 33 )
      DIMENSION    ZLV(NLV),TLV(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, 1000.0 /
C
      DATA ( TLV(ILV),ILV=1,NLV )
     *        / 300.0, 295.2, 291.3, 288.3, 285.3,
     1          282.2, 278.9, 275.6, 272.3, 269.0,
     2          265.7, 262.1, 258.5, 254.6, 250.4,
     3          245.9, 241.1, 236.3, 231.5, 226.7,
     4          221.9, 216.6, 211.1, 205.9, 201.5,
     5          199.6, 199.6, 203.2, 207.1, 211.3,
     6          214.5, 220.0, 220.0                  /
C
C------------------------------------------------------------
C
      Z= ZZ/1.E+3
C
      DO 10 ILV=1,NLV
      IF ( Z  .LT.  ZLV(ILV) ) GO TO 2
   10 CONTINUE
    2 RZ= ( Z-ZLV(ILV-1) ) / ( ZLV(ILV)-ZLV(ILV-1) )
      TEMPZ= ( 1.-RZ )*TLV(ILV-1) + RZ*TLV(ILV)
      RETURN
      END
