C**********************************************************
C
      FUNCTION TEMPZ( ZZ )
C
      IMPLICIT REAL*8 ( A-H, O-Z )
C
C-----------------------------------------------------------
C
C
      call setcst
     O   ( GRAV, PSD, AMDRY, RDRY, CPDRY, RMVAP, ALATNT )

c      gradad = grav / cpdry
      gradad = 2.5D0 * 1.0D-3

c      ttmin = 150.0d0

c      tempz =  220.0d0
      tempz =  220.0d0 - zz * gradad

c      tempz = max ( tempz, ttmin )

      RETURN
      END
