INTEGER kdlon, kflev
      PARAMETER (kdlon=78,kflev=klev) ! 78*199