Changeset 594 for palm/trunk/SCRIPTS/NCL

Timestamp:

Nov 1, 2010 9:59:01 AM (14 years ago)

Author:

heinze

Message:

Enable plot of profiles when data is of kind double in case of no_files > 1

File:

• palm/trunk/SCRIPTS/NCL/profiles.ncl (modified) (6 diffs)

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -124 +124 @@
          exit
       end if      
-      start_f(1) = start_f_2 
-      end_f(1) = end_f_2   
+      start_f_t(1) = start_f_2 
+      end_f_t(1) = end_f_2   
    end if    
     
@@ -157 +157 @@
          exit
       end if      
-      start_f(2) = start_f_3 
-      end_f(2) = end_f_3  
+      start_f_t(2) = start_f_3 
+      end_f_t(2) = end_f_3  
    end if 
    
@@ -190 +190 @@
          exit
       end if      
-      start_f(3) = start_f_4 
-      end_f(3) = end_f_4 
+      start_f_t(3) = start_f_4 
+      end_f_t(3) = end_f_4 
    end if 
    
@@ -223 +223 @@
          exit
       end if      
-      start_f(4) = start_f_5 
-      end_f(4) = end_f_5    
+      start_f_t(4) = start_f_5 
+      end_f_t(4) = end_f_5    
    end if 
    
@@ -256 +256 @@
          exit
       end if      
-      start_f(5) = start_f_6 
-      end_f(5) = end_f_6    
+      start_f_t(5) = start_f_6 
+      end_f_t(5) = end_f_6    
    end if 
 
@@ -585 +585 @@
       if (no_files .GT. 1) then
          multi_plot = new((/no_files,dim/),graphic)
-         max_nof = new((/no_files,dim/),float)
-         min_nof = new((/no_files,dim/),float)
+        if (check_vType) then
+          max_nof = new((/no_files,dim/),double)
+          min_nof = new((/no_files,dim/),double)
+        else
+          max_nof = new((/no_files,dim/),float)
+          min_nof = new((/no_files,dim/),float)
+        end if
          name    = new((/no_files,dim/),string)
          unit_   = new((/no_files,dim/),string)