Ignore:
Timestamp:
Dec 22, 2009 12:46:23 PM (14 years ago)
Author:
heinze
Message:

ncl_preferences is renamed .ncl.config.default

File:
1 edited

Legend:

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

    r358 r418  
    66
    77;***************************************************
    8 ; load ncl_preferences.ncl
     8; load .ncl.config or .ncl.config.default
    99;***************************************************
    1010
     
    1515   return(script)
    1616end
    17        
    18 if (isfilepresent("~/ncl_preferences.ncl")) then
    19    loadscript("~/ncl_preferences.ncl")
     17
     18if (isfilepresent("$PALM_BIN/../../.ncl.config")) then
     19   loadscript("$PALM_BIN/../../.ncl.config")
    2020else
    21   if (isfilepresent("~/palm/current_version/trunk/SCRIPTS/NCL/ncl_preferences.ncl")) then
    22      loadscript( "~/palm/current_version/trunk/SCRIPTS/NCL/ncl_preferences.ncl")
     21  if (isfilepresent("$PALM_BIN/NCL/.ncl.config.default")) then
     22     loadscript( "$PALM_BIN/NCL/.ncl.config.default")
    2323  else
    24       print(" ")
    25       print("'ncl_preferences.ncl' does not exist in $home or $home/palm/current_version/trunk/SCRIPTS/NCL/")
     24      palm_bin_path = getenv("PALM_BIN")
     25      print(" ")
     26      print("Neither the personal configuration file '.ncl.config' exists in")
     27      print("~/palm/current_version")
     28      print("nor the default configuration file '.ncl.config.default' exists in")
     29      print(palm_bin_path + "/NCL")
    2630      print(" ")
    2731      exit
    2832   end if
    29 end if
     33end if   
    3034
    3135begin
     
    3741   if (file_1 .EQ. "File in") then
    3842      print(" ")
    39       print("Declare input file 'file_1=' in 'ncl_preferences.ncl' or prompt")
     43      print("Declare input file 'file_1=' in '.ncl.config' or prompt")
    4044      print(" ")
    4145      exit
     
    17721776   ; ***************************************************   
    17731777   if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec")then
    1774       if (format_out .EQ. "eps" .OR. format_out .EQ. "epsi") then
     1778      if ((format_out .EQ. "eps" .OR. format_out .EQ. "epsi") .AND. no_time*no_layer*(no_var+1) .gt. no_rows*no_columns) then
    17751779         gsn_panel(wks_ps,plot(0:(no_time*no_layer*(no_var+1))-1),(/no_var+1,no_layer*no_time/),cs_resP)
    17761780         print(" ")
     
    17871791      end if
    17881792   else       
    1789       if (format_out .EQ. "eps" .OR. format_out .EQ. "epsi") then
     1793      if ((format_out .EQ. "eps" .OR. format_out .EQ. "epsi") .AND. dim_plot .gt. no_rows*no_columns) then
    17901794         gsn_panel(wks_ps,plot(0:dim_plot-1),(/dim_plot,1/),cs_resP)
    17911795         print(" ")
Note: See TracChangeset for help on using the changeset viewer.