Changeset 14853

Timestamp:

2021-05-12T15:07:30+02:00 (3 years ago)

Author:

smasson

Message:

trunk: avoid to use undefined values in zdfddm

File:

• NEMO/trunk/src/OCE/ZDF/zdfddm.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ZDF/zdfddm.F90

@@ -114 +114 @@
             ! stability indicator: msks=1 if rn2>0; 0 elsewhere
             IF( rn2(ji,jj,jk) + 1.e-12  <= 0. ) THEN   ;   zmsks(ji,jj) = 0._wp
-            ELSE                                       ;   zmsks(ji,jj) = 1._wp
+            ELSE                                       ;   zmsks(ji,jj) = 1._wp * wmask(ji,jj,jk)   ! mask so avt and avs masked
             ENDIF
             ! salt fingering indicator: msksf=1 if R>1; 0 elsewhere            
@@ -134 +134 @@
             ENDIF
          END_2D
-         ! mask zmsk in order to have avt and avs masked
-         zmsks(:,:) = zmsks(:,:) * wmask(A2D(nn_hls),jk)
-
 
          ! Update avt and avs