Changeset 219 for palm/trunk/SCRIPTS/NCL


Ignore:
Timestamp:
Dec 11, 2008 9:51:22 AM (13 years ago)
Author:
letzel
Message:
  • NCL scripts in trunk/SCRIPTS/NCL updated
Location:
palm/trunk/SCRIPTS/NCL
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/NCL/ncl_preferences.ncl

    r218 r219  
    814814         
    815815         
     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         
    816834      end if   
    817835      ;***************************************************
  • palm/trunk/SCRIPTS/NCL/profiles.ncl

    r218 r219  
    9999      file_in_1(1) = False
    100100      if (isStrSubset(file_in(1), ".nc"))then
    101          start_f_1 = -2
    102          end_f_1 = -2
     101         start_f_2 = -2
     102         end_f_2 = -2
    103103         file_in_1(1) = True     
    104104      end if
     
    130130      file_in_1(2) = False
    131131      if (isStrSubset(file_in(2), ".nc"))then
    132          start_f_1 = -2
    133          end_f_1 = -2
     132         start_f_3 = -2
     133         end_f_3 = -2
    134134         file_in_1(2) = True     
    135135      end if
     
    161161      file_in_1(3) = False
    162162      if (isStrSubset(file_in(3), ".nc"))then
    163          start_f_1 = -2
    164          end_f_1 = -2
     163         start_f_4 = -2
     164         end_f_4 = -2
    165165         file_in_1(3) = True     
    166166      end if
     
    192192      file_in_1(4) = False
    193193      if (isStrSubset(file_in(4), ".nc"))then
    194          start_f_1 = -2
    195          end_f_1 = -2
     194         start_f_5 = -2
     195         end_f_5 = -2
    196196         file_in_1(4) = True     
    197197      end if
     
    223223      file_in_1(5) = False
    224224      if (isStrSubset(file_in(5), ".nc"))then
    225          start_f_1 = -2
    226          end_f_1 = -2
     225         start_f_6 = -2
     226         end_f_6 = -2
    227227         file_in_1(5) = True     
    228228      end if
     
    326326   if (file_in_1(nof))then
    327327      if (isfilepresent(file_in(nof)))then
    328          files(0)=file_in
     328         files(0)=file_in(nof)
    329329      else
    330330         print(" ")
    331          print("1st input file: '"+file_in+"' does not exist")
     331         print("1st input file: '"+file_in(nof)+"' does not exist")
    332332         print(" ")
    333333         exit
     
    926926   res@lgLabelFont             = "helvetica"
    927927   res@tmLabelAutoStride       = True
    928    res@pmLegendDisplayMode     = "Always"
     928   if (legend .EQ. 1)then
     929      res@pmLegendDisplayMode     = "Always"
     930   end if
    929931   res@pmLegendSide            = "Top"
    930932   res@xyExplicitLegendLabels  = legend_label
     
    959961   else
    960962      if (no_files .GT. 1)
    961          res@xyMonoDashPattern       = True   
     963         res@xyMonoDashPattern       = True 
    962964         print(" ")
    963965         print("If you use more than one file, patterns for different timesteps cannot be used")
     
    13901392   n_o=0
    13911393   count_var=0
     1394   res@xyDashPattern = 1*nof
    13921395
    13931396   do varn = 0,dim-1
Note: See TracChangeset for help on using the changeset viewer.