Changeset 418 for palm/trunk/SCRIPTS/NCL/cross_sections.ncl
- Timestamp:
- Dec 22, 2009 12:46:23 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r358 r418 6 6 7 7 ;*************************************************** 8 ; load ncl_preferences.ncl8 ; load .ncl.config or .ncl.config.default 9 9 ;*************************************************** 10 10 … … 15 15 return(script) 16 16 end 17 18 if (isfilepresent(" ~/ncl_preferences.ncl")) then19 loadscript(" ~/ncl_preferences.ncl")17 18 if (isfilepresent("$PALM_BIN/../../.ncl.config")) then 19 loadscript("$PALM_BIN/../../.ncl.config") 20 20 else 21 if (isfilepresent(" ~/palm/current_version/trunk/SCRIPTS/NCL/ncl_preferences.ncl")) then22 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") 23 23 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") 26 30 print(" ") 27 31 exit 28 32 end if 29 end if 33 end if 30 34 31 35 begin … … 37 41 if (file_1 .EQ. "File in") then 38 42 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") 40 44 print(" ") 41 45 exit … … 1772 1776 ; *************************************************** 1773 1777 if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec")then 1774 if ( format_out .EQ. "eps" .OR. format_out .EQ. "epsi") then1778 if ((format_out .EQ. "eps" .OR. format_out .EQ. "epsi") .AND. no_time*no_layer*(no_var+1) .gt. no_rows*no_columns) then 1775 1779 gsn_panel(wks_ps,plot(0:(no_time*no_layer*(no_var+1))-1),(/no_var+1,no_layer*no_time/),cs_resP) 1776 1780 print(" ") … … 1787 1791 end if 1788 1792 else 1789 if ( format_out .EQ. "eps" .OR. format_out .EQ. "epsi") then1793 if ((format_out .EQ. "eps" .OR. format_out .EQ. "epsi") .AND. dim_plot .gt. no_rows*no_columns) then 1790 1794 gsn_panel(wks_ps,plot(0:dim_plot-1),(/dim_plot,1/),cs_resP) 1791 1795 print(" ")
Note: See TracChangeset
for help on using the changeset viewer.