diff --git a/src/MNH/adv_boundaries.f90 b/src/MNH/adv_boundaries.f90 index 63f9001a708593c893ad4525294926ee73ff927c..2dd15d81dfd9db26e09d3bca16cf1e2067267a57 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