Changeset 4793 for branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

Timestamp:

2014-09-26T14:38:42+02:00 (10 years ago)

Author:

rblod

Message:

dev_r4765_CNRS_agrif: changes for compatibily with TOP

File:

• branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90 (modified) (3 diffs)

branches/2014/dev_r4765_CNRS_agrif/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90

@@ -4 +4 @@
 #if defined key_agrif && defined key_top
    USE par_oce
+   USE par_trc
    USE oce
    USE dom_oce
@@ -16 +17 @@
    PRIVATE
 
-   PUBLIC Agrif_Sponge_trc, interptrn
+   PUBLIC Agrif_Sponge_trc, interptrn_sponge
 
    !! * Substitutions
@@ -40 +41 @@
       Agrif_SpecialValue=0.
       Agrif_UseSpecialValue = .TRUE.
-      tabspongetrn = .FALSE.
+      tabspongedone_trn = .FALSE.
       CALL Agrif_Bc_Variable(trn_sponge_id,calledweight=timecoeff,procname=interptrn_sponge)
       Agrif_UseSpecialValue = .FALSE.