From e31f2fe1b4333e8cf8f756ce61a91ecbe73afa4b Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 10 Apr 2014 14:28:44 +0000
Subject: [PATCH] Christine 10/04/2014 : correction if LHORELAX=F and
LVERELAX=T
---
src/MNH/relaxation.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/MNH/relaxation.f90 b/src/MNH/relaxation.f90
index 687de0f02..1852231c9 100644
--- a/src/MNH/relaxation.f90
+++ b/src/MNH/relaxation.f90
@@ -561,6 +561,8 @@ ENDIF
!
!
!* 3.2 APPLIES THE DAMPING NEAR THE LATERAL BOUNDARIES
+!
+ ZWORK=0.
!
! special treatment is needed to expand LB for U and V because of the C grid
IF ( OHORELAX_UVWTH ) THEN
@@ -568,8 +570,6 @@ IF ( OHORELAX_UVWTH ) THEN
DO JK=1,IKU
GMASK3D_RELAX(:,:,JK)=OMASK_RELAX(:,:)
END DO
-!
- ZWORK=0.
!
IDIMLB = SIZE(PLBXUM,1)
IF ( IDIMLB /= 0) THEN
--
GitLab