Changeset 827 for palm/trunk/SCRIPTS/NCL/profiles.ncl

Timestamp:

Feb 20, 2012 1:09:00 PM (12 years ago)

Author:

heinze

Message:

allow plotting of data with very small time increments

File:

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

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -1010 +1010 @@
    nt    = dimsizes(t_all)
 
-   
    if (nt .EQ. 1)then
       delta_t=t_all(nt-1)/nt
    else
-      delta_t=(t_all(nt-1)-t_all(0))/(nt-1)
-   end if
+      delta_t_array = new(nt-1,double)
+
+      do i=0,nt-2
+         delta_t_array(i) = t_all(i+1)-t_all(i)
+      end do
+
+      delta_t = min(delta_t_array)
+      delete(delta_t_array)
+   end if
+
 
    ; ****************************************************       
@@ -1205 +1212 @@
    resP                        = True
    resP@txFont                 = "helvetica"
-   resP@txString               = f_att@title
+   ;resP@txString               = f_att@title
    resP@txFuncCode             = "~"
    resP@txFontHeightF          = 0.015