Changeset 827 for palm/trunk/SCRIPTS/NCL/spectra.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/spectra.ncl (modified) (1 diff)

palm/trunk/SCRIPTS/NCL/spectra.ncl

@@ -220 +220 @@
    t_all = f[:]->time
    nt    = dimsizes(t_all)
-   delta_t=t_all(nt-1)/nt
+
+   if (nt .EQ. 1)then
+      delta_t=t_all(nt-1)/nt
+   else
+      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
    
    k_x=f_att->k_x