From 4f87960c83e9d8cea510fcddf62c24b6fe7e8b28 Mon Sep 17 00:00:00 2001 From: Andrey Debolskiy <and.debol@gmail.com> Date: Fri, 4 Apr 2025 05:36:13 +0300 Subject: [PATCH] fix if --- src/pbl_dry_contrgradient.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/pbl_dry_contrgradient.f90 b/src/pbl_dry_contrgradient.f90 index d279fca..42bc01f 100644 --- a/src/pbl_dry_contrgradient.f90 +++ b/src/pbl_dry_contrgradient.f90 @@ -106,7 +106,7 @@ module pbl_dry_contrgradient cbl%va_up(kmax) = cbl%va_up0 do k = kmax-1 ,1,-1 - if (grid%z_cell(k) > bl%hpbla_diag ) then + if (grid%z_cell(k) >= bl%hpbla_diag ) then cbl%theta_up(k) = 0.0 cbl%thetav_up(k) = 0.0 cbl%qv_up(k) = 0 -- GitLab