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
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment