Changeset 1246 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2009-01-06T15:10:52+01:00 (15 years ago)

Author:

ctlod

Message:

apply the tmask when increasing the vertical diffusion avt(:,:,:) in rivers mouths, see ticket: #278

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/step.F90

@@ -242 +242 @@
 
       IF( ln_rnf_mouth ) THEN                                ! increase diffusivity at rivers mouths
-         DO jk = 2, nkrnf   ;   avt(:,:,jk) = avt(:,:,jk) + 2.e0 * rn_avt_rnf * rnfmsk(:,:)   ;   END DO
+         DO jk = 2, nkrnf   ;   avt(:,:,jk) = avt(:,:,jk) + 2.e0 * rn_avt_rnf * rnfmsk(:,:) * tmask(:,:,jk)   ;   END DO
       ENDIF