Changeset 8586 for branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

Timestamp:

2017-10-04T09:19:23+02:00 (7 years ago)

Author:

gm

Message:

#1911 (ENHANCE-09): PART I.3 - phasing with branch dev_r8183_ICEMODEL revision 8575

File:

• branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90 (modified) (3 diffs)

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

@@ -4 +4 @@
    !!======================================================================
    !!                ***  MODULE agrif_top_sponge  ***
-   !! AGRIF :   TOP sponge layer
+   !! AGRIF :   sponge layer pakage for passive tracers (TOP)
    !!======================================================================
    !! History :  2.0  ! 2006-08  (R. Benshila, L. Debreu)  Original code
@@ -23 +23 @@
    USE in_out_manager
    USE lib_mpp
-   USE wrk_nemo  
 
    IMPLICIT NONE
@@ -41 +40 @@
       !!                   *** ROUTINE Agrif_Sponge_Trc ***
       !!----------------------------------------------------------------------
-      REAL(wp) ::   timecoeff   ! local scalar
+      REAL(wp) ::   zcoef   ! local scalar
       !!----------------------------------------------------------------------
       !
 #if defined SPONGE_TOP
-      timecoeff = REAL( Agrif_NbStepint(), wp ) / Agrif_rhot()
+      zcoef = REAL( Agrif_NbStepint(), wp ) / Agrif_rhot()
       CALL Agrif_sponge
       Agrif_SpecialValue    = 0._wp
       Agrif_UseSpecialValue = .TRUE.
       tabspongedone_trn     = .FALSE.
-      CALL Agrif_Bc_Variable( trn_sponge_id, calledweight=timecoeff, procname=interptrn_sponge )
+      CALL Agrif_Bc_Variable( trn_sponge_id, calledweight=zcoef, procname=interptrn_sponge )
       Agrif_UseSpecialValue = .FALSE.
 #endif