Changeset 1559 for palm/trunk/SCRIPTS/NCL
- Timestamp:
- Mar 6, 2015 8:22:12 AM (9 years ago)
- Location:
- palm/trunk/SCRIPTS/NCL
- Files:
-
- 4 edited
-
cross_sections.ncl (modified) (3 diffs)
-
profiles.ncl (modified) (3 diffs)
-
spectra.ncl (modified) (3 diffs)
-
timeseries.ncl (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r1248 r1559 6 6 7 7 ;*************************************************** 8 ; load .ncl.config or .ncl.config.default8 ; Checking the kind of the script 9 9 ;*************************************************** 10 10 … … 12 12 local script 13 13 begin 14 script ="cross_section"14 script = "cross_section" 15 15 return(script) 16 16 end 17 17 18 if (isfilepresent("$PALM_BIN/../../.ncl.config")) then 18 ;*************************************************** 19 ; Retrieving the NCL version used 20 ;*************************************************** 21 22 ncl_version_ch = systemfunc("ncl -V") 23 ncl_version = stringtofloat(ncl_version_ch) 24 25 ;*************************************************** 26 ; Function for checking file existence in dependence 27 ; on NCL version 28 ;*************************************************** 29 30 function file_exists(version:string,file_name:string) 31 begin 32 if( version .EQ. "6.2.1" ) then 33 existing = fileexists(file_name) 34 else 35 existing = isfilepresent(file_name) 36 end if 37 return(existing) 38 end 39 40 ;*************************************************** 41 ; load .ncl.config or .ncl.config.default 42 ;*************************************************** 43 44 file_name ="$PALM_BIN/../../.ncl.config" 45 existing_file = file_exists(ncl_version_ch,file_name) 46 47 if (existing_file) then 19 48 loadscript("$PALM_BIN/../../.ncl.config") 20 49 else 21 if (isfilepresent("$PALM_BIN/NCL/.ncl.config.default")) then 22 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 23 else 50 file_name = "$PALM_BIN/NCL/.ncl.config.default" 51 existing_file = file_exists(ncl_version_ch,file_name) 52 if (existing_file) then 53 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 54 else 24 55 palm_bin_path = getenv("PALM_BIN") 25 56 print(" ") … … 32 63 exit 33 64 end if 34 end if 65 end if 35 66 36 67 begin 37 38 ;***************************************************39 ; Retrieving the NCL version used40 ;***************************************************41 42 ncl_version_ch = systemfunc("ncl -V")43 ncl_version = stringtofloat(ncl_version_ch)44 68 45 69 ; *************************************************** -
palm/trunk/SCRIPTS/NCL/profiles.ncl
r1528 r1559 4 4 5 5 ;*************************************************** 6 ; load .ncl.config or .ncl.config.default6 ; Checking the kind of the script 7 7 ;*************************************************** 8 8 … … 10 10 local script 11 11 begin 12 script ="profiles"12 script = "profiles" 13 13 return(script) 14 14 end 15 16 ;*************************************************** 17 ; Retrieving the NCL version used 18 ;*************************************************** 15 19 16 if (isfilepresent("$PALM_BIN/../../.ncl.config")) then 20 ncl_version_ch = systemfunc("ncl -V") 21 ncl_version = stringtofloat(ncl_version_ch) 22 23 ;*************************************************** 24 ; Function for checking file existence in dependence 25 ; on NCL version 26 ;*************************************************** 27 28 function file_exists(version:string,file_name:string) 29 begin 30 if( version .EQ. "6.2.1" ) then 31 existing = fileexists(file_name) 32 else 33 existing = isfilepresent(file_name) 34 end if 35 return(existing) 36 end 37 38 ;*************************************************** 39 ; load .ncl.config or .ncl.config.default 40 ;*************************************************** 41 42 file_name ="$PALM_BIN/../../.ncl.config" 43 existing_file = file_exists(ncl_version_ch,file_name) 44 45 if (existing_file) then 17 46 loadscript("$PALM_BIN/../../.ncl.config") 18 47 else 19 if (isfilepresent("$PALM_BIN/NCL/.ncl.config.default")) then 20 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 21 else 48 file_name = "$PALM_BIN/NCL/.ncl.config.default" 49 existing_file = file_exists(ncl_version_ch,file_name) 50 if (existing_file) then 51 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 52 else 22 53 palm_bin_path = getenv("PALM_BIN") 23 54 print(" ") … … 30 61 exit 31 62 end if 32 end if 63 end if 33 64 34 65 35 66 begin 36 37 ;***************************************************38 ; Retrieving the NCL version used39 ;***************************************************40 41 ncl_version_ch = systemfunc("ncl -V")42 ncl_version = stringtofloat(ncl_version_ch)43 67 44 68 ;*************************************************** -
palm/trunk/SCRIPTS/NCL/spectra.ncl
r1527 r1559 4 4 5 5 ;*************************************************** 6 ; load .ncl.config or .ncl.config.default6 ; Checking the kind of the script 7 7 ;*************************************************** 8 8 … … 10 10 local script 11 11 begin 12 script ="spectra"12 script = "spectra" 13 13 return(script) 14 14 end 15 16 if (isfilepresent("$PALM_BIN/../../.ncl.config")) then 15 16 ;*************************************************** 17 ; Retrieving the NCL version used 18 ;*************************************************** 19 20 ncl_version_ch = systemfunc("ncl -V") 21 ncl_version = stringtofloat(ncl_version_ch) 22 23 ;*************************************************** 24 ; Function for checking file existence in dependence 25 ; on NCL version 26 ;*************************************************** 27 28 function file_exists(version:string,file_name:string) 29 begin 30 if( version .EQ. "6.2.1" ) then 31 existing = fileexists(file_name) 32 else 33 existing = isfilepresent(file_name) 34 end if 35 return(existing) 36 end 37 38 ;*************************************************** 39 ; load .ncl.config or .ncl.config.default 40 ;*************************************************** 41 42 file_name ="$PALM_BIN/../../.ncl.config" 43 existing_file = file_exists(ncl_version_ch,file_name) 44 45 if (existing_file) then 17 46 loadscript("$PALM_BIN/../../.ncl.config") 18 47 else 19 if (isfilepresent("$PALM_BIN/NCL/.ncl.config.default")) then 20 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 21 else 48 file_name = "$PALM_BIN/NCL/.ncl.config.default" 49 existing_file = file_exists(ncl_version_ch,file_name) 50 if (existing_file) then 51 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 52 else 22 53 palm_bin_path = getenv("PALM_BIN") 23 54 print(" ") … … 30 61 exit 31 62 end if 32 end if 63 end if 33 64 34 65 begin 35 36 ;***************************************************37 ; Retrieving the NCL version used38 ;***************************************************39 40 ncl_version_ch = systemfunc("ncl -V")41 ncl_version = stringtofloat(ncl_version_ch)42 66 43 67 ;*************************************************** -
palm/trunk/SCRIPTS/NCL/timeseries.ncl
r1248 r1559 3 3 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl" 4 4 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl" 5 5 6 ;*************************************************** 7 ; Checking the kind of the script 8 ;*************************************************** 9 10 function which_script() 11 local script 12 begin 13 script = "timeseries" 14 return(script) 15 end 16 17 ;*************************************************** 18 ; Retrieving the NCL version used 19 ;*************************************************** 20 21 ncl_version_ch = systemfunc("ncl -V") 22 ncl_version = stringtofloat(ncl_version_ch) 23 24 ;*************************************************** 25 ; Function for checking file existence in dependence 26 ; on NCL version 27 ;*************************************************** 28 29 function file_exists(version:string,file_name:string) 30 begin 31 if( version .EQ. "6.2.1" ) then 32 existing = fileexists(file_name) 33 else 34 existing = isfilepresent(file_name) 35 end if 36 return(existing) 37 end 38 6 39 ;*************************************************** 7 40 ; load .ncl.config or .ncl.config.default 8 41 ;*************************************************** 9 10 function which_script() 11 local script 12 begin 13 script="timeseries" 14 return(script) 15 end 16 17 if (isfilepresent("$PALM_BIN/../../.ncl.config")) then 42 43 file_name ="$PALM_BIN/../../.ncl.config" 44 existing_file = file_exists(ncl_version_ch,file_name) 45 46 if (existing_file) then 18 47 loadscript("$PALM_BIN/../../.ncl.config") 19 48 else 20 if (isfilepresent("$PALM_BIN/NCL/.ncl.config.default")) then 21 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 22 else 49 file_name = "$PALM_BIN/NCL/.ncl.config.default" 50 existing_file = file_exists(ncl_version_ch,file_name) 51 if (existing_file) then 52 loadscript( "$PALM_BIN/NCL/.ncl.config.default") 53 else 23 54 palm_bin_path = getenv("PALM_BIN") 24 55 print(" ") … … 31 62 exit 32 63 end if 33 end if 34 64 end if 65 35 66 begin 36 37 ;***************************************************38 ; Retrieving the NCL version used39 ;***************************************************40 41 ncl_version_ch = systemfunc("ncl -V")42 ncl_version = stringtofloat(ncl_version_ch)43 67 44 68 ;***************************************************
Note: See TracChangeset
for help on using the changeset viewer.
