Changeset 959 for palm/trunk/SCRIPTS/NCL


Ignore:
Timestamp:
Jul 24, 2012 1:13:41 PM (12 years ago)
Author:
hoffmann
Message:

bugfixes in palmplot and cross_profiles

File:
1 edited

Legend:

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

    r958 r959  
    381381
    382382      ;************************************************************************
    383       ; currently, more than 3 plots cannot be drawn together
     383      ; currently, more than 3 plots cannot be drawn together. the profiles
     384      ; are split to a maximum of 3 plots per panel.
    384385      ;***********************************************************************
    385386
     
    387388         if(number_comb_all(com_i) .GT. 3) then
    388389            print(" ")
    389             print("Currently, it is not possible to plot more than three"+\
    390                   "profiles together. Hence, they are split to a maximum"+\
    391                   "of three profiles per coordinate plane.")
     390            print("Currently, it is not possible to plot more than three "+\
     391                  "profiles together ("+c_var_all(com_i)+"). Hence, they "+\
     392                  "are split to a maximum of three profiles per "+\
     393                  "coordinate plane.")
    392394            print(" ")
    393395            c_var_all_temp = c_var_all
     
    410412            end do
    411413            number_comb_all(com_i+1) = max(dimsizes(c_var_long)) - 3
    412             c_var_all(com_i+2:max_com_i) = c_var_all_temp(com_i+1:max_com_i-1)
    413             number_comb_all(com_i+2:max_com_i) = number_comb_all_temp(com_i+1:max_com_i-1)
     414            if (com_i+2 .le. max_com_i) then
     415               c_var_all(com_i+2:max_com_i) = c_var_all_temp(com_i+1:max_com_i-1)
     416               number_comb_all(com_i+2:max_com_i) = number_comb_all_temp(com_i+1:max_com_i-1)
     417            end if
    414418            delete(c_var_all_temp)
    415419            delete(number_comb_all_temp)
Note: See TracChangeset for help on using the changeset viewer.