Changeset 758 for palm/trunk
- Timestamp:
- Sep 15, 2011 12:03:51 PM (13 years ago)
- Location:
- palm/trunk/SCRIPTS/NCL
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r585 r758 1415 1415 end if 1416 1416 1417 check = True1418 v1 =01419 v2 =01420 no_var =01421 n =01422 no_zu1 =01417 check = True 1418 v1 = 0 1419 v2 = 0 1420 no_var = 0 1421 n = 0 1422 no_zu1 = 0 1423 1423 1424 1424 ;**************************************************** … … 1547 1547 1548 1548 do varn=dim-1,0,1 1549 1550 ;if (vector .EQ. 1) then1551 ; check_vec1 = isStrSubset( vec1,","+vNam(varn)+",")1552 ; check_vec2 = isStrSubset( vec2,","+vNam(varn)+",")1553 ;end if1554 1549 1555 1550 if ( vNam(varn) .eq. "zw" .or. vNam(varn) .eq. "yv" .or. \ … … 1630 1625 1631 1626 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 1632 plot=new((/no_time*no_layer*no_var - no_time*(no_layer-1)*no_zu1 \ 1633 + no_time*no_layer/),graphic) 1627 plot=new((/no_time*no_layer/),graphic) 1634 1628 else 1635 1629 plot=new((/no_time*no_layer*no_var - no_time*(no_layer-1)*no_zu1/)\ … … 1839 1833 cs_res@gsnCenterString = "t=" + \ 1840 1834 decimalPlaces(t_all(li)/3600,2,True) +"h z"+level 1841 plot(n) = gsn_csm_contour(wks_ps,\ 1835 1836 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 1837 ;nothing to be done 1838 else 1839 plot(n) = gsn_csm_contour(wks_ps,\ 1842 1840 data(varn,li,lo-los,:,:),cs_res) 1841 end if 1842 1843 1843 1844 if (vector .EQ. 1 .AND. check_vecp) then 1844 1845 vecres = True ; vector only … … 1897 1898 cs_res@gsnCenterString = "t=" + \ 1898 1899 decimalPlaces(t_all(lo)/3600,2,True) + "h z"+ level 1899 1900 plot(n) = gsn_csm_contour(wks_ps,\ 1900 1901 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 1902 ;nothing to be done 1903 else 1904 plot(n) = gsn_csm_contour(wks_ps,\ 1901 1905 data(varn,lo,li-lis,:,:),cs_res) 1906 end if 1907 1902 1908 if (vector .EQ. 1 .AND. check_vecp) then 1903 1909 vecres = True ; vector only … … 1941 1947 cs_res@gsnCenterString = "t=" + \ 1942 1948 decimalPlaces(t_all(li)/3600,2,True) + "h y"+ level 1943 plot(n) = gsn_csm_contour(wks_ps,\ 1949 1950 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 1951 ;nothing to be done 1952 else 1953 plot(n) = gsn_csm_contour(wks_ps,\ 1944 1954 data(varn,li,:,lo-los,:),cs_res) 1955 end if 1956 1945 1957 if (vector .EQ. 1 .AND. check_vecp) then 1946 1958 vecres = True ; vector only … … 1975 1987 cs_res@gsnCenterString = "t=" + \ 1976 1988 decimalPlaces(t_all(lo)/3600,2,True) + "h y"+ level 1977 plot(n) = gsn_csm_contour(wks_ps,\ 1978 data(varn,lo,:,li-lis,:),cs_res) 1989 1990 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 1991 ;nothing to be done 1992 else 1993 plot(n) = gsn_csm_contour(wks_ps,\ 1994 data(varn,lo,:,li-lis,:),cs_res) 1995 end if 1996 1979 1997 if (vector .EQ. 1 .AND. check_vecp) then 1980 1998 vecres = True ; vector only … … 2018 2036 cs_res@gsnCenterString = "t=" + \ 2019 2037 decimalPlaces(t_all(li)/3600,2,True) + "h x"+ level 2020 plot(n) = gsn_csm_contour(wks_ps,\ 2038 2039 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 2040 ;nothing to be done 2041 else 2042 plot(n) = gsn_csm_contour(wks_ps,\ 2021 2043 data(varn,li,:,:,lo-los),cs_res) 2044 end if 2045 2022 2046 if (vector .EQ. 1 .AND. check_vecp) then 2023 2047 vecres = True ; vector only … … 2052 2076 cs_res@gsnCenterString = "t=" + \ 2053 2077 decimalPlaces(t_all(lo)/3600,2,True) + "h x"+ level 2054 plot(n) = gsn_csm_contour(wks_ps,\ 2078 2079 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then 2080 ;nothing to be done 2081 else 2082 plot(n) = gsn_csm_contour(wks_ps,\ 2055 2083 data(varn,lo,:,:,li-lis),cs_res) 2084 end if 2085 2056 2086 if (vector .EQ. 1 .AND. check_vecp)then 2057 2087 vecres = True ; vector only -
palm/trunk/SCRIPTS/NCL/timeseries.ncl
r585 r758 328 328 res@tmYLLabelFont = "helvetica" 329 329 res@xyLineColors = (/237/) 330 res@trXMaxF = t _all(start_time_step)331 res@trXMinF = t _all(end_time_step)330 res@trXMaxF = t(start_time_step) 331 res@trXMinF = t(end_time_step) 332 332 333 333 res@lgLabelFontHeightF = 0.02
Note: See TracChangeset
for help on using the changeset viewer.