Changeset 1241 for palm/trunk/SCRIPTS/mrun

Timestamp:

Oct 30, 2013 11:36:58 AM (11 years ago)

Author:

heinze

Message:

Nudging and large scale forcing from external file implemented

File:

• palm/trunk/SCRIPTS/mrun (modified) (4 diffs)

palm/trunk/SCRIPTS/mrun

@@ -22 +22 @@
 # Current revisions:
 # ------------------
-# 
+# Enable use of nudging input and input of large scale forcing from 
+# external files
 #
 # Former revisions:
@@ -2352 +2353 @@
     tmp_check=${working_directory}/tmp_check
 
-       # GET TOPOGRAPHY PARAMETER FILE SUFFIX (USUALLY "_P3DF"). THIS FILE MIGHT IS
+       # GET TOPOGRAPHY PARAMETER FILE SUFFIX (USUALLY "_TOPO"). THIS FILE IS
        # NOT NECESSARILY REQUIRED
     line=""
@@ -2372 +2373 @@
     fi
 
+       # GET NUDGING PARAMETER FILE SUFFIX (USUALLY "_NUDGE"). THIS FILE IS
+       # NOT NECESSARILY REQUIRED
+    line=""
+    found=false
+    grep  "NUDGING_DATA" $config_file  >  $tmp_check
+    while read line1
+    do
+       line="$line1"
+       if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
+       then
+          nudge_suffix=`echo $line | tr -s " " | cut -d" " -s -f5`
+          found=true
+       fi
+    done < $tmp_check
+
+    if [[ $found = false ]]
+    then
+       printf "\n  +++ no NUDGING list entry found in the configuration file."
+    fi
+
+       # GET LARGE SCALE FORCING PARAMETER FILE SUFFIX (USUALLY "_LSF"). THIS FILE IS
+       # NOT NECESSARILY REQUIRED
+    line=""
+    found=false
+    grep  "LSF_DATA" $config_file  >  $tmp_check
+    while read line1
+    do
+       line="$line1"
+       if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
+       then
+          lsf_suffix=`echo $line | tr -s " " | cut -d" " -s -f5`
+          found=true
+       fi
+    done < $tmp_check
+
+    if [[ $found = false ]]
+    then
+       printf "\n  +++ no LSF list entry found in the configuration file."
+    fi
+
     rm -rf ${working_directory}/tmp_check
 
-       # CHECK IF THE A P3DF FILE MUST BE CHECKED
+       # CHECK IF THE P3DF FILE MUST BE CHECKED
     for  item  in  $input_list
     do
@@ -2520 +2561 @@
           # WHICH REQUIRE SUFFICIENT MEMORY
        ulimit -s unlimited          
+    fi
+
+    if [[ -f ${pathname}/${fname}${nudge_suffix} && $skip_check == false ]]
+    then
+       printf "\n  *** adding nudging data"
+       cp ${pathname}/${fname}${nudge_suffix} ./NUDGING_DATA       
+    fi
+
+    if [[ -f ${pathname}/${fname}${lsf_suffix} && $skip_check == false ]]
+    then
+       printf "\n  *** adding large scale forcing data"
+       cp ${pathname}/${fname}${lsf_suffix} ./LSF_DATA        
     fi