Changeset 9786


Ignore:
Timestamp:
2018-06-13T10:29:33+02:00 (2 years ago)
Author:
jchanut
Message:

Fix bug in sponge introduced with variable ghost cell number

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/NST/agrif_oce_sponge.F90

    r9598 r9786  
    125125            DO jj = 1, jpj 
    126126               DO ji = ind1, ind2 
    127                   ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( ji - ind2 ) * z1_spongearea * umask(ind2-1,jj,1) ) 
     127                  ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( ji - ind1 ) * z1_spongearea * umask(ind2-1,jj,1) ) 
    128128               ENDDO 
    129129            ENDDO 
     
    147147            DO jj = ind1, ind2 
    148148               DO ji = 1, jpi 
    149                   ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( jj - ind2 ) * z1_spongearea * vmask(ji,ind2-1,1) ) 
     149                  ztabramp(ji,jj) = MAX( ztabramp(ji,jj), REAL( jj - ind1 ) * z1_spongearea * vmask(ji,ind2-1,1) ) 
    150150               END DO 
    151151            ENDDO 
Note: See TracChangeset for help on using the changeset viewer.