Skip to content
Snippets Groups Projects
Commit e31f2fe1 authored by Gaelle Tanguy's avatar Gaelle Tanguy Committed by WAUTELET Philippe
Browse files

Christine 10/04/2014 : correction if LHORELAX=F and LVERELAX=T

parent eb0d6e21
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/MNH/relaxation.f90
+ 2
− 2
View file @ e31f2fe1
...@@ -561,6 +561,8 @@ ENDIF ...@@ -561,6 +561,8 @@ ENDIF
! !
! !
!* 3.2 APPLIES THE DAMPING NEAR THE LATERAL BOUNDARIES !* 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 ! special treatment is needed to expand LB for U and V because of the C grid
IF ( OHORELAX_UVWTH ) THEN IF ( OHORELAX_UVWTH ) THEN
...@@ -568,8 +570,6 @@ IF ( OHORELAX_UVWTH ) THEN ...@@ -568,8 +570,6 @@ IF ( OHORELAX_UVWTH ) THEN
DO JK=1,IKU DO JK=1,IKU
GMASK3D_RELAX(:,:,JK)=OMASK_RELAX(:,:) GMASK3D_RELAX(:,:,JK)=OMASK_RELAX(:,:)
END DO END DO
!
ZWORK=0.
! !
IDIMLB = SIZE(PLBXUM,1) IDIMLB = SIZE(PLBXUM,1)
IF ( IDIMLB /= 0) THEN IF ( IDIMLB /= 0) THEN
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme