Changeset 1126 for palm/trunk/SCRIPTS

Timestamp:

Apr 10, 2013 5:07:24 PM (11 years ago)

Author:

hoffmann

Message:

bugfixes in palmplot pr

File:

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

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -293 +293 @@
       print(" ")
    end if
+   if (no_files .GT. 1 .AND. var .EQ. ",cross_profiles,") then
+      var = "all"
+      print(" ")
+      print("If you have more than one input file - you cannot combine "+\
+            "profiles with cross_profiles ")
+      print(" ")
+   end if
 
    ;************************************************************************
@@ -326 +333 @@
    ; check if cross_profiles can be used
    ;************************************************************************
-
-   if ((var .EQ. ",cross_profiles,") .AND. cross_check .AND. (over .EQ. 0) .AND. (no_files .LT. 2)) then 
+   
+   VAR_LIST = firstfile@VAR_LIST
+   if ( var .EQ. ",cross_profiles," .AND. str_fields_count(VAR_LIST,"_") \
+        .GT. str_fields_count(VAR_LIST,";") ) then
+       var = "all"
+       print(" ")
+       print("It is not possible to use var='cross_profiles' for"+\
+             " statistic regions. Using var='all' instead.")
+       print(" ")
+   end if
+
+   if ( var .EQ. ",cross_profiles," .AND. cross_check .AND. (over .EQ. 0) \
+       .AND. (no_files .LT. 2)) then 
       c_var_log = 1
    else
@@ -535 +553 @@
       do nof=0,no_files-1
 
-if (com_i .EQ. 0)
-
+      if (com_i .EQ. 0)
       files=new(end_f_t(nof)-start_f_t(nof)+1,string)
       if (file_in_1(nof))then
@@ -643 +660 @@
       end do
       
-end if
-
-      if (var .NE. "all") then
+      end if
+
+      if (var .NE. "all" ) then
           ;rearrange the order of the variables in vNam so that the variables 
           ;specified by "var" are in the top of vNam
@@ -3378 +3395 @@
 
             if (no_files .GT. 1) then
-                print("nof="+nof+" und n="+n)
+;               print("nof="+nof+" und n="+n)
                 multi_plot(nof,n)=plot(n) 
                 max_nof(nof,n)=max(data(varn,:,min_z_int:max_z_int))