SPONGE

SPONGE is used to impose a sponge layer near the lateral boundary. The areas are characterized with enhanced viscosity/diffusion.

#ifdef SPONGE

!-----------------------------------------------------------------------

! Increase horizontal mixing in the sponge areas.

!-----------------------------------------------------------------------

!! User modifiable section. Please specify the appropiate sponge area

!! by increasing its horizontal mixing coefficients.

# if defined ADRIA02

! Adriatic Sea southern sponge areas.

fac=4.0_r8

# if defined UV_VIS2

DO i=IstrR,IendR

DO j=JstrR,MIN(6,JendR)

cff=visc2(ng)+REAL(6-j,r8)*(fac*visc2(ng)-visc2(ng))/6.0_r8

visc2_r(i,j)=cff

visc2_p(i,j)=cff

END DO

DO j=MAX(JstrR,7),JendR

visc2_r(i,j)=0.0_r8

visc2_p(i,j)=0.0_r8

END DO