mirror of
https://github.com/smyalygames/FiniteVolumeGPU.git
synced 2025-05-18 14:34:13 +02:00
64 lines
2.0 KiB
Plaintext
64 lines
2.0 KiB
Plaintext
/*
|
|
This file implements the Harten-Lax-van Leer flux
|
|
|
|
Copyright (C) 2016, 2017, 2018 SINTEF ICT
|
|
|
|
This program is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
|
|
/**
|
|
* Harten-Lax-van Leer with contact discontinuity (Toro 2001, p 180)
|
|
*/
|
|
__device__ float3 HLL_flux(const float3 Q_l, const float3 Q_r, const float g_) {
|
|
const float h_l = Q_l.x;
|
|
const float h_r = Q_r.x;
|
|
|
|
// Calculate velocities
|
|
const float u_l = Q_l.y / h_l;
|
|
const float u_r = Q_r.y / h_r;
|
|
|
|
// Estimate the potential wave speeds
|
|
const float c_l = sqrt(g_*h_l);
|
|
const float c_r = sqrt(g_*h_r);
|
|
|
|
// Compute h in the "star region", h^dagger
|
|
const float h_dag = 0.5f * (h_l+h_r) - 0.25f * (u_r-u_l)*(h_l+h_r)/(c_l+c_r);
|
|
|
|
const float q_l_tmp = sqrt(0.5f * ( (h_dag+h_l)*h_dag / (h_l*h_l) ) );
|
|
const float q_r_tmp = sqrt(0.5f * ( (h_dag+h_r)*h_dag / (h_r*h_r) ) );
|
|
|
|
const float q_l = (h_dag > h_l) ? q_l_tmp : 1.0f;
|
|
const float q_r = (h_dag > h_r) ? q_r_tmp : 1.0f;
|
|
|
|
// Compute wave speed estimates
|
|
const float S_l = u_l - c_l*q_l;
|
|
const float S_r = u_r + c_r*q_r;
|
|
|
|
//Upwind selection
|
|
if (S_l >= 0.0f) {
|
|
return F_func(Q_l, g_);
|
|
}
|
|
else if (S_r <= 0.0f) {
|
|
return F_func(Q_r, g_);
|
|
}
|
|
//Or estimate flux in the star region
|
|
else {
|
|
const float3 F_l = F_func(Q_l, g_);
|
|
const float3 F_r = F_func(Q_r, g_);
|
|
const float3 flux = (S_r*F_l - S_l*F_r + S_r*S_l*(Q_r - Q_l)) / (S_r-S_l);
|
|
return flux;
|
|
}
|
|
}
|