Changeset 14985

Timestamp:

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

Author:

clem

Message:

better coding of r14983

Location:

NEMO/trunk/src/OCE/ZDF

Files:

• zdfphy.F90 (modified) (1 diff)
• zdftke.F90 (modified) (1 diff)

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

@@ -378 +378 @@
       IF( iom_use('avt_k') .OR. iom_use('avm_k') .OR. iom_use('eshear_k') .OR. iom_use('estrat_k') ) THEN
          IF( l_zdfsh2 ) THEN
-            zsh2(:,:,1  ) = 0._wp
-            zsh2(:,:,jpk) = 0._wp
-            CALL lbc_lnk( 'zdfphy', zsh2, 'W', 1._wp )
+            DO_2D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )
+               zsh2(ji,jj,1  ) = 0._wp
+               zsh2(ji,jj,jpk) = 0._wp
+            END_2D
             CALL iom_put( 'avt_k'   ,   avt_k       * wmask )
             CALL iom_put( 'avm_k'   ,   avm_k       * wmask )

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 )