Code: Select all
width=20.0_r8 !20 == 200 km
MIXING(ng) % visc2_r(IstrT:IendT,JstrT:JendT)=0.0_r8
MIXING(ng) % visc2_p(IstrT:IendT,JstrT:JendT)=0.0_r8
!
! Eastern edge.
!
DO i=MAX(IstrT,Lm(ng)+1-INT(width)),IendT
DO j=JstrT,JendT
MIXING(ng) % visc2_r(i,j)=50.0_r8
MIXING(ng) % visc2_p(i,j)=50.0_r8
END DO
END DO
Code: Select all
VISC2 == 0.0d0 ! m2/s
VISC4 == 0.0d0 ! m4/s
LuvSponge == T ! horizontal momentum
LtracerSponge == F F ! temperature, salinity, inert