mirror of
https://develop.openfoam.com/Development/openfoam.git
synced 2025-11-28 03:28:01 +00:00
ENH: New atmospheric boundary layer (ABL) model suite (Part 1)
Please refer to the header file documentation for complete set of details.
ENH: add new fvOptions for ABL modelling
- atmAmbientTurbSource
- atmBuoyancyTurbSource
- atmCoriolisUSource
- atmLengthScaleTurbSource
- atmPlantCanopyTurbSource
- atmPlantCanopyUSource
- atmPlantCanopyTSource
- atmNutSource
ENH: add new boundary conditions for ABL modelling
with PatchFunction1 and TimeFunction1 support
- atmAlphatkWallFunction
- atmEpsilonWallFunction
- atmNutkWallFunction
- atmNutUWallFunction
- atmNutWallFunction
- atmOmegaWallFunction
- atmTurbulentHeatFluxTemperature
STYLE: change names of nutkAtmRoughWallFunction -> atmNutkWallFunction by
ensuring the bitwise backward compatibility
ENH: add new variable-scaling force computation method to actuationDiskSource
ENH: review actuationDiskSource and radialActuationDiskSource
ENH: add new function object, ObukhovLength
ENH: add new ABL tutorials/verifications
- verificationAndValidation/atmosphericModels/atmFlatTerrain
- verification with the Leipzig field experiment
- illustration of precursor/successor field mapping
- verificationAndValidation/atmosphericModels/atmForestStability
- verification with the Sweden field experiment
- update incompressible/simpleFoam/turbineSiting
This commit is contained in:
Kutalmis Bercin
committed by
Andrew Heather
Andrew Heather
parent
70cd6c6176
commit
41e264f27d
396
tutorials/verificationAndValidation/atmosphericModels/atmForestStability/plot
Executable file
396
tutorials/verificationAndValidation/atmosphericModels/atmForestStability/plot
Executable file
@ -0,0 +1,396 @@
|
||||
#!/bin/bash
|
||||
cd "${0%/*}" || exit # Run from this directory
|
||||
. ${WM_PROJECT_DIR:?}/bin/tools/RunFunctions # Tutorial run functions
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
# Benchmark dataset:
|
||||
# Arnqvist, J., Segalini, A., Dellwik, E., & Bergström, H. (2015).
|
||||
# Wind statistics from a forested landscape.
|
||||
# Boundary-Layer Meteorology, 156(1), 53-71.
|
||||
# DOI:10.1007/s10546-015-0016-x
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
# Simple linear interpolation on an ascending table
|
||||
linearInterp() {
|
||||
inpFile=$1
|
||||
zRef=$2
|
||||
yi=($(awk -v zRef="$zRef" '
|
||||
BEGIN{
|
||||
x1=0; y1=0;
|
||||
x2=$1; y2=$2;
|
||||
}
|
||||
{
|
||||
if((x1 < zRef) && (x2 < zRef) && (getline != 0))
|
||||
{
|
||||
x1=x2; y1=y2; x2=$1; y2=$2
|
||||
}
|
||||
}
|
||||
END {
|
||||
yi = (y2-y1)/(x2-x1)*(zRef-x1) + y1;
|
||||
print yi
|
||||
}
|
||||
' $inpFile))
|
||||
echo "$yi"
|
||||
}
|
||||
|
||||
|
||||
plotU() {
|
||||
timeDir=$1
|
||||
treeH=$2
|
||||
zRef=$3
|
||||
smple=$4
|
||||
shift 4
|
||||
declare -a inps=("${!1}")
|
||||
|
||||
echo " Plotting the ground-normal normalised "
|
||||
echo " streamwise flow speed profile."
|
||||
|
||||
for i in "${!inps[@]}"
|
||||
do
|
||||
inp="results/${inps[$i]}/$timeDir/$smple"
|
||||
echo $inp
|
||||
|
||||
# Store the ground-normal height
|
||||
z=($(awk '{ printf "%.16f\n", $1 }' $inp))
|
||||
|
||||
# Compute velocity magnitude by excluding the ground-normal component
|
||||
magU=($(awk '
|
||||
{
|
||||
mag = sqrt($2*$2 + $3*$3);
|
||||
printf "%.16f\n", mag
|
||||
}' $inp))
|
||||
|
||||
file="z-magU-$i.dat"
|
||||
[ ! -f $file ] && for ((j = 0; j < "${#magU[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${z[$j]}" "${magU[$j]}" \
|
||||
>> $file; done
|
||||
|
||||
# Find velocity magnitude at zRef height by linear interpolation
|
||||
uRef=$(linearInterp "$file" "$zRef")
|
||||
|
||||
# Find z normalised by the reference tree height
|
||||
zNorm=($(awk -v treeH="$treeH" '
|
||||
{
|
||||
zNorm = $1/treeH; printf "%.16f\n", zNorm
|
||||
}' $file))
|
||||
|
||||
# Find U normalised by uRef
|
||||
uNorm=($(awk -v uRef="$uRef" '
|
||||
{
|
||||
uNorm = $2/uRef; printf "%.16f\n", uNorm
|
||||
}' $file))
|
||||
|
||||
fil="zNorm-uNorm-$i.dat"
|
||||
[ ! -f $fil ] && for ((j = 0; j < "${#zNorm[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${zNorm[$j]}" "${uNorm[$j]}" \
|
||||
>> $fil; done
|
||||
done
|
||||
|
||||
outName="plots/uNorm-zNorm.png"
|
||||
gnuplot<<PLT_U
|
||||
set terminal pngcairo font "helvetica,20" size 1000, 800
|
||||
set xrange [0:3.5]
|
||||
set yrange [0:7]
|
||||
set grid
|
||||
set key bottom right
|
||||
set key samplen 2
|
||||
set key spacing 0.75
|
||||
set xlabel "U/U_{ref} [-]"
|
||||
set ylabel "z/z_{ref} [-]"
|
||||
set offset .05, .05
|
||||
set output "$outName"
|
||||
|
||||
veryStable="zNorm-uNorm-0.dat"
|
||||
stable="zNorm-uNorm-1.dat"
|
||||
slightlyStable="zNorm-uNorm-2.dat"
|
||||
neutral="zNorm-uNorm-3.dat"
|
||||
slightlyUnstable="zNorm-uNorm-4.dat"
|
||||
unstable="zNorm-uNorm-5.dat"
|
||||
bench="system/atm-Arnqvist-2015/uNorm-zNorm.dat"
|
||||
|
||||
plot \
|
||||
bench every ::0::5 u ((\$1)/13.8953):2 t "Vs" w p ps 2 pt 6 lc rgb "#000000", \
|
||||
bench every ::6::11 u ((\$1)/8.13953):2 t "S" w p ps 2 pt 5 lc rgb "#000000", \
|
||||
bench every ::12::17 u ((\$1)/6.36047):2 t "Ss" w p ps 2 pt 4 lc rgb "#000000", \
|
||||
bench every ::18::23 u ((\$1)/5.62791):2 t "N" w p ps 2 pt 3 lc rgb "#000000", \
|
||||
bench every ::24::29 u ((\$1)/5.31395):2 t "Su" w p ps 2 pt 2 lc rgb "#000000", \
|
||||
bench every ::30::35 u ((\$1)/5.06977):2 t "U" w p ps 2 pt 1 lc rgb "#000000", \
|
||||
veryStable u 2:1 t "Very stable" w l lw 2 lc rgb "#009E73", \
|
||||
stable u 2:1 t "Stable" w l lw 2 lc rgb "#F0E440", \
|
||||
slightlyStable u 2:1 t "Slightly stable" w l lw 2 lc rgb "#0072B2", \
|
||||
neutral u 2:1 t "Neutral" w l lw 2 lc rgb "#D55E00", \
|
||||
slightlyUnstable u 2:1 t "Slightly unstable" w l lw 2 lc rgb "#CC79A7", \
|
||||
unstable u 2:1 t "Unstable" w l lw 2 lc rgb "#440154"
|
||||
PLT_U
|
||||
|
||||
rm -f {zNorm-uNorm-,z-magU-}*.dat
|
||||
}
|
||||
|
||||
|
||||
plotK() {
|
||||
timeDir=$1
|
||||
treeH=$2
|
||||
zRef=$3
|
||||
smple=$4
|
||||
shift 4
|
||||
declare -a inps=("${!1}")
|
||||
|
||||
echo " Plotting the ground-normal normalised "
|
||||
echo " turbulent kinetic energy profile."
|
||||
|
||||
for i in "${!inps[@]}"
|
||||
do
|
||||
inp="results/${inps[$i]}/$timeDir/$smple"
|
||||
echo $inp
|
||||
|
||||
# Store the ground-normal height profile
|
||||
z=($(awk '{ printf "%.16f\n", $1 }' $inp))
|
||||
|
||||
# Store the turbulent kinetic energy profile
|
||||
k=($(awk '{ printf "%.16f\n", $5 }' $inp))
|
||||
|
||||
file="z-k-$i.dat"
|
||||
[ ! -f $file ] && for ((j = 0; j < "${#k[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${z[$j]}" "${k[$j]}" \
|
||||
>> $file; done
|
||||
|
||||
# Find k at zRef height by linear interpolation
|
||||
kRef=$(linearInterp "$file" "$zRef")
|
||||
|
||||
# Find z normalised by the reference tree height
|
||||
zNorm=($(awk -v treeH="$treeH" '
|
||||
{
|
||||
zNorm = $1/treeH; printf "%.16f\n", zNorm
|
||||
}' $file))
|
||||
|
||||
# Find k normalised by kRef
|
||||
kNorm=($(awk -v kRef="$kRef" '
|
||||
{
|
||||
kNorm = $2/kRef; printf "%.16f\n", kNorm
|
||||
}' $file))
|
||||
|
||||
fil="zNorm-kNorm-$i.dat"
|
||||
[ ! -f $fil ] && for ((j = 0; j < "${#zNorm[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${zNorm[$j]}" "${kNorm[$j]}" \
|
||||
>> $fil; done
|
||||
done
|
||||
|
||||
outName="plots/kNorm-zNorm.png"
|
||||
gnuplot<<PLT_K
|
||||
set terminal pngcairo font "helvetica,20" size 1000, 800
|
||||
set xrange [0:2]
|
||||
set yrange [0:7]
|
||||
set grid
|
||||
set key bottom right
|
||||
set key samplen 2
|
||||
set key spacing 0.75
|
||||
set xlabel "k/k_{ref} [-]"
|
||||
set ylabel "z/z_{ref} [-]"
|
||||
set offset .05, .05
|
||||
set output "$outName"
|
||||
|
||||
veryStable="zNorm-kNorm-0.dat"
|
||||
stable="zNorm-kNorm-1.dat"
|
||||
slightlyStable="zNorm-kNorm-2.dat"
|
||||
neutral="zNorm-kNorm-3.dat"
|
||||
slightlyUnstable="zNorm-kNorm-4.dat"
|
||||
unstable="zNorm-kNorm-5.dat"
|
||||
bench="system/atm-Arnqvist-2015/kNorm-zNorm.dat"
|
||||
|
||||
plot \
|
||||
bench every ::0::5 u ((\$1)/5.050476682):2 t "Vs" w p ps 2 pt 6 lc rgb "#000000", \
|
||||
bench every ::6::11 u ((\$1)/4.24970097):2 t "S" w p ps 2 pt 5 lc rgb "#000000", \
|
||||
bench every ::12::17 u ((\$1)/3.897762917):2 t "Ss" w p ps 2 pt 4 lc rgb "#000000", \
|
||||
bench every ::18::23 u ((\$1)/3.788680963):2 t "N" w p ps 2 pt 3 lc rgb "#000000", \
|
||||
bench every ::24::29 u ((\$1)/4.038160328):2 t "Su" w p ps 2 pt 2 lc rgb "#000000", \
|
||||
bench every ::30::35 u ((\$1)/4.198358216):2 t "U" w p ps 2 pt 1 lc rgb "#000000", \
|
||||
veryStable u 2:1 t "Very stable" w l lw 2 lc rgb "#009E73", \
|
||||
stable u 2:1 t "Stable" w l lw 2 lc rgb "#F0E440", \
|
||||
slightlyStable u 2:1 t "Slightly stable" w l lw 2 lc rgb "#0072B2", \
|
||||
neutral u 2:1 t "Neutral" w l lw 2 lc rgb "#D55E00", \
|
||||
slightlyUnstable u 2:1 t "Slightly unstable" w l lw 2 lc rgb "#CC79A7", \
|
||||
unstable u 2:1 t "Unstable" w l lw 2 lc rgb "#440154"
|
||||
PLT_K
|
||||
|
||||
rm -f {zNorm-kNorm-,z-k-}*.dat
|
||||
}
|
||||
|
||||
|
||||
printObukhovLength() {
|
||||
timeDir=$1
|
||||
treeH=$2
|
||||
zRef=$3
|
||||
smple=$4
|
||||
shift 4
|
||||
declare -a inps=("${!1}")
|
||||
|
||||
echo " Printing the Obukhov length at a given reference height."
|
||||
|
||||
for i in "${!inps[@]}"
|
||||
do
|
||||
inp="results/${inps[$i]}/$timeDir/$smple"
|
||||
echo $inp
|
||||
|
||||
# Store the ground-normal height profile
|
||||
z=($(awk '{ printf "%.16f\n", $1 }' $inp))
|
||||
|
||||
# Store the Obukhov length profile
|
||||
OL=($(awk '{ printf "%.16f\n", $2 }' $inp))
|
||||
|
||||
file="z-OL-$i.dat"
|
||||
[ ! -f $file ] && for ((j = 0; j < "${#OL[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${z[$j]}" "${OL[$j]}" \
|
||||
>> $file; done
|
||||
|
||||
# Find the Obukhov length at zRef height by linear interpolation
|
||||
OLRef=$(linearInterp "$file" "$zRef")
|
||||
|
||||
echo "${inps[$i]} = $OLRef" >> "plots/ObukhovLength.dat"
|
||||
done
|
||||
|
||||
rm -f z-OL-*.dat
|
||||
}
|
||||
|
||||
|
||||
plotVeer() {
|
||||
timeDir=$1
|
||||
treeH=$2
|
||||
zRef=$3
|
||||
smple=$4
|
||||
shift 4
|
||||
declare -a inps=("${!1}")
|
||||
|
||||
echo " Plotting the ground-normal normalised veer profile."
|
||||
|
||||
for i in "${!inps[@]}"
|
||||
do
|
||||
inp="results/${inps[$i]}/$timeDir/$smple"
|
||||
echo $inp
|
||||
|
||||
# Store the ground-normal height
|
||||
z=($(awk '{ printf "%.16f\n", $1 }' $inp))
|
||||
# Store streamwise and spanwise velocity components
|
||||
u=($(awk '{ printf "%.16f\n", $2 }' $inp))
|
||||
v=($(awk '{ printf "%.16f\n", $3 }' $inp))
|
||||
|
||||
fileu="z-u-$i.dat"
|
||||
[ ! -f $fileu ] && for ((j = 0; j < "${#z[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${z[$j]}" "${u[$j]}" \
|
||||
>> $fileu; done
|
||||
|
||||
filev="z-v-$i.dat"
|
||||
[ ! -f $filev ] && for ((j = 0; j < "${#z[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${z[$j]}" "${v[$j]}" \
|
||||
>> $filev; done
|
||||
|
||||
# Find u and v at zRef height by linear interpolation
|
||||
uRef=$(linearInterp "$fileu" "$zRef")
|
||||
vRef=$(linearInterp "$filev" "$zRef")
|
||||
|
||||
# Find z normalised by the reference tree height
|
||||
zNorm=($(awk -v treeH="$treeH" '
|
||||
{
|
||||
zNorm = $1/treeH; printf "%.16f\n", zNorm
|
||||
}' $fileu))
|
||||
|
||||
# Find veer
|
||||
veer=($(awk -v uRef="$uRef" -v vRef="$vRef" '
|
||||
{
|
||||
x = $2/sqrt($2*$2 + $3*$3);
|
||||
xR = uRef/sqrt(uRef*uRef + vRef*vRef);
|
||||
veer = -1*(atan2(sqrt(1 - x*x), x) - atan2(sqrt(1 - xR*xR), xR))*180/atan2(0, -1);
|
||||
printf "%.16f\n", veer
|
||||
}' $inp))
|
||||
|
||||
fil="zNorm-veer-$i.dat"
|
||||
[ ! -f $fil ] && for ((j = 0; j < "${#zNorm[@]}"; j++)) \
|
||||
do printf "%.16f %.16f\n" "${zNorm[$j]}" "${veer[$j]}" \
|
||||
>> $fil; done
|
||||
done
|
||||
|
||||
outName="plots/veer-zNorm.png"
|
||||
gnuplot<<PLT_VEER
|
||||
set terminal pngcairo font "helvetica,20" size 1000, 800
|
||||
set xrange [-5:20]
|
||||
set yrange [0:7]
|
||||
set grid
|
||||
set key bottom right
|
||||
set key samplen 2
|
||||
set key spacing 0.75
|
||||
set xlabel "alpha/alpha_{ref} [-]"
|
||||
set ylabel "z/z_{ref} [-]"
|
||||
set offset .05, .05
|
||||
set output "$outName"
|
||||
|
||||
veryStable="zNorm-veer-0.dat"
|
||||
stable="zNorm-veer-1.dat"
|
||||
slightlyStable="zNorm-veer-2.dat"
|
||||
neutral="zNorm-veer-3.dat"
|
||||
slightlyUnstable="zNorm-veer-4.dat"
|
||||
unstable="zNorm-veer-5.dat"
|
||||
bench="system/atm-Arnqvist-2015/veer-zNorm.dat"
|
||||
|
||||
plot \
|
||||
bench every ::0::5 u 1:2 t "Vs" w p ps 2 pt 6 lc rgb "#000000", \
|
||||
bench every ::6::11 u 1:2 t "S" w p ps 2 pt 5 lc rgb "#000000", \
|
||||
bench every ::12::17 u 1:2 t "Ss" w p ps 2 pt 4 lc rgb "#000000", \
|
||||
bench every ::18::23 u 1:2 t "N" w p ps 2 pt 3 lc rgb "#000000", \
|
||||
bench every ::24::29 u 1:2 t "Su" w p ps 2 pt 2 lc rgb "#000000", \
|
||||
bench every ::30::35 u 1:2 t "U" w p ps 2 pt 1 lc rgb "#000000", \
|
||||
veryStable u 2:1 t "Very stable" w l lw 2 lc rgb "#009E73", \
|
||||
stable u 2:1 t "Stable" w l lw 2 lc rgb "#F0E440", \
|
||||
slightlyStable u 2:1 t "Slightly stable" w l lw 2 lc rgb "#0072B2", \
|
||||
neutral u 2:1 t "Neutral" w l lw 2 lc rgb "#D55E00", \
|
||||
slightlyUnstable u 2:1 t "Slightly unstable" w l lw 2 lc rgb "#CC79A7", \
|
||||
unstable u 2:1 t "Unstable" w l lw 2 lc rgb "#440154"
|
||||
PLT_VEER
|
||||
|
||||
rm -f {zNorm-veer-,z-u-,z-v-}*.dat
|
||||
}
|
||||
|
||||
|
||||
#------------------------------------------------------------------------------
|
||||
|
||||
# Requires gnuplot
|
||||
command -v gnuplot >/dev/null || {
|
||||
echo "gnuplot not found - skipping graph creation" 1>&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
# Requires awk
|
||||
command -v awk >/dev/null || {
|
||||
echo "awk not found - skipping graph creation" 1>&2
|
||||
exit 1
|
||||
}
|
||||
|
||||
# The latestTime in postProcessing/samples
|
||||
timeDir=$(foamListTimes -case results/veryStable/postProcessing/samples \
|
||||
-latestTime 2>/dev/null)
|
||||
[ -n "$timeDir" ] || {
|
||||
echo "No results found in postProcessing - skipping graph creation" 1>&2
|
||||
exit 1
|
||||
}
|
||||
timeDir="postProcessing/samples/$timeDir"
|
||||
|
||||
# Settings
|
||||
declare -a stability
|
||||
stability[0]="veryStable"
|
||||
stability[1]="stable"
|
||||
stability[2]="slightlyStable"
|
||||
stability[3]="neutral"
|
||||
stability[4]="slightlyUnstable"
|
||||
stability[5]="unstable"
|
||||
sample1="lineZ1_U.xy"
|
||||
sample2="lineZ1_ObukhovLength_T_Ustar_k_p_rgh.xy"
|
||||
treeHeight=20
|
||||
zRef=40
|
||||
|
||||
# Postprocessing
|
||||
mkdir -p plots
|
||||
plotU $timeDir $treeHeight $zRef $sample1 stability[@]
|
||||
plotK $timeDir $treeHeight $zRef $sample2 stability[@]
|
||||
printObukhovLength $timeDir $treeHeight $zRef $sample2 stability[@]
|
||||
plotVeer $timeDir $treeHeight $zRef $sample1 stability[@]
|
||||
|
||||
|
||||
#------------------------------------------------------------------------------
|
||||
Reference in New Issue
Block a user