Changeset 518 for palm

Timestamp:

Mar 18, 2010 8:40:53 AM (15 years ago)

Author:

heinze

Message:

Bugfix concerning variable time_stride

File:

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

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -1011 +1011 @@
    ; ****************************************************
  
-   if(time_stride .LT. 1)
+   if (time_stride .LT. 1) then
       print(" ")
       print("'time_stride' has to be positive and is set to 1")
@@ -1018 +1018 @@
    end if
 
-   if(time_stride .GE. no_time)
+   if (time_stride .GE. no_time) then
       print(" ")
       print("'time_stride' is greater equal than number of available time steps,")
-      print("only start time step will be plotted then")
-      print(" ")
-      time_stride = no_time
+      print("=> 'time_stride' is set to 1")
+      time_stride = 1
    end if
 
@@ -1754 +1753 @@
             end if
          end if         
-         
-         
+
          if (abs(min(data(varn,:,min_z_int:max_z_int))) .GT. 10)then
             min_value = abs(0.001*min(data(varn,:,min_z_int:max_z_int)))
@@ -1775 +1773 @@
             end if
          end if 
+        
          if (min(data(varn,:,min_z_int:max_z_int)) .EQ. 0 .AND. \
              max(data(varn,:,min_z_int:max_z_int)) .EQ. 0)then