Changeset 13081

Timestamp:

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

Author:

andmirek

Message:

Ticket #248: Small changes to the code

Location:

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE

Files:

• DOM/closea.F90 (modified) (1 diff)
• ZDF/zdfphy.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_GPU/src/OCE/DOM/closea.F90

@@ -398 +398 @@
       CALL lbc_lnk( 'closea', emp , 'T', 1._wp )
       !
+      IF( ln_timing )  CALL timing_stop('sbc_clo')
+      !
    END SUBROUTINE sbc_clo
 

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