Changeset 14985 for NEMO/trunk/src/OCE/ZDF/zdftke.F90

Timestamp:

2021-06-14T13:10:15+02:00 (3 years ago)

Author:

clem

Message:

better coding of r14983

File:

• NEMO/trunk/src/OCE/ZDF/zdftke.F90 (modified) (1 diff)

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

@@ -453 +453 @@
       IF( iom_use('ediss_k') ) THEN
          ALLOCATE( ztmp(A2D(nn_hls),jpk) )
-         ztmp(:,:,:) = zfact3 * dissl * en * wmask
-         CALL lbc_lnk( 'zdftke', ztmp, 'W', 1._wp )
+         DO_3D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1, 1, jpkm1 )
+            ztmp(ji,jj,jk) = zfact3 * dissl(ji,jj,jk) * en(ji,jj,jk) * wmask(ji,jj,jk)
+         END_3D
+         DO_2D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )
+            ztmp(ji,jj,jpk) = 0._wp
+         END_2D
          CALL iom_put( 'ediss_k', ztmp )
          DEALLOCATE( ztmp )