From 993a3f283b6fb9e752b784d2f7e0cfbef4552bde Mon Sep 17 00:00:00 2001
From: jchanut <jchanut@kara.mercator-ocean.fr>
Date: Mon, 14 Feb 2022 11:05:11 +0100
Subject: [PATCH] Fixes issue #8
---
src/OCE/DYN/dynhpg.F90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/OCE/DYN/dynhpg.F90 b/src/OCE/DYN/dynhpg.F90
index 3b4ead08..c901905a 100644
--- a/src/OCE/DYN/dynhpg.F90
+++ b/src/OCE/DYN/dynhpg.F90
@@ -760,11 +760,11 @@ CONTAINS
!-------------------------------------------------------------
! *** AY note: ssh(ji,jj,Kmm) + gde3w(ji,jj,1) = e3w(ji,jj,1,Kmm)
DO_2D( 0, 1, 0, 1)
- z_rho_k(ji,jj,1) = grav * ( ssh(ji,jj,Kmm) + gde3w(ji,jj,1) ) &
- & * ( rhd(ji,jj,1) &
- & + 0.5_wp * ( rhd (ji,jj,2) - rhd (ji,jj,1) ) &
- & * ( ssh (ji,jj,Kmm) + gde3w(ji,jj,1) ) &
- & / ( - gde3w(ji,jj,2) + gde3w(ji,jj,1) ) )
+ z_rho_k(ji,jj,1) = grav * gdept(ji,jj,1,Kmm) &
+ & * ( rhd(ji,jj,1) &
+ & -0.5_wp * ( rhd(ji,jj,2) - rhd(ji,jj,1) ) &
+ & * gdept(ji,jj,1,Kmm) / e3w(ji,jj,2,Kmm) &
+ & )
END_2D
!--------------------------------------------------------------
--
GitLab