Changeset 219
- Timestamp:
- Dec 11, 2008 9:51:22 AM (16 years ago)
- Location:
- palm/trunk/SCRIPTS/NCL
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/ncl_preferences.ncl
r218 r219 814 814 815 815 816 end if 817 ;*************************************************** 818 ; OPTIONAL --legend-- SWITCHES ON A LEGEND 819 ; 820 ; a legend is switched on [=1] or off [=0] 821 ; 822 ; data type: integer 823 ; 824 ; example: legend = 1 825 ; 826 ; default: 1 827 ;*************************************************** 828 if (.not. isvar("legend"))then 829 830 831 legend = 0 832 833 816 834 end if 817 835 ;*************************************************** -
palm/trunk/SCRIPTS/NCL/profiles.ncl
r218 r219 99 99 file_in_1(1) = False 100 100 if (isStrSubset(file_in(1), ".nc"))then 101 start_f_ 1= -2102 end_f_ 1= -2101 start_f_2 = -2 102 end_f_2 = -2 103 103 file_in_1(1) = True 104 104 end if … … 130 130 file_in_1(2) = False 131 131 if (isStrSubset(file_in(2), ".nc"))then 132 start_f_ 1= -2133 end_f_ 1= -2132 start_f_3 = -2 133 end_f_3 = -2 134 134 file_in_1(2) = True 135 135 end if … … 161 161 file_in_1(3) = False 162 162 if (isStrSubset(file_in(3), ".nc"))then 163 start_f_ 1= -2164 end_f_ 1= -2163 start_f_4 = -2 164 end_f_4 = -2 165 165 file_in_1(3) = True 166 166 end if … … 192 192 file_in_1(4) = False 193 193 if (isStrSubset(file_in(4), ".nc"))then 194 start_f_ 1= -2195 end_f_ 1= -2194 start_f_5 = -2 195 end_f_5 = -2 196 196 file_in_1(4) = True 197 197 end if … … 223 223 file_in_1(5) = False 224 224 if (isStrSubset(file_in(5), ".nc"))then 225 start_f_ 1= -2226 end_f_ 1= -2225 start_f_6 = -2 226 end_f_6 = -2 227 227 file_in_1(5) = True 228 228 end if … … 326 326 if (file_in_1(nof))then 327 327 if (isfilepresent(file_in(nof)))then 328 files(0)=file_in 328 files(0)=file_in(nof) 329 329 else 330 330 print(" ") 331 print("1st input file: '"+file_in +"' does not exist")331 print("1st input file: '"+file_in(nof)+"' does not exist") 332 332 print(" ") 333 333 exit … … 926 926 res@lgLabelFont = "helvetica" 927 927 res@tmLabelAutoStride = True 928 res@pmLegendDisplayMode = "Always" 928 if (legend .EQ. 1)then 929 res@pmLegendDisplayMode = "Always" 930 end if 929 931 res@pmLegendSide = "Top" 930 932 res@xyExplicitLegendLabels = legend_label … … 959 961 else 960 962 if (no_files .GT. 1) 961 res@xyMonoDashPattern = True 963 res@xyMonoDashPattern = True 962 964 print(" ") 963 965 print("If you use more than one file, patterns for different timesteps cannot be used") … … 1390 1392 n_o=0 1391 1393 count_var=0 1394 res@xyDashPattern = 1*nof 1392 1395 1393 1396 do varn = 0,dim-1
Note: See TracChangeset
for help on using the changeset viewer.