n2 fix

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