Changeset 1559 for palm/trunk/SCRIPTS/NCL/timeseries.ncl

Timestamp:

Mar 6, 2015 8:22:12 AM (10 years ago)

Author:

heinze

Message:

Changes to allow for using NCL version 6.2.1 and higher. Backward compatibility is also ensured.

File:

• palm/trunk/SCRIPTS/NCL/timeseries.ncl (modified) (2 diffs)

palm/trunk/SCRIPTS/NCL/timeseries.ncl

@@ -3 +3 @@
 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
 load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/shea_util.ncl"
- 
+
+;***************************************************
+; Checking the kind of the script
+;***************************************************
+
+function which_script()
+local script 
+begin 
+   script = "timeseries"
+   return(script)
+end
+
+;***************************************************
+; Retrieving the NCL version used
+;***************************************************
+   
+ncl_version_ch = systemfunc("ncl -V") 
+ncl_version    = stringtofloat(ncl_version_ch)
+
+;***************************************************
+; Function for checking file existence in dependence
+; on NCL version
+;***************************************************
+
+function file_exists(version:string,file_name:string)
+begin
+   if( version .EQ. "6.2.1" ) then
+      existing = fileexists(file_name)
+   else
+      existing = isfilepresent(file_name)
+   end if
+   return(existing)
+end
+  
 ;***************************************************
 ; load .ncl.config or .ncl.config.default
 ;***************************************************
-
-function which_script()
-local script 
-begin 
-   script="timeseries"
-   return(script)
-end
-
-if (isfilepresent("$PALM_BIN/../../.ncl.config")) then
+   
+file_name ="$PALM_BIN/../../.ncl.config"
+existing_file = file_exists(ncl_version_ch,file_name)
+
+if (existing_file) then
    loadscript("$PALM_BIN/../../.ncl.config")
 else
-  if (isfilepresent("$PALM_BIN/NCL/.ncl.config.default")) then
-     loadscript( "$PALM_BIN/NCL/.ncl.config.default")
-  else
+   file_name = "$PALM_BIN/NCL/.ncl.config.default"
+   existing_file = file_exists(ncl_version_ch,file_name)
+   if (existing_file) then
+      loadscript( "$PALM_BIN/NCL/.ncl.config.default")
+   else
       palm_bin_path = getenv("PALM_BIN")
       print(" ")
@@ -31 +62 @@
       exit
    end if
-end if    
-   
+end if
+
 begin
-
-   ;***************************************************
-   ; Retrieving the NCL version used
-   ;***************************************************
-   
-   ncl_version_ch = systemfunc("ncl -V") 
-   ncl_version    = stringtofloat(ncl_version_ch)
 
    ;***************************************************