Changeset 15553

Timestamp:

2021-11-29T12:36:23+01:00 (2 years ago)

Author:

jchanut

Message:

#2594: move agrif bdy update on avm_k at the right place

File:

• NEMO/trunk/src/OCE/ZDF/zdfphy.F90 (modified) (2 diffs)

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

@@ -316 +316 @@
       !
       !                          !==  ocean Kz  ==!   (avt, avs, avm)
+#if defined key_agrif
+      ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2)
+      IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN                       ! Do only on the last tile
+         IF( l_zdfsh2 )   CALL Agrif_avm
+      ENDIF
+#endif
       !
       !                                         !* start from turbulent closure values
@@ -344 +350 @@
       IF( ln_zdfiwm )   CALL zdf_iwm( kt, Kmm, avm, avt, avs )   ! internal wave (de Lavergne et al 2017)
 
-#if defined key_agrif
-      ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2)
-      IF( .NOT. l_istiled .OR. ntile == nijtile ) THEN                       ! Do only on the last tile
-         IF( l_zdfsh2 )   CALL Agrif_avm
-      ENDIF
-#endif
-
       !                                         !* Lateral boundary conditions (sign unchanged)
       IF(nn_hls==1) THEN