Changeset 534 for palm/trunk/SCRIPTS
- Timestamp:
- Apr 29, 2010 1:58:28 PM (15 years ago)
- Location:
- palm/trunk/SCRIPTS/NCL
- Files:
-
- 5 edited
-
.ncl.config.default (modified) (1 diff)
-
cross_sections.ncl (modified) (7 diffs)
-
profiles.ncl (modified) (66 diffs)
-
spectra.ncl (modified) (9 diffs)
-
timeseries.ncl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/.ncl.config.default
r532 r534 2192 2192 ; data type: float 2193 2193 ; 2194 ; example: font_size_legend = 0. 22195 ; 2196 ; default: 0. 22194 ; example: font_size_legend = 0.02 2195 ; 2196 ; default: 0.02 2197 2197 ;*************************************************** 2198 2198 if(.not. isvar("font_size_legend"))then 2199 2199 2200 2200 2201 font_size_legend = 0. 22201 font_size_legend = 0.02 2202 2202 2203 2203 -
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r532 r534 1156 1156 cs_res@tmXBLabels = array_xb_labels/norm_x 1157 1157 if (norm_x .NE. 1.)then 1158 cs_res@tiXAxisString = "x ["+unit_x+"]"1158 cs_res@tiXAxisString = "x ("+unit_x+")" 1159 1159 else 1160 cs_res@tiXAxisString = "x [m]"1160 cs_res@tiXAxisString = "x (m)" 1161 1161 end if 1162 1162 if (norm_y .NE. 1.)then 1163 cs_res@tiYAxisString = "y ["+unit_y+"]"1163 cs_res@tiYAxisString = "y ("+unit_y+")" 1164 1164 else 1165 cs_res@tiYAxisString = "y [m]"1165 cs_res@tiYAxisString = "y (m)" 1166 1166 end if 1167 1167 end if … … 1172 1172 cs_res@tmXBLabels = array_xb_labels/norm_x 1173 1173 if (norm_x .NE. 1.)then 1174 cs_res@tiXAxisString = "x ["+unit_x+"]"1174 cs_res@tiXAxisString = "x ("+unit_x+")" 1175 1175 else 1176 cs_res@tiXAxisString = "x [m]"1176 cs_res@tiXAxisString = "x (m)" 1177 1177 end if 1178 1178 if (norm_z .NE. 1.)then 1179 cs_res@tiYAxisString = "z ["+unit_z+"]"1179 cs_res@tiYAxisString = "z ("+unit_z+")" 1180 1180 else 1181 cs_res@tiYAxisString = "z [m]"1181 cs_res@tiYAxisString = "z (m)" 1182 1182 end if 1183 1183 end if … … 1188 1188 cs_res@tmXBLabels = array_xb_labels/norm_y 1189 1189 if (norm_y .NE. 1.)then 1190 cs_res@tiXAxisString = "y ["+unit_y+"]"1190 cs_res@tiXAxisString = "y ("+unit_y+")" 1191 1191 else 1192 cs_res@tiXAxisString = "y [m]"1192 cs_res@tiXAxisString = "y (m)" 1193 1193 end if 1194 1194 if (norm_z .NE. 1.)then 1195 cs_res@tiYAxisString = "z ["+unit_z+"]"1195 cs_res@tiYAxisString = "z ("+unit_z+")" 1196 1196 else 1197 cs_res@tiYAxisString = "z [m]"1197 cs_res@tiYAxisString = "z (m)" 1198 1198 end if 1199 1199 end if … … 1213 1213 end if 1214 1214 if (xyc .EQ. 1)then 1215 cs_res@tiXAxisString = "x [m]"1216 cs_res@tiYAxisString = "y [m]"1215 cs_res@tiXAxisString = "x (m)" 1216 cs_res@tiYAxisString = "y (m)" 1217 1217 end if 1218 1218 if (xzc .EQ. 1)then 1219 cs_res@tiXAxisString = "x [m]"1220 cs_res@tiYAxisString = "z [m]"1219 cs_res@tiXAxisString = "x (m)" 1220 cs_res@tiYAxisString = "z (m)" 1221 1221 end if 1222 1222 if (yzc .EQ. 1)then 1223 cs_res@tiXAxisString = "y [m]"1224 cs_res@tiYAxisString = "z [m]"1223 cs_res@tiXAxisString = "y (m)" 1224 cs_res@tiYAxisString = "z (m)" 1225 1225 end if 1226 1226 end if … … 1558 1558 end if 1559 1559 if (xyc .EQ. 1) then 1560 vecres@tiXAxisString = "x [m]"1561 vecres@tiYAxisString = "y [m]"1560 vecres@tiXAxisString = "x (m)" 1561 vecres@tiYAxisString = "y (m)" 1562 1562 if (sort .EQ. "time")then 1563 1563 plot(n) = gsn_csm_vector(wks_ps,vect1(li,lo-los,:,:),vect2(li,lo-los,:,:),vecres) … … 1567 1567 end if 1568 1568 if (xzc .EQ. 1) then 1569 vecres@tiXAxisString = "x [m]"1570 vecres@tiYAxisString = "z [m]"1569 vecres@tiXAxisString = "x (m)" 1570 vecres@tiYAxisString = "z (m)" 1571 1571 if (sort .EQ. "time")then 1572 1572 plot(n) = gsn_csm_vector(wks_ps,vect1(li,:,lo-los,:),vect2(li,:,lo-los,:),vecres) … … 1576 1576 end if 1577 1577 if (yzc .EQ. 1) then 1578 vecres@tiXAxisString = "y [m]"1579 vecres@tiYAxisString = "z [m]"1578 vecres@tiXAxisString = "y (m)" 1579 vecres@tiYAxisString = "z (m)" 1580 1580 if (sort .EQ. "time")then 1581 1581 plot(n) = gsn_csm_vector(wks_ps,vect1(li,:,:,lo-los),vect2(li,:,:,lo-los),vecres) -
palm/trunk/SCRIPTS/NCL/profiles.ncl
r532 r534 1122 1122 res@pmLegendHeightF = 0.05*np 1123 1123 res@lgLabelFontHeightF = font_size 1124 res@lgTitleString = "Time [h]"1124 res@lgTitleString = "Time (h)" 1125 1125 res@lgTitleFontHeightF = font_size 1126 1126 res@txFontHeightF = font_size … … 1134 1134 end if 1135 1135 if (norm_z .EQ. 1)then 1136 res@tiYAxisString = "Height [m]"1136 res@tiYAxisString = "Height (m)" 1137 1137 else 1138 res@tiYAxisString = "Height / "+norm_z+" [m]"1138 res@tiYAxisString = "Height / "+norm_z+" (m)" 1139 1139 end if 1140 1140 … … 1838 1838 if (over .EQ. 0) then 1839 1839 res@gsnLeftString = vNam(varn) 1840 res@tiXAxisString = " ["+unit(varn)+"]"1840 res@tiXAxisString = "("+unit(varn)+")" 1841 1841 res@gsnRightString = " " 1842 1842 res@trYMinF = min_z … … 1864 1864 else 1865 1865 res@gsnLeftString = vNam(varn) 1866 res@tiXAxisString = " ["+unit(varn)+"]"1866 res@tiXAxisString = "("+unit(varn)+")" 1867 1867 res@gsnRightString = " " 1868 1868 if (xs .EQ. -1) then … … 1888 1888 else 1889 1889 res@gsnLeftString = vNam(varn) 1890 res@tiXAxisString = " ["+unit(varn)+"]"1890 res@tiXAxisString = "("+unit(varn)+")" 1891 1891 res@gsnRightString = " " 1892 1892 if (xs .EQ. -1) then … … 1911 1911 else 1912 1912 res@gsnLeftString = vNam(varn) 1913 res@tiXAxisString = " ["+unit(varn)+"]"1913 res@tiXAxisString = "("+unit(varn)+")" 1914 1914 res@gsnRightString = " " 1915 1915 if (xs .EQ. -1) then … … 1935 1935 else 1936 1936 res@gsnLeftString = vNam(varn) 1937 res@tiXAxisString = " ["+unit(varn)+"]"1937 res@tiXAxisString = "("+unit(varn)+")" 1938 1938 res@gsnRightString = " " 1939 1939 if (xs .EQ. -1) then … … 1958 1958 else 1959 1959 res@gsnLeftString = vNam(varn) 1960 res@tiXAxisString = " ["+unit(varn)+"]"1960 res@tiXAxisString = "("+unit(varn)+")" 1961 1961 res@gsnRightString = " " 1962 1962 if (xs .EQ. -1) then … … 1981 1981 else 1982 1982 res@gsnLeftString = vNam(varn) 1983 res@tiXAxisString = " ["+unit(varn)+"]"1983 res@tiXAxisString = "("+unit(varn)+")" 1984 1984 res@gsnRightString = " " 1985 1985 if (xs .EQ. -1) then … … 2005 2005 else 2006 2006 res@gsnLeftString = vNam(varn) 2007 res@tiXAxisString = " ["+unit(varn)+"]"2007 res@tiXAxisString = "("+unit(varn)+")" 2008 2008 res@gsnRightString = " " 2009 2009 if (xs .EQ. -1) then … … 2028 2028 else 2029 2029 res@gsnLeftString = vNam(varn) 2030 res@tiXAxisString = " ["+unit(varn)+"]"2030 res@tiXAxisString = "("+unit(varn)+")" 2031 2031 res@gsnRightString = " " 2032 2032 if (xs .EQ. -1) then … … 2051 2051 else 2052 2052 res@gsnLeftString = vNam(varn) 2053 res@tiXAxisString = " ["+unit(varn)+"]"2053 res@tiXAxisString = "("+unit(varn)+")" 2054 2054 res@gsnRightString = " " 2055 2055 if (xs .EQ. -1) then … … 2075 2075 else 2076 2076 res@gsnLeftString = vNam(varn) 2077 res@tiXAxisString = " ["+unit(varn)+"]"2077 res@tiXAxisString = "("+unit(varn)+")" 2078 2078 res@gsnRightString = " " 2079 2079 if (xs .EQ. -1) then … … 2098 2098 else 2099 2099 res@gsnLeftString = vNam(varn) 2100 res@tiXAxisString = " ["+unit(varn)+"]"2100 res@tiXAxisString = "("+unit(varn)+")" 2101 2101 res@gsnRightString = " " 2102 2102 if (xs .EQ. -1) then … … 2122 2122 else 2123 2123 res@gsnLeftString = vNam(varn) 2124 res@tiXAxisString = " ["+unit(varn)+"]"2124 res@tiXAxisString = "("+unit(varn)+")" 2125 2125 res@gsnRightString = " " 2126 2126 if (xs .EQ. -1) then … … 2145 2145 else 2146 2146 res@gsnLeftString = vNam(varn) 2147 res@tiXAxisString = " ["+unit(varn)+"]"2147 res@tiXAxisString = "("+unit(varn)+")" 2148 2148 res@gsnRightString = " " 2149 2149 if (xs .EQ. -1) then … … 2169 2169 else 2170 2170 res@gsnLeftString = vNam(varn) 2171 res@tiXAxisString = " ["+unit(varn)+"]"2171 res@tiXAxisString = "("+unit(varn)+")" 2172 2172 res@gsnRightString = " " 2173 2173 if (xs .EQ. -1) then … … 2192 2192 else 2193 2193 res@gsnLeftString = vNam(varn) 2194 res@tiXAxisString = " ["+unit(varn)+"]"2194 res@tiXAxisString = "("+unit(varn)+")" 2195 2195 res@gsnRightString = " " 2196 2196 if (xs .EQ. -1) then … … 2215 2215 else 2216 2216 res@gsnLeftString = vNam(varn) 2217 res@tiXAxisString = " ["+unit(varn)+"]"2217 res@tiXAxisString = "("+unit(varn)+")" 2218 2218 res@gsnRightString = " " 2219 2219 if (xs .EQ. -1) then … … 2239 2239 else 2240 2240 res@gsnLeftString = vNam(varn) 2241 res@tiXAxisString = " ["+unit(varn)+"]"2241 res@tiXAxisString = "("+unit(varn)+")" 2242 2242 res@gsnRightString = " " 2243 2243 if (xs .EQ. -1) then … … 2262 2262 else 2263 2263 res@gsnLeftString = vNam(varn) 2264 res@tiXAxisString = " ["+unit(varn)+"]"2264 res@tiXAxisString = "("+unit(varn)+")" 2265 2265 res@gsnRightString = " " 2266 2266 if (xs .EQ. -1) then … … 2285 2285 else 2286 2286 res@gsnLeftString = vNam(varn) 2287 res@tiXAxisString = " ["+unit(varn)+"]"2287 res@tiXAxisString = "("+unit(varn)+")" 2288 2288 res@gsnRightString = " " 2289 2289 if (xs .EQ. -1) then … … 2309 2309 else 2310 2310 res@gsnLeftString = vNam(varn) 2311 res@tiXAxisString = " ["+unit(varn)+"]"2311 res@tiXAxisString = "("+unit(varn)+")" 2312 2312 res@gsnRightString = " " 2313 2313 if (xs .EQ. -1) then … … 2332 2332 else 2333 2333 res@gsnLeftString = vNam(varn) 2334 res@tiXAxisString = " ["+unit(varn)+"]"2334 res@tiXAxisString = "("+unit(varn)+")" 2335 2335 res@gsnRightString = " " 2336 2336 if (xs .EQ. -1) then … … 2355 2355 else 2356 2356 res@gsnLeftString = vNam(varn) 2357 res@tiXAxisString = " ["+unit(varn)+"]"2357 res@tiXAxisString = "("+unit(varn)+")" 2358 2358 res@gsnRightString = " " 2359 2359 if (xs .EQ. -1) then … … 2379 2379 else 2380 2380 res@gsnLeftString = vNam(varn) 2381 res@tiXAxisString = " ["+unit(varn)+"]"2381 res@tiXAxisString = "("+unit(varn)+")" 2382 2382 res@gsnRightString = " " 2383 2383 if (xs .EQ. -1) then … … 2402 2402 else 2403 2403 res@gsnLeftString = vNam(varn) 2404 res@tiXAxisString = " ["+unit(varn)+"]"2404 res@tiXAxisString = "("+unit(varn)+")" 2405 2405 res@gsnRightString = " " 2406 2406 if (xs .EQ. -1) then … … 2426 2426 else 2427 2427 res@gsnLeftString = vNam(varn) 2428 res@tiXAxisString = " ["+unit(varn)+"]"2428 res@tiXAxisString = "("+unit(varn)+")" 2429 2429 res@gsnRightString = " " 2430 2430 if (xs .EQ. -1) then … … 2449 2449 else 2450 2450 res@gsnLeftString = vNam(varn) 2451 res@tiXAxisString = " ["+unit(varn)+"]"2451 res@tiXAxisString = "("+unit(varn)+")" 2452 2452 res@gsnRightString = " " 2453 2453 if (xs .EQ. -1) then … … 2472 2472 else 2473 2473 res@gsnLeftString = vNam(varn) 2474 res@tiXAxisString = " ["+unit(varn)+"]"2474 res@tiXAxisString = "("+unit(varn)+")" 2475 2475 res@gsnRightString = " " 2476 2476 if (xs .EQ. -1) then … … 2496 2496 else 2497 2497 res@gsnLeftString = vNam(varn) 2498 res@tiXAxisString = " ["+unit(varn)+"]"2498 res@tiXAxisString = "("+unit(varn)+")" 2499 2499 res@gsnRightString = " " 2500 2500 if (xs .EQ. -1) then … … 2519 2519 else 2520 2520 res@gsnLeftString = vNam(varn) 2521 res@tiXAxisString = " ["+unit(varn)+"]"2521 res@tiXAxisString = "("+unit(varn)+")" 2522 2522 res@gsnRightString = " " 2523 2523 if (xs .EQ. -1) then … … 2542 2542 else 2543 2543 res@gsnLeftString = vNam(varn) 2544 res@tiXAxisString = " ["+unit(varn)+"]"2544 res@tiXAxisString = "("+unit(varn)+")" 2545 2545 res@gsnRightString = " " 2546 2546 if (xs .EQ. -1) then … … 2566 2566 else 2567 2567 res@gsnLeftString = vNam(varn) 2568 res@tiXAxisString = " ["+unit(varn)+"]"2568 res@tiXAxisString = "("+unit(varn)+")" 2569 2569 res@gsnRightString = " " 2570 2570 if (xs .EQ. -1) then … … 2589 2589 else 2590 2590 res@gsnLeftString = vNam(varn) 2591 res@tiXAxisString = " ["+unit(varn)+"]"2591 res@tiXAxisString = "("+unit(varn)+")" 2592 2592 res@gsnRightString = " " 2593 2593 if (xs .EQ. -1) then … … 2612 2612 else 2613 2613 res@gsnLeftString = vNam(varn) 2614 res@tiXAxisString = " ["+unit(varn)+"]"2614 res@tiXAxisString = "("+unit(varn)+")" 2615 2615 res@gsnRightString = " " 2616 2616 if (xs .EQ. -1) then … … 2636 2636 else 2637 2637 res@gsnLeftString = vNam(varn) 2638 res@tiXAxisString = " ["+unit(varn)+"]"2638 res@tiXAxisString = "("+unit(varn)+")" 2639 2639 res@gsnRightString = " " 2640 2640 if (xs .EQ. -1) then … … 2659 2659 else 2660 2660 res@gsnLeftString = vNam(varn) 2661 res@tiXAxisString = " ["+unit(varn)+"]"2661 res@tiXAxisString = "("+unit(varn)+")" 2662 2662 res@gsnRightString = " " 2663 2663 if (xs .EQ. -1) then … … 2682 2682 else 2683 2683 res@gsnLeftString = vNam(varn) 2684 res@tiXAxisString = " ["+unit(varn)+"]"2684 res@tiXAxisString = "("+unit(varn)+")" 2685 2685 res@gsnRightString = " " 2686 2686 if (xs .EQ. -1) then … … 2706 2706 else 2707 2707 res@gsnLeftString = vNam(varn) 2708 res@tiXAxisString = " ["+unit(varn)+"]"2708 res@tiXAxisString = "("+unit(varn)+")" 2709 2709 res@gsnRightString = " " 2710 2710 if (xs .EQ. -1) then … … 2729 2729 else 2730 2730 res@gsnLeftString = vNam(varn) 2731 res@tiXAxisString = " ["+unit(varn)+"]"2731 res@tiXAxisString = "("+unit(varn)+")" 2732 2732 res@gsnRightString = " " 2733 2733 if (xs .EQ. -1) then … … 2752 2752 else 2753 2753 res@gsnLeftString = vNam(varn) 2754 res@tiXAxisString = " ["+unit(varn)+"]"2754 res@tiXAxisString = "("+unit(varn)+")" 2755 2755 res@gsnRightString = " " 2756 2756 if (xs .EQ. -1) then … … 2776 2776 else 2777 2777 res@gsnLeftString = vNam(varn) 2778 res@tiXAxisString = " ["+unit(varn)+"]"2778 res@tiXAxisString = "("+unit(varn)+")" 2779 2779 res@gsnRightString = " " 2780 2780 if (xs .EQ. -1) then … … 2799 2799 else 2800 2800 res@gsnLeftString = vNam(varn) 2801 res@tiXAxisString = " ["+unit(varn)+"]"2801 res@tiXAxisString = "("+unit(varn)+")" 2802 2802 res@gsnRightString = " " 2803 2803 if (xs .EQ. -1) then … … 2822 2822 else 2823 2823 res@gsnLeftString = vNam(varn) 2824 res@tiXAxisString = " ["+unit(varn)+"]"2824 res@tiXAxisString = "("+unit(varn)+")" 2825 2825 res@gsnRightString = " " 2826 2826 if (xs .EQ. -1) then … … 2846 2846 else 2847 2847 res@gsnLeftString = vNam(varn) 2848 res@tiXAxisString = " ["+unit(varn)+"]"2848 res@tiXAxisString = "("+unit(varn)+")" 2849 2849 res@gsnRightString = " " 2850 2850 if (xs .EQ. -1) then … … 2869 2869 else 2870 2870 res@gsnLeftString = vNam(varn) 2871 res@tiXAxisString = " ["+unit(varn)+"]"2871 res@tiXAxisString = "("+unit(varn)+")" 2872 2872 res@gsnRightString = " " 2873 2873 if (xs .EQ. -1) then … … 2892 2892 else 2893 2893 res@gsnLeftString = vNam(varn) 2894 res@tiXAxisString = " ["+unit(varn)+"]"2894 res@tiXAxisString = "("+unit(varn)+")" 2895 2895 res@gsnRightString = " " 2896 2896 if (xs .EQ. -1) then … … 3144 3144 3145 3145 res@gsnLeftString = vNam(varn) 3146 res@tiXAxisString = " ["+unit(varn)+"]"3146 res@tiXAxisString = "("+unit(varn)+")" 3147 3147 res@gsnRightString = " " 3148 3148 res@trYMinF = min_z … … 3165 3165 if (u .EQ. 0) then 3166 3166 res@gsnLeftString = "u, v and w" 3167 res@tiXAxisString = " ["+unit(varn)+"]"3167 res@tiXAxisString = "("+unit(varn)+")" 3168 3168 res@gsnRightString = " " 3169 3169 if (xs .EQ. -1) then … … 3215 3215 if (pt .EQ. 0) then 3216 3216 res@gsnLeftString = "pt, vpt and lpt" 3217 res@tiXAxisString = " ["+unit(varn)+"]"3217 res@tiXAxisString = "("+unit(varn)+")" 3218 3218 res@gsnRightString = " " 3219 3219 if (xs .EQ. -1) then … … 3264 3264 if (q .EQ. 0) then 3265 3265 res@gsnLeftString = "q, qv and ql" 3266 res@tiXAxisString = " ["+unit(varn)+"]"3266 res@tiXAxisString = "("+unit(varn)+")" 3267 3267 res@gsnRightString = " " 3268 3268 if (xs .EQ. -1) then … … 3314 3314 if (e .EQ. 0) then 3315 3315 res@gsnLeftString = "e and e*" 3316 res@tiXAxisString = " ["+unit(varn)+"]"3316 res@tiXAxisString = "("+unit(varn)+")" 3317 3317 res@gsnRightString = " " 3318 3318 if (xs .EQ. -1) then … … 3360 3360 if (km .EQ. 0) then 3361 3361 res@gsnLeftString = "km and kh" 3362 res@tiXAxisString = " ["+unit(varn)+"]"3362 res@tiXAxisString = "("+unit(varn)+")" 3363 3363 res@gsnRightString = " " 3364 3364 if (xs .EQ. -1) then … … 3408 3408 if (wpup .EQ. 0) then 3409 3409 res@gsnLeftString = "w"+dq+"u"+dq+", w*u* and wu" 3410 res@tiXAxisString = " ["+unit(varn)+"]"3410 res@tiXAxisString = "("+unit(varn)+")" 3411 3411 res@gsnRightString = " " 3412 3412 if (xs .EQ. -1) then … … 3458 3458 if (wpvp .EQ. 0) then 3459 3459 res@gsnLeftString = "w"+dq+"v"+dq+", w*v* and wv" 3460 res@tiXAxisString = " ["+unit(varn)+"]"3460 res@tiXAxisString = "("+unit(varn)+")" 3461 3461 res@gsnRightString = " " 3462 3462 if (xs .EQ. -1) then … … 3508 3508 if (wpptp .EQ. 0) then 3509 3509 res@gsnLeftString = "w"+dq+"pt"+dq+", w*pt* and wpt" 3510 res@tiXAxisString = " ["+unit(varn)+"]"3510 res@tiXAxisString = "("+unit(varn)+")" 3511 3511 res@gsnRightString = " " 3512 3512 if (xs .EQ. -1) then … … 3557 3557 if (wsptsBC .EQ. 0) then 3558 3558 res@gsnLeftString = "w*pt*BC and wptBC" 3559 res@tiXAxisString = " ["+unit(varn)+"]"3559 res@tiXAxisString = "("+unit(varn)+")" 3560 3560 res@gsnRightString = " " 3561 3561 if (xs .EQ. -1) then … … 3604 3604 if (wpvptp .EQ. 0) then 3605 3605 res@gsnLeftString = "w"+dq+"vpt"+dq+", w*vpt* and wvpt" 3606 res@tiXAxisString = " ["+unit(varn)+"]"3606 res@tiXAxisString = "("+unit(varn)+")" 3607 3607 res@gsnRightString = " " 3608 3608 if (xs .EQ. -1) then … … 3654 3654 if (wpqp .EQ. 0) then 3655 3655 res@gsnLeftString = "w"+dq+"q"+dq+", w*q* and wq" 3656 res@tiXAxisString = " ["+unit(varn)+"]"3656 res@tiXAxisString = "("+unit(varn)+")" 3657 3657 res@gsnRightString = " " 3658 3658 if (xs .EQ. -1) then … … 3704 3704 if (wpqvp .EQ. 0) then 3705 3705 res@gsnLeftString ="w"+dq+"qv"+dq+" , w*qv* and wqv" 3706 res@tiXAxisString = " ["+unit(varn)+"]"3706 res@tiXAxisString = "("+unit(varn)+")" 3707 3707 res@gsnRightString = " " 3708 3708 if (xs .EQ. -1) then … … 3754 3754 if (wpsp .EQ. 0) then 3755 3755 res@gsnLeftString = "w"+dq+"s"+dq+", w*s* and ws" 3756 res@tiXAxisString = " ["+unit(varn)+"]"3756 res@tiXAxisString = "("+unit(varn)+")" 3757 3757 res@gsnRightString = " " 3758 3758 if (xs .EQ. -1) then … … 3804 3804 if (wpsap .EQ. 0) then 3805 3805 res@gsnLeftString = "w"+dq+"sa"+dq+", w*sa* and wsa" 3806 res@tiXAxisString = " ["+unit(varn)+"]"3806 res@tiXAxisString = "("+unit(varn)+")" 3807 3807 res@gsnRightString = " " 3808 3808 if (xs .EQ. -1) then … … 3855 3855 if (us2 .EQ. 0) then 3856 3856 res@gsnLeftString = "u*2, v*2 and w*2" 3857 res@tiXAxisString = " ["+unit(varn)+"]"3857 res@tiXAxisString = "("+unit(varn)+")" 3858 3858 res@gsnRightString = " " 3859 3859 if (xs .EQ. -1) then … … 3906 3906 if (wsususodz .EQ. 0) then 3907 3907 res@gsnLeftString = "w*u*u*:dz, w*p*:dz and w"+dq+"e:dz" 3908 res@tiXAxisString = " ["+unit(varn)+"]"3908 res@tiXAxisString = "("+unit(varn)+")" 3909 3909 res@gsnRightString = " " 3910 3910 if (xs .EQ. -1) then … … 4028 4028 res@xyDashPattern = 0 4029 4029 res@gsnLeftString = "Combined Plot of "+c_var 4030 res@tiXAxisString = " ["+unit(varn)+"]"4030 res@tiXAxisString = "("+unit(varn)+")" 4031 4031 res@gsnRightString = " " 4032 4032 if (xs .EQ. -1) then -
palm/trunk/SCRIPTS/NCL/spectra.ncl
r532 r534 401 401 plot = new(dim*dimz,graphic) 402 402 np=dimt 403 res@lgTitleString = "Time [h]"403 res@lgTitleString = "Time (h)" 404 404 else 405 405 plot = new(dim*dimt,graphic) … … 463 463 a=getvardims(temp_att) 464 464 b=dimsizes(a) 465 delete(temp_att) 465 466 466 467 if (height_level(0) .NE. -1)then … … 506 507 end do 507 508 if (norm_x .NE. 1.)then 508 res@tiXAxisString = "k~B~x~N~ ["+unit_x+"]"509 res@tiXAxisString = "k~B~x~N~ ("+unit_x+")" 509 510 else 510 511 if (norm_height .EQ. 1)then 511 res@tiXAxisString = "k~B~x~N~ x z [1]"512 res@tiXAxisString = "k~B~x~N~ x z (1" 512 513 else 513 res@tiXAxisString = "k~B~x~N~ [1/m]"514 res@tiXAxisString = "k~B~x~N~ (1/m)" 514 515 end if 515 516 end if … … 522 523 end do 523 524 if (norm_x .NE. 1.)then 524 res@tiXAxisString = "k~B~x~N~ ["+unit_x+"]"525 res@tiXAxisString = "k~B~x~N~ ("+unit_x+")" 525 526 else 526 527 if (norm_height .EQ. 1)then 527 res@tiXAxisString = "k~B~x~N~ x z [1]"528 res@tiXAxisString = "k~B~x~N~ x z (1)" 528 529 else 529 res@tiXAxisString = "k~B~x~N~ [1/m]"530 res@tiXAxisString = "k~B~x~N~ (1/m)" 530 531 end if 531 532 end if … … 557 558 res@gsnLeftString = vNam(varn) 558 559 res@gsnRightString = "Height = "+z(p)+"m" 559 res@tiYAxisString = " ["+unit_y+"]"560 res@tiYAxisString = "("+unit_y+")" 560 561 res@xyExplicitLegendLabels = legend_label 561 562 if (norm_height .EQ. 1)then … … 596 597 end if 597 598 if (q .EQ. 0)then 598 res@tiYAxisString = " ["+unit_y+"]"599 res@tiYAxisString = "("+unit_y+")" 599 600 res@gsnLeftString = vNam(varn) 600 601 res@gsnRightString = "Time = "+legend_label(p)+"h" … … 617 618 lgres@lgLineColors = color 618 619 end if 619 lgres@lgTitleString = "Height [m]"620 lgres@lgTitleString = "Height (m)" 620 621 lgres@lgLabelFont = "helvetica" 621 lgres@lgLabelFontHeightF = font_size_legend 622 lgres@lgLabelFontHeightF = font_size_legend*6 622 623 lgres@lgTitleFontHeightF = font_size 623 624 lgres@vpWidthF = 0.12 624 lgres@vpHeightF = font_size_legend /5*dimz625 lgres@vpHeightF = font_size_legend*(dimz+3) 625 626 626 627 lbid = gsn_create_legend(wks,dimz,legend_label_z,lgres) … … 669 670 resP@txFontHeightF = 0.015 670 671 672 no_frames = 0 673 671 674 if ((format_out .EQ. "eps" .OR. format_out .EQ. "epsi") .AND. n .gt. no_rows*no_columns) then 672 675 gsn_panel(wks,plot,(/n,1/),resP) … … 678 681 if( (i+no_rows*no_columns) .gt. (n-1)) then 679 682 gsn_panel(wks,plot(i:n-1),(/no_rows,no_columns/),resP) 683 no_frames = no_frames + 1 680 684 else 681 gsn_panel(wks,plot(i:i+no_rows*no_columns-1),(/no_rows,no_columns/),resP) 685 gsn_panel(wks,plot(i:i+no_rows*no_columns-1),(/no_rows,no_columns/),resP) 686 no_frames = no_frames + 1 682 687 end if 683 688 end do -
palm/trunk/SCRIPTS/NCL/timeseries.ncl
r532 r534 606 606 res@gsnRightString = unit(varn) 607 607 if (norm_t .NE. 1.)then 608 res@tiXAxisString = "t ["+unit_t+"]"608 res@tiXAxisString = "t ("+unit_t+")" 609 609 else 610 res@tiXAxisString = "t [s]"610 res@tiXAxisString = "t (s)" 611 611 end if 612 612 res@tiYAxisString = " " … … 1192 1192 1193 1193 if (norm_t .NE. 1.)then 1194 res@tiXAxisString = "t ["+unit_t+"]"1194 res@tiXAxisString = "t ("+unit_t+")" 1195 1195 else 1196 res@tiXAxisString = "t [s]"1196 res@tiXAxisString = "t (s)" 1197 1197 end if 1198 1198 res@tiYAxisString = " "
Note: See TracChangeset
for help on using the changeset viewer.
