Changeset 14985 for NEMO/trunk/src/OCE/ZDF/zdfphy.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/zdfphy.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 )