From e387e7c86015172c5f9cf55b772ee95804ed3005 Mon Sep 17 00:00:00 2001
From: Gaelle TANGUY <gaelle.tanguy@meteo.fr>
Date: Tue, 15 Nov 2016 10:38:09 +0100
Subject: [PATCH] C.Lac 15/11/2016 Clarify top boundary condition for W

---
 src/MNH/adv_boundaries.f90 | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/MNH/adv_boundaries.f90 b/src/MNH/adv_boundaries.f90
index 63f9001a7..2dd15d81d 100644
--- a/src/MNH/adv_boundaries.f90
+++ b/src/MNH/adv_boundaries.f90
@@ -32,9 +32,10 @@ END MODULE MODI_ADV_BOUNDARIES
 !!
 !!    AUTHOR
 !!    ------
-!!
+!!   V.Masson
 !! Correction :	
-!!   J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1 
+!!   J.Escobar : 15/09/2015 : WENO5 & JPHEXT <> 1
+!!   C.Lac     : 10/16 : top BC for W 
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -119,6 +120,11 @@ IF( PRESENT(PFIELDI) )  THEN
   END IF
 END IF
 !
+!*       4. TOP BC for W
+!
+ IF (PRESENT(HFIELD)) THEN
+   IF (HFIELD=='W') PFIELD(:,:,IKE+1) = 0.
+ END IF
 !-------------------------------------------------------------------------------
 !
 END SUBROUTINE ADV_BOUNDARIES
-- 
GitLab