Changeset 594 for palm


Ignore:
Timestamp:
Nov 1, 2010 9:59:01 AM (14 years ago)
Author:
heinze
Message:

Enable plot of profiles when data is of kind double in case of no_files > 1

File:
1 edited

Legend:

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

    r593 r594  
    124124         exit
    125125      end if     
    126       start_f(1) = start_f_2
    127       end_f(1) = end_f_2   
     126      start_f_t(1) = start_f_2
     127      end_f_t(1) = end_f_2   
    128128   end if   
    129129   
     
    157157         exit
    158158      end if     
    159       start_f(2) = start_f_3
    160       end_f(2) = end_f_3 
     159      start_f_t(2) = start_f_3
     160      end_f_t(2) = end_f_3 
    161161   end if
    162162   
     
    190190         exit
    191191      end if     
    192       start_f(3) = start_f_4
    193       end_f(3) = end_f_4
     192      start_f_t(3) = start_f_4
     193      end_f_t(3) = end_f_4
    194194   end if
    195195   
     
    223223         exit
    224224      end if     
    225       start_f(4) = start_f_5
    226       end_f(4) = end_f_5   
     225      start_f_t(4) = start_f_5
     226      end_f_t(4) = end_f_5   
    227227   end if
    228228   
     
    256256         exit
    257257      end if     
    258       start_f(5) = start_f_6
    259       end_f(5) = end_f_6   
     258      start_f_t(5) = start_f_6
     259      end_f_t(5) = end_f_6   
    260260   end if
    261261
     
    585585      if (no_files .GT. 1) then
    586586         multi_plot = new((/no_files,dim/),graphic)
    587          max_nof = new((/no_files,dim/),float)
    588          min_nof = new((/no_files,dim/),float)
     587        if (check_vType) then
     588          max_nof = new((/no_files,dim/),double)
     589          min_nof = new((/no_files,dim/),double)
     590        else
     591          max_nof = new((/no_files,dim/),float)
     592          min_nof = new((/no_files,dim/),float)
     593        end if
    589594         name    = new((/no_files,dim/),string)
    590595         unit_   = new((/no_files,dim/),string)
Note: See TracChangeset for help on using the changeset viewer.