Changeset 219 for palm/trunk/SCRIPTS

Timestamp:

Dec 11, 2008 9:51:22 AM (16 years ago)

Author:

letzel

Message:

• NCL scripts in trunk/SCRIPTS/NCL updated

Location:

palm/trunk/SCRIPTS/NCL

Files:

• ncl_preferences.ncl (modified) (1 diff)
• profiles.ncl (modified) (9 diffs)

palm/trunk/SCRIPTS/NCL/ncl_preferences.ncl

@@ -814 +814 @@
          
          
+      end if
+      ;***************************************************
+      ; OPTIONAL --legend-- SWITCHES ON A LEGEND
+      ;
+      ; a legend is switched on [=1] or off [=0]
+      ;
+      ; data type: integer 
+      ; 
+      ; example: legend = 1 
+      ;
+      ; default:   1
+      ;***************************************************
+      if (.not. isvar("legend"))then
+      
+         
+         legend = 0 
+         
+         
       end if    
       ;***************************************************

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -99 +99 @@
       file_in_1(1) = False
       if (isStrSubset(file_in(1), ".nc"))then
-         start_f_1 = -2
-         end_f_1 = -2 
+         start_f_2 = -2
+         end_f_2 = -2 
          file_in_1(1) = True     
       end if
@@ -130 +130 @@
       file_in_1(2) = False
       if (isStrSubset(file_in(2), ".nc"))then
-         start_f_1 = -2
-         end_f_1 = -2 
+         start_f_3 = -2
+         end_f_3 = -2 
          file_in_1(2) = True     
       end if
@@ -161 +161 @@
       file_in_1(3) = False
       if (isStrSubset(file_in(3), ".nc"))then
-         start_f_1 = -2
-         end_f_1 = -2 
+         start_f_4 = -2
+         end_f_4 = -2 
          file_in_1(3) = True     
       end if
@@ -192 +192 @@
       file_in_1(4) = False
       if (isStrSubset(file_in(4), ".nc"))then
-         start_f_1 = -2
-         end_f_1 = -2 
+         start_f_5 = -2
+         end_f_5 = -2 
          file_in_1(4) = True     
       end if
@@ -223 +223 @@
       file_in_1(5) = False
       if (isStrSubset(file_in(5), ".nc"))then
-         start_f_1 = -2
-         end_f_1 = -2 
+         start_f_6 = -2
+         end_f_6 = -2 
          file_in_1(5) = True     
       end if
@@ -326 +326 @@
    if (file_in_1(nof))then
       if (isfilepresent(file_in(nof)))then
-         files(0)=file_in
+         files(0)=file_in(nof)
       else
          print(" ")
-         print("1st input file: '"+file_in+"' does not exist")
+         print("1st input file: '"+file_in(nof)+"' does not exist")
          print(" ")
          exit
@@ -926 +926 @@
    res@lgLabelFont             = "helvetica"
    res@tmLabelAutoStride       = True
-   res@pmLegendDisplayMode     = "Always"
+   if (legend .EQ. 1)then
+      res@pmLegendDisplayMode     = "Always"
+   end if
    res@pmLegendSide            = "Top"
    res@xyExplicitLegendLabels  = legend_label
@@ -959 +961 @@
    else
       if (no_files .GT. 1)
-         res@xyMonoDashPattern       = True   
+         res@xyMonoDashPattern       = True  
          print(" ") 
          print("If you use more than one file, patterns for different timesteps cannot be used")
@@ -1390 +1392 @@
    n_o=0
    count_var=0
+   res@xyDashPattern = 1*nof
 
    do varn = 0,dim-1