Changeset 9727 for NEMO/trunk/src/OCE/SBC/sbcflx.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/sbcflx.F90 (modified) (1 diff)

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

@@ -142 +142 @@
          qns(:,:) = qns(:,:) - emp(:,:) * sst_m(:,:) * rcp        ! mass flux is at SST
          !
+         qns(:,:) = qns(:,:) * tmask(:,:,1)
+         emp(:,:) = emp(:,:) * tmask(:,:,1)
+         !
          !                                                        ! module of wind stress and wind speed at T-point
          zcoef = 1. / ( zrhoa * zcdrag )