Changeset 4109 for TOOLS/CMIP6_FORCING/OZONE/tools.bash

Timestamp:

11/06/18 17:14:39 (6 years ago)

Author:

cugnet

Message:

Available datasets list on ciclad extended.
Scripts slightly modified to accomodate more ways of cutting a time serie into several time slices.

File:

• TOOLS/CMIP6_FORCING/OZONE/tools.bash (modified) (5 diffs)

TOOLS/CMIP6_FORCING/OZONE/tools.bash

@@ -76 +76 @@
     Yb=$Ymin; Ye=$Ymax
   else
-    Yb=$((dY*(Y/dY))); Ye=$((Yb+dY-1)); Ye=$(($Ye>$Ymax?$Ymax:$Ye))
+    Yb=$((Ymin+dY*((Y-Ymin)/dY))); Ye=$((Yb+dY-1))
+    Ye=$(($Ye>$Ymax?$Ymax:$Ye))
   fi
   nbm=$((12*(Ye-Yb+1)-1))                           #--- MONTHS NUMBER OF CURRENT FILE
   it=$((12*(Y-Yb)))                                 #--- JANUARY INDEX IN CURRENT FILE
   fin=`var=$v_in; Yb=$Yb; Ye=$Ye; eval echo $f_in`  #--- CURRENT FILE NAME
-  fou=`var=$v_ou; Y=$Y; eval echo $f_ou`            #--- OUTPUT FILE NAME
+  fou=`var=$v_ou; Y=$Y; eval echo $f_ou`            #--- OUTPUT  FILE NAME
   ib=$(($it<=nmrg?0:$((it-nmrg))))                  #--- INDEX OF FIRST USED MONTH
   ie=$(($((it+11+mrg))>=$nbm?$nbm:$((it+11+nmrg)))) #--- INDEX OF LAST USED MONTHF
@@ -246 +247 @@
 #==================================================================================
 function get_date {
-# Assumes the following filename structure: *_${Yb}*-${Ye}*.* (Yb/e: 4 digits)
-# $1: varname
-# $2: datatype
-# $3: dirin
-# $4: dirin structure patch
-# $5...$N: files_in
+# Call get_date1 one time each input file.
+# $1: varname    $2: datatype    $3: dirin    $4: <dir_in> patch    $5...$N: <files_in>
 # [$N+1...]: <dset>:<var>=<val> to overwrite value of variables evaluated from parsing.
   local v_in dtyp d_in dstr f_in Yb Ye St a f first date dates files_in=""
@@ -264 +261 @@
 function get_date_1 {
 # Assumes the following filename structure: *_${Yb}*-${Ye}*.* (Yb/e: 4 digits)
-# $1: varname
-# $2: datatype
-# $3: base directory for files
-# $4: dirin structure patch
-# $5: file_in
+# Returns ${FirstYear}-${LastYear}-${IntervalsLengths}
+# $1: varname    $2: datatype    $3: dirin    $4: <dir_in> patch    $5: <file_in>
 # [$6...]: <dset>:<var>=<val> to overwrite value of variables evaluated from parsing.
   local v_in dtyp d_in d_str f_in Yb Ye St a f first
@@ -274 +268 @@
   parse_dir $f_in $dstr $*; Yb=1000000; Ye=0; first='t'
   for f in $(var=$v_in; Yb=????; Ye=????; datatype=$dtyp; eval ls $d_in/$f_in); do
-    a=${f##*_}; if [ ${a::4} -le $Yb ]; then Yb=${a::4}; fi
-    a=${a##*-}; if [ ${a::4} -ge $Ye ]; then Ye=${a::4}; fi
-    if [ $first = 't' ]; then St=$((Ye-Yb+1)); first='f'; fi
+    a=${f##*_}; ymn=${a::4}; if [ $ymn -le $Yb ]; then Yb=$ymn; fi
+    a=${a##*-}; ymx=${a::4}; if [ $ymx -ge $Ye ]; then Ye=$ymx; fi
+    if [ $first != 't' ]; then St=${St}-; fi; first='f'; St=${St}$((ymx-ymn+1))
   done
   echo $Yb-$Ye-$St
@@ -311 +305 @@
 }
 #==================================================================================
+function is_int {
+ # $1: string to be checked
+  set +vx
+  if [[ $1 =~ ^[0-9]+$ ]]; then return 0; else return 1; fi
+  set -vx
+}
+#==================================================================================
+function remove_version {
+ # $1: variable name
+  local out=$1
+  while `is_int ${out##*-}`; do out=${out%-*}; done; echo $out; return 1
+}