Changeset 14853 for NEMO/trunk/src/OCE/ZDF
- Timestamp:
- 2021-05-12T15:07:30+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfddm.F90
r14834 r14853 114 114 ! stability indicator: msks=1 if rn2>0; 0 elsewhere 115 115 IF( rn2(ji,jj,jk) + 1.e-12 <= 0. ) THEN ; zmsks(ji,jj) = 0._wp 116 ELSE ; zmsks(ji,jj) = 1._wp 116 ELSE ; zmsks(ji,jj) = 1._wp * wmask(ji,jj,jk) ! mask so avt and avs masked 117 117 ENDIF 118 118 ! salt fingering indicator: msksf=1 if R>1; 0 elsewhere … … 134 134 ENDIF 135 135 END_2D 136 ! mask zmsk in order to have avt and avs masked137 zmsks(:,:) = zmsks(:,:) * wmask(A2D(nn_hls),jk)138 139 136 140 137 ! Update avt and avs
Note: See TracChangeset
for help on using the changeset viewer.