From 9fece9da515a57203272e949aa75b944a5e72f52 Mon Sep 17 00:00:00 2001
From: Sibylle Techene <sibylle.techene@locean-ipsl.upmc.fr>
Date: Tue, 29 Nov 2022 09:44:39 +0000
Subject: [PATCH] Resolve "Bug with RK3, flux form momentum advection and
linear free surface"
---
src/OCE/DYN/dynspg_ts.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/OCE/DYN/dynspg_ts.F90 b/src/OCE/DYN/dynspg_ts.F90
index 83b2d99c..21e76f5b 100644
--- a/src/OCE/DYN/dynspg_ts.F90
+++ b/src/OCE/DYN/dynspg_ts.F90
@@ -789,7 +789,7 @@ CONTAINS
#if defined key_RK3
! !* RK3 case
!
- IF(.NOT.ln_dynadv_vec .AND. ln_bt_av ) THEN ! at this stage, pssh(:,:,:,Krhs) has been corrected: compute new depths at velocity points
+ IF( (.NOT.(ln_dynadv_vec .OR. ln_linssh)) .AND. ln_bt_av ) THEN ! at this stage, pssh(:,:,:,Krhs) has been corrected: compute new depths at velocity points
!
# if defined key_qcoTest_FluxForm
! ! 'key_qcoTest_FluxForm' : simple ssh average
--
GitLab