# Metview Macro

# **************************** LICENSE START ***********************************
#
# Copyright 2012 ECMWF. This software is distributed under the terms
# of the Apache License version 2.0. In applying this license, ECMWF does not
# waive the privileges and immunities granted to it by virtue of its status as
# an Intergovernmental Organization or submit itself to any jurisdiction.
#
# ***************************** LICENSE END ************************************

function load_grib_tools()
	print("load_grib_tools loaded")
end load_grib_tools

object retriever(request:definition)

	global fieldset
	fieldset = retrieve(request)

	function fieldset()
		return fieldset
	end fieldset

	function fieldset(what:definition)
		n = fieldindex(fieldset,what)
		if (n > 0) then
			return fieldset[n]
		else
			return nil
		end if
	end fieldset

end retriever
