diff --git a/obl_legacy.f90 b/obl_legacy.f90 index 284c5f260c64529f52039da22d9a15d851b70b81..778f0687c49b7c0bab1aa824bf2abeebf95c7c9b 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