Changeset 9727 for NEMO/trunk/src/OCE/SBC/sbcrnf.F90

Timestamp:

2018-06-01T18:52:17+02:00 (6 years ago)

Author:

mathiot

Message:

Fix for #2083 (surface flux not masked: bug if isf cavity) in trunk

File:

• NEMO/trunk/src/OCE/SBC/sbcrnf.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/SBC/sbcrnf.F90

@@ -118 +118 @@
       IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN
          !
-         IF( .NOT. l_rnfcpl )   rnf(:,:) = rn_rfact * ( sf_rnf(1)%fnow(:,:,1) )       ! updated runoff value at time step kt
+         IF( .NOT. l_rnfcpl )   rnf(:,:) = rn_rfact * ( sf_rnf(1)%fnow(:,:,1) ) * tmask(:,:,1)       ! updated runoff value at time step kt
          !
          !                                                           ! set temperature & salinity content of runoffs