# 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 ************************************


tuv_data = read("../TUV_Data")

# write a single field
geo = grib_to_geo(data : tuv_data)
write (getenv('SCRATCH') & '/T.gpt', geo)

# write all fields
for i = 1 to count(tuv_data) do
    geo = grib_to_geo(data : tuv_data[i])
    write (getenv('SCRATCH') & '/tuv_' & i & '.gpt', geo)
end for

