adding NCL language

2025-10-29 17:50:22 +00:00 · 2015-06-05 23:24:35 -07:00
parent 9afdcddfc9
commit 2d392581e2
31 changed files with 2190 additions and 2 deletions
--- a/samples/NCL/weather_sym_6.ncl
+++ b/samples/NCL/weather_sym_6.ncl
@@ -0,0 +1,120 @@
+load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
+
+begin
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;
+;  Example of plotting station model data over a map 
+;  illustrating how the wind barb directions are adjusted
+;  for the map projection.
+;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;
+;  City names.
+;
+  cities = (/      "NCAR",       "Seattle", "San Francisco",    \
+            "Los Angeles",      "Billings",       "El Paso",    \
+                "Houston",   "Kansas City",   "Minneapolis",    \
+                "Chicago",       "Detroit",       "Atlanta",    \
+                  "Miami",      "New York",        "Eugene",    \
+                  "Boise",     "Salt Lake",       "Phoenix",    \
+            "Albuquerque",      "Bismarck",         "Tulsa",    \
+                 "Dallas",   "Little Rock",     "Lexington",    \
+              "Charlotte",       "Norfolk",        "Bangor"     \
+           /)
+  city_lats = (/     40.0,            47.6,            37.8,    \
+                     34.1,            45.8,            31.8,    \
+                     29.8,            39.1,            45.0,    \
+                     41.9,            42.3,            33.8,    \
+                     25.8,            40.8,            44.1,    \
+                     43.6,            40.7,            33.5,    \
+                     35.1,            46.7,            36.0,    \
+                     32.8,            34.7,            38.1,    \
+                     35.2,            36.8,            44.8     \
+               /)
+  city_lons = (/   -105.0,          -122.3,          -122.4,    \
+                   -118.3,          -108.5,          -106.5,    \
+                   -095.3,          -094.1,          -093.8,    \
+                   -087.6,          -083.1,          -084.4,    \
+                   -080.2,          -074.0,          -123.1,    \
+                   -116.2,          -111.9,          -112.1,    \
+                   -106.6,          -100.8,          -096.0,    \
+                   -096.8,          -092.3,          -084.1,    \
+                   -080.8,          -076.3,          -068.8     \
+              /)
+;
+;  Station model data for the 27 cities.
+;
+  imdat = (/"11000000751126021360300004955054054600007757087712",  \
+            "11103100011104021080300004959055050600517043080369",  \
+            "11206200031102021040300004963056046601517084081470",  \
+            "11309300061000021020300004967057042602017125082581",  \
+            "11412400091002021010300004971058038602517166083592",  \
+            "11515500121004020000300004975050034603017207084703",  \
+            "11618600151006020030300004979051030603507248085814",  \
+            "11721700181008020050300004983052026604007289086925",  \
+            "11824800211009020070300004987053022604507323087036",  \
+            "11927900241011020110300004991054018605017364088147",  \
+            "11030000271013020130300004995055014605517405089258",  \
+            "11133100301015020170300004999056010606017446080369",  \
+            "11236200331017020200300004000057006606517487081470",  \
+            "11339300361019020230300004004058002607017528082581",  \
+            "11442400391021020250300004008050000607517569083692",  \
+            "11545500421023020270300004012051040608017603084703",  \
+            "11648600451025020290300004017052008608517644085814",  \
+            "11751700481027020310300004021053012609017685086925",  \
+            "11854800511029020330300004025054016609507726087036",  \
+            "11958900541031020360300004029055018610007767088147",  \
+            "11060000571033020380300004033056030610507808089258",  \
+            "11163100601035020410300004037057034611007849080369",  \
+            "11266200631037020430300004041058043611507883081470",  \
+            "11369300661039020470300004045050041612007924082581",  \
+            "11472400691041020500300004048051025612507965083692",  \
+            "11575500721043020530300004051052022613507996084703",  \
+            "11678600751048021580300004055053013614007337085814"   \
+          /)
+
+;
+;  Define a color map and open a workstation.
+;
+  cmap = (/                      \
+            (/ 1., 1., 1. /),    \  ; color index 0 - white
+            (/ 0., 0., 0. /)     \  ; color index 1 - black
+         /)
+  wks = gsn_open_wks("ps","weather_sym")
+  gsn_define_colormap(wks,cmap)
+
+;
+;  Draw a world map.
+;
+  mpres = True
+  mpres@gsnFrame     = False
+  mpres@mpSatelliteDistF  = 1.3
+  mpres@mpOutlineBoundarySets  = "USStates"
+  mpres@mpCenterLatF =  40.
+  mpres@mpCenterLonF = -97.
+  mpres@mpCenterRotF =  35.
+  map = gsn_map(wks,"Satellite",mpres)
+
+;
+;  Scale the station model plot (all aspects of the station
+;  model plots are scaled as per the size of the wind barb).
+;
+  wmsetp("wbs",0.018)
+;
+;  In the middle of Nebraska, draw a wind barb for a north wind
+;  with a magnitude of 15 knots.
+;
+  wmbarbmap(wks,42.,-99.,0.,-15.)
+
+;
+;  Draw the station model data at the selected cities.  The call
+;  to wmsetp informs wmstnm that the wind barbs will be drawn over
+;  a map.  To illustrate the adjustment for plotting the model
+;  data over a map, all winds are from the north.
+;
+  wmsetp("ezf",1)
+  wmstnm(wks,city_lats,city_lons,imdat)
+
+  frame(wks)
+
+end