From da1b6778078974f19d4a1f059ca24b8ca3f04ae5 Mon Sep 17 00:00:00 2001
From: Ramil Ahtamyanov <ramil.rgk@gmail.com>
Date: Wed, 25 Dec 2024 17:41:26 +0300
Subject: [PATCH] n2 fix

---
 obl_legacy.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/obl_legacy.f90 b/obl_legacy.f90
index 284c5f2..778f068 100644
--- a/obl_legacy.f90
+++ b/obl_legacy.f90
@@ -238,7 +238,7 @@ module obl_legacy
         do i = 1, nx
           if (lu(i,j) > lu_min) then
             n2(i,j,k) = g * (den(i,j,k+1) - den(i,j,k)) / 2.0 * &
-                        (zw(k+2) - zw(k)) / hhq(i,j)
+                        (zw(k+2) - zw(k)) * hhq(i,j)
           end if
         end do
       end do
-- 
GitLab