Changeset 13081 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/ZDF/zdfphy.F90

Timestamp:

2020-06-10T09:24:29+02:00 (4 years ago)

Author:

andmirek

Message:

Ticket #248: Small changes to the code

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/ZDF/zdfphy.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/ZDF/zdfphy.F90

@@ -257 +257 @@
       !                       !==  Kz from chosen turbulent closure  ==!   (avm_k, avt_k)
       !
+      zsh2(:, :) = 0.
       IF( l_zdfsh2 )   &         !* shear production at w-points (energy conserving form)
          CALL zdf_sh2( ub, vb, un, vn, avm_k,   &     ! <<== in