c
c Latitude varying ht, tn, and un for current calendar day.
c (see zatmos_import.f)
c
      real :: zatmos_ht,zatmos_tn,zatmos_un
      common /zatmos/ zatmos_ht(zjmx), zatmos_tn(zjmx),
     +                zatmos_un(zjmx)
c