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

Timestamp:

Mar 6, 2015 8:22:12 AM (9 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/profiles.ncl (modified) (3 diffs)

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -4 +4 @@
 
 ;***************************************************
-; load .ncl.config or .ncl.config.default
+; Checking the kind of the script
 ;***************************************************
 
@@ -10 +10 @@
 local script 
 begin 
-   script="profiles"
+   script = "profiles"
    return(script)
 end
+
+;***************************************************
+; Retrieving the NCL version used
+;***************************************************
    
-if (isfilepresent("$PALM_BIN/../../.ncl.config")) then
+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
+;***************************************************
+   
+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(" ")
@@ -30 +61 @@
       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)
 
    ;***************************************************