Changeset 9786 for NEMO

Timestamp:

2018-06-13T10:29:33+02:00 (6 years ago)

Author:

jchanut

Message:

Fix bug in sponge introduced with variable ghost cell number

File:

• NEMO/trunk/src/NST/agrif_oce_sponge.F90 (modified) (2 diffs)

NEMO/trunk/src/NST/agrif_oce_sponge.F90

@@ -125 +125 @@
             DO jj = 1, jpj
                DO ji = ind1, ind2
-                  ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( ji - ind2 ) * z1_spongearea * umask(ind2-1,jj,1) )
+                  ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( ji - ind1 ) * z1_spongearea * umask(ind2-1,jj,1) )
                ENDDO
             ENDDO
@@ -147 +147 @@
             DO jj = ind1, ind2
                DO ji = 1, jpi
-                  ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( jj - ind2 ) * z1_spongearea * vmask(ji,ind2-1,1) )
+                  ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( jj - ind1 ) * z1_spongearea * vmask(ji,ind2-1,1) )
                END DO
             ENDDO