Changeset 1126


Ignore:
Timestamp:
Apr 10, 2013 5:07:24 PM (10 years ago)
Author:
hoffmann
Message:

bugfixes in palmplot pr

File:
1 edited

Legend:

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

    r963 r1126  
    293293      print(" ")
    294294   end if
     295   if (no_files .GT. 1 .AND. var .EQ. ",cross_profiles,") then
     296      var = "all"
     297      print(" ")
     298      print("If you have more than one input file - you cannot combine "+\
     299            "profiles with cross_profiles ")
     300      print(" ")
     301   end if
    295302
    296303   ;************************************************************************
     
    326333   ; check if cross_profiles can be used
    327334   ;************************************************************************
    328 
    329    if ((var .EQ. ",cross_profiles,") .AND. cross_check .AND. (over .EQ. 0) .AND. (no_files .LT. 2)) then
     335   
     336   VAR_LIST = firstfile@VAR_LIST
     337   if ( var .EQ. ",cross_profiles," .AND. str_fields_count(VAR_LIST,"_") \
     338        .GT. str_fields_count(VAR_LIST,";") ) then
     339       var = "all"
     340       print(" ")
     341       print("It is not possible to use var='cross_profiles' for"+\
     342             " statistic regions. Using var='all' instead.")
     343       print(" ")
     344   end if
     345
     346   if ( var .EQ. ",cross_profiles," .AND. cross_check .AND. (over .EQ. 0) \
     347       .AND. (no_files .LT. 2)) then
    330348      c_var_log = 1
    331349   else
     
    535553      do nof=0,no_files-1
    536554
    537 if (com_i .EQ. 0)
    538 
     555      if (com_i .EQ. 0)
    539556      files=new(end_f_t(nof)-start_f_t(nof)+1,string)
    540557      if (file_in_1(nof))then
     
    643660      end do
    644661     
    645 end if
    646 
    647       if (var .NE. "all") then
     662      end if
     663
     664      if (var .NE. "all" ) then
    648665          ;rearrange the order of the variables in vNam so that the variables
    649666          ;specified by "var" are in the top of vNam
     
    33783395
    33793396            if (no_files .GT. 1) then
    3380                 print("nof="+nof+" und n="+n)
     3397;               print("nof="+nof+" und n="+n)
    33813398                multi_plot(nof,n)=plot(n)
    33823399                max_nof(nof,n)=max(data(varn,:,min_z_int:max_z_int))
Note: See TracChangeset for help on using the changeset viewer.