From 77b28b7cdec8ee327772d6eeab3298252051b146 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Wed, 19 Jun 2024 17:31:41 -0300 Subject: [PATCH] USER_PROBLEM: Normalize inflow speed by the inflow boundary area. Signed-off-by: Grzegorz Kowal --- sources/user_problem.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/sources/user_problem.F90 b/sources/user_problem.F90 index 0817d01..5dbec66 100644 --- a/sources/user_problem.F90 +++ b/sources/user_problem.F90 @@ -2116,6 +2116,7 @@ module user_problem #endif /* MPI */ rterms(2) = 2.50d-01 * rterms(2) / yarea + rterms(10:11) = rterms(10:11) / yarea rterms(12) = 5.00d-01 * rterms(12) rterms(13) = 1.25d-01 * rterms(13) / yarea rterms(3:6) = 5.00d-01 * rterms(3:6)