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 )

      gradad = grav / cpdry

      ttmin = 220.0d0

c      tempz =  245.0d0 - zz * gradad
      tempz = 0.0D0

      tempz = max ( tempz, ttmin )

      RETURN
      END
