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