Ticket #53031: bar.ncl
File bar.ncl, 499 bytes (added by tenomoto (Takeshi Enomoto), 8 years ago) |
---|
Line | |
---|---|
1 | procedure curvilinear_to_SCRIP(Opt[1]:logical) |
2 | begin |
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) |
11 | end ; of curvilinear_to_SCRIP(...) |
12 | begin |
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) |
19 | end |