Changeset 8762 for branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

Timestamp:

2017-11-21T11:15:35+01:00 (6 years ago)

Author:

jchanut

Message:

AGRIF + vvl: Final changes, update SETTE tests (these are ok except SAS) - #1965

File:

• branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90 (modified) (2 diffs)

branches/2017/dev_r8624_AGRIF3_VVL/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

@@ -46 +46 @@
       !
 #if defined SPONGE_TOP
-      timecoeff = REAL( Agrif_NbStepint(), wp ) / Agrif_rhot()
+!!      timecoeff = REAL( Agrif_NbStepint(), wp ) / Agrif_rhot()
+!! Assume persistence 
+      timecoeff = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
       CALL Agrif_sponge
       Agrif_SpecialValue    = 0._wp
@@ -73 +75 @@
       !
       IF( before ) THEN
-         tabres(i1:i2,j1:j2,k1:k2,n1:n2) = trn(i1:i2,j1:j2,k1:k2,n1:n2)
+         tabres(i1:i2,j1:j2,k1:k2,n1:n2) = trb(i1:i2,j1:j2,k1:k2,n1:n2)
       ELSE      
 !!gm line below use of :,:  versus i1:i2,j1:j2  ....   strange, not wrong.    ===>> to be corrected