Ignore:
Timestamp:
Feb 20, 2012 1:09:00 PM (10 years ago)
Author:
heinze
Message:

allow plotting of data with very small time increments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/NCL/profiles.ncl

    r783 r827  
    10101010   nt    = dimsizes(t_all)
    10111011
    1012    
    10131012   if (nt .EQ. 1)then
    10141013      delta_t=t_all(nt-1)/nt
    10151014   else
    1016       delta_t=(t_all(nt-1)-t_all(0))/(nt-1)
    1017    end if
     1015      delta_t_array = new(nt-1,double)
     1016
     1017      do i=0,nt-2
     1018         delta_t_array(i) = t_all(i+1)-t_all(i)
     1019      end do
     1020
     1021      delta_t = min(delta_t_array)
     1022      delete(delta_t_array)
     1023   end if
     1024
    10181025
    10191026   ; ****************************************************       
     
    12051212   resP                        = True
    12061213   resP@txFont                 = "helvetica"
    1207    resP@txString               = f_att@title
     1214   ;resP@txString               = f_att@title
    12081215   resP@txFuncCode             = "~"
    12091216   resP@txFontHeightF          = 0.015
Note: See TracChangeset for help on using the changeset viewer.