Changeset 9056

Timestamp:

2017-12-14T16:33:33+01:00 (7 years ago)

Author:

jchanut

Message:

duplicated definitions

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/NST_SRC

Files:

• agrif_opa_sponge.F90 (modified) (3 diffs)
• agrif_top_sponge.F90 (modified) (1 diff)

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

@@ -41 +41 @@
       !!----------------------------------------------------------------------
       REAL(wp) ::   zcoef   ! local scalar
+      
       !!----------------------------------------------------------------------
       !
 #if defined SPONGE
       !! Assume persistence:
-      timecoeff = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
+      zcoef = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
 
       CALL Agrif_Sponge
@@ -68 +69 @@
       !
 #if defined SPONGE
-      timecoeff = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
+      zcoef = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
 
       Agrif_SpecialValue=0.
@@ -484 +485 @@
       INTEGER, INTENT(in) :: nb , ndir
       !
-      INTEGER ::   ji, jj, jk
-      INTEGER ::   imax
-      REAL(wp)::   ze2u, ze1v, zua, zva, zbtr
-      REAL(wp), DIMENSION(i1:i2,j1:j2,k1:k2) ::   vbdiff, rotdiff, hdivdiff
-      !!----------------------------------------------------------------------
       INTEGER  ::   ji, jj, jk, imax
       REAL(wp) ::   ze2u, ze1v, zua, zva, zbtr, h_diff

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

@@ -45 +45 @@
 #if defined SPONGE_TOP
 !! Assume persistence 
-      timecoeff = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
+      zcoef = REAL(Agrif_rhot()-1,wp)/REAL(Agrif_rhot())
       CALL Agrif_sponge
       Agrif_SpecialValue    = 0._wp