When I try emulating your suggestion (to use Flatten), I get an error message
In[67] = wspdLEVshort3 = Flatten[Table[wspd3d[[klev, jlat, ilon]], {jlat, nlat, 1, -1}, {ilon, 1, nlon, 1}], 1]
Out[67] = {13.7266, 15.414, 21.2157, 24.9529, 30.6142, 31.7384, 32.2047, \
33.6632, 38.2124, 51.1077, 40.0414, 18.06, 17.703, 18.7609, 24.5397, \
31.4082, 37.9464, 42.0565, 43.5092, 42.0817, 51.6718, 52.7562, \
39.4708, 17.4501, 21.3099, 21.0234, 28.2605, 39.5729, 48.4302, \
55.9663, 58.1384, 60.184, 59.1318, 39.6699, 35.4416, 17.9134, \
27.4215, 23.1979, 31.0662, 46.8974, 58.2954, 75.8074, 80.1236, \
71.3519, 50.4602, 40.5332, 42.4953, 15.0675, 33.2243, 27.041, 33.452, \
53.1378, 83.8582, 78.9329, 66.6444, 54.6909, 37.9928, 41.7945, \
47.9264, 11.802, 37.7803, 27.9041, 37.1021, 62.3661, 76.0097, \
60.4854, 47.1717, 33.8486, 36.0846, 43.461, 34.9605, 9.00443, \
41.0756, 31.5089, 41.1696, 70.1772, 62.726, 47.3514, 32.3545, \
33.3947, 42.8117, 48.8211, 23.8703, 14.382, 42.1381, 5031.67, \
44.8849, 66.148, 52.6835, 33.1125, 23.337, 35.1117, 49.8902, 41.995, \
18.2291, 14.5471, 40.3319, 32.73, 46.2485, 58.3091, 36.0893, 21.0668, \
28.6275, 47.8213, 47.8315, 21.2894, 15.0483, 20.5185}
ListContourPlot::arrayerr: {13.7266,15.414,21.2157,24.9529,30.6142,31.7384,32.2047,33.6632,38.2124,51.1077,<<98>>}
must be a valid array.
The full printout is attached. Because of travel I'm only able to work on this slowly.
Joel
Attachments: