Changeset 317 for palm

Timestamp:

May 14, 2009 11:07:55 AM (16 years ago)

Author:

heinze

Message:

Bugfix in timeseries.ncl

File:

• palm/trunk/SCRIPTS/NCL/timeseries.ncl (modified) (2 diffs)

palm/trunk/SCRIPTS/NCL/timeseries.ncl

@@ -358 +358 @@
       end do
 
+      if(comma .eq. 0 .or. comma .eq. 1)
+          print(" ")
+          print("The variables 'var="+var+"'" )
+          print("do not exist on your input file;")
+          print("be sure to have one comma before and after each variable")
+          print(" ")
+          exit
+      end if
+
       indices = new((/comma/), integer)
       comma   = 0
@@ -384 +393 @@
              count_check=count_check+1
            end if
-        end do  
-   
+        end do    
+
         if(count_check .eq. dim)
             print(" ")