Ticket #53031: bar.ncl

File bar.ncl, 499 bytes (added by tenomoto (Takeshi Enomoto), 8 years ago)
Line 
1procedure curvilinear_to_SCRIP(Opt[1]:logical)
2begin
3    if (isatt(Opt,"NetCDFType").and.\
4        str_lower(Opt@NetCDFType).eq."netcdf4") then
5      setfileoption("nc","Format","netcdf4")
6      nc_file_type = "netcdf4"
7    else
8      nc_file_type = "netcdf3"
9    end if
10    print(nc_file_type)
11end     ; of curvilinear_to_SCRIP(...)
12begin
13  Opt = True
14  curvilinear_to_SCRIP(Opt)
15  Opt@NetCDFType = "netcdf4"
16  curvilinear_to_SCRIP(Opt)
17  Opt@NetCDFType = "netcdf3"
18  curvilinear_to_SCRIP(Opt)
19end