c Plumes Grid horizontal Dimensions
c ---------------------------------
      integer Nhplume, Nrplume
      parameter (Nhplume=20)
      parameter (Nrplume = Nr)