Changeset 9019 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

Timestamp:

2017-12-13T15:58:53+01:00 (6 years ago)

Author:

timgraham

Message:

Merge of dev_CNRS_2017 into branch

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90 (modified) (5 diffs)

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

@@ -4 +4 @@
    !!======================================================================
    !!                ***  MODULE agrif_top_sponge  ***
-   !! AGRIF :   define in memory AGRIF variables for sea-ice
+   !! AGRIF :   sponge layer pakage for passive tracers (TOP)
    !!======================================================================
    !! History :  2.0  ! 2006-08  (R. Benshila, L. Debreu)  Original code
    !!----------------------------------------------------------------------
-
+#if defined key_agrif && defined key_top
    !!----------------------------------------------------------------------
    !!   Agrif_Sponge_trc : 
    !!   interptrn_sponge :  
    !!----------------------------------------------------------------------
-#if defined key_agrif && defined key_top
    USE par_oce
    USE par_trc
@@ -24 +23 @@
    USE in_out_manager
    USE lib_mpp
-   USE wrk_nemo  
 
    IMPLICIT NONE
@@ -32 +30 @@
 
    !!----------------------------------------------------------------------
-   !! NEMO/NST 3.7 , NEMO Consortium (2015)
+   !! NEMO/NST 4.0 , NEMO Consortium (2017)
    !! $Id$
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
@@ -42 +40 @@
       !!                   *** ROUTINE Agrif_Sponge_Trc ***
       !!----------------------------------------------------------------------
-      REAL(wp) ::   timecoeff
+      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
@@ -107 +105 @@
 
 #else
-
+   !!----------------------------------------------------------------------
+   !!   Empty module                                           no TOP AGRIF
+   !!----------------------------------------------------------------------
 CONTAINS
    SUBROUTINE agrif_top_sponge_empty