fix if

4f87960c · Debolskiy Andrey · e8953e1f · 4f87960c
Commit 4f87960c authored 2 months ago by Debolskiy Andrey
--- 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