Changeset 529 for palm/trunk/SCRIPTS/palmplot

Timestamp:

Mar 31, 2010 10:36:23 AM (15 years ago)

Author:

heinze

Message:

palmplot expects lists which are separated by blanks. The lists have to be enclosed in single quotes in the prompt.

File:

• palm/trunk/SCRIPTS/palmplot (modified) (8 diffs)

palm/trunk/SCRIPTS/palmplot

@@ -9 +9 @@
     # 30/03/10 - Rieke - substituting double quotes (") with a character 
     #                    variable (dq) containing double quotes 
+    # 31/03/10 - Rieke - list of variable names can be specified using 
+    #                    blank separated lists instead of comma 
+    #                    separated lists
 
 
@@ -16 +19 @@
     (printf "\n   palmplot is designed to run the NCL scripts of PALM \n"
      printf "\n   palmplot can be called as follows:"
-     printf "\n   palmplot script_identifier file_1=OUTPUT/test.nc file_out=test format_out=pdf var=,pt,u, no_rows=2 ...\n"
+     printf "\n   palmplot script_identifier file_1=OUTPUT/test.nc file_out=test format_out=pdf var='pt w\"pt\" w*pt* u' no_rows=2 ...\n"
      printf "\n   script_identifier has to be one of the following:"
      printf "\n    xy, xz, yz, pr, ts, sp"
@@ -30 +33 @@
  a=""
  arg=""
+ b=""
  key=""
  script=""
@@ -40 +44 @@
  STRINGPARAMS_SP=""
  STRINGPARAMS_TS=""
+ STRINGPARAMS_VA=""
 
 
@@ -45 +50 @@
  # CO: PARAMETERS WHICH ARE COMMON FOR ALL NCL SCRIPTS
  # CS: cross_sections.ncl PR: profiles.ncl SP: spectra.ncl TS: timeseries.ncl
+ # VA: PARAMETERS WHICH CONTAIN LISTS OF VARIABLE NAMES
  STRINGPARAMS_CO="file_1 format_out file_out var "
  STRINGPARAMS_CS="sort mode fill_mode unit_x unit_y unit_z vec1 vec2 plotvec"
@@ -50 +56 @@
  STRINGPARAMS_SP="sort unit_x unit_y"
  STRINGPARAMS_TS="unit_t"
+ STRINGPARAMS_VA="var c_var vec1 vec2 plotvec"
 
 
@@ -96 +103 @@
     key=${arg%%=*}
     value=${arg#*=}
-    
+
     # ALLOWING RELATIVE AND ABSOLUTE FILE PATHS 
     if [[ "$key" ==  @(file_*) && "$value" != @(~/*|/*) ]]
@@ -108 +115 @@
       if [ "$key" = "$a" ]
       then
+
+         # PROCESSING STRINGS CONTAINING LISTS OF VARIABLES
+         for b in $STRINGPARAMS_VA
+         do
+           if [ "$key" = "$b" ]
+           then
+              if [[ "$value" != "all" ]]
+              then
+                 # SUBSTITUTING BLANKS WITH COMMAS IN 
+                 # PARAMETERS CONTAINING LISTS OF VARIABLES
+                 value=`echo $value | sed 's/ /,/g'`            
+                 if [[ "$value" == ${value#,} ]]
+                 then
+                    value=,$value
+                 fi
+                 if [[ "$value" == ${value%,} ]]
+                 then
+                    value=$value,
+                 fi
+                 break
+              fi
+           fi
+         done
+
          # SUBSTITUTING DOUBLE QUOTES - REQUIRED BY NCL
          value=`echo $value | sed 's/\"/\"+dq+\"/g'`
          # SETTING ENTIRE STRING IN DOUBLE QUOTES - REQUIRED BY NCL
          value=\"$value\"
-         break
       fi
     done