      type grid_info
        integer nx, ny, nz
        real xrng(2), yrng(2)
        real,allocatable,dimension(:) :: zlev
        real dx, dy
      end type
      
