Changeset 6309 for trunk/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

Timestamp:

2016-02-12T12:47:24+01:00 (8 years ago)

Author:

cetlod

Message:

trunk : bugfix on passive tracers damping, see ticket #1677

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcdta.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

@@ -159 +159 @@
 
 
-   SUBROUTINE trc_dta( kt, sf_dta, zrf_trfac )
+   SUBROUTINE trc_dta( kt, sf_dta )
       !!----------------------------------------------------------------------
       !!                   ***  ROUTINE trc_dta  ***
@@ -171 +171 @@
       !! ** Action  :   sf_dta   passive tracer data on medl mesh and interpolated at time-step kt
       !!----------------------------------------------------------------------
-      INTEGER                     , INTENT(in   ) ::   kt     ! ocean time-step
+      INTEGER                     , INTENT(in ) ::   kt     ! ocean time-step
       TYPE(FLD), DIMENSION(1)   , INTENT(inout) ::   sf_dta     ! array of information on the field to read
-      REAL(wp)                  , INTENT(in   ) ::   zrf_trfac  ! multiplication factor
       !
       INTEGER ::   ji, jj, jk, jl, jkk, ik    ! dummy loop indices
@@ -237 +236 @@
          ENDIF
          !
-         sf_dta(1)%fnow(:,:,:) = sf_dta(1)%fnow(:,:,:) * zrf_trfac   !  multiplicative factor
-         !
       ENDIF
       !