Changeset 15565 for NEMO

Timestamp:

2021-12-01T18:10:11+01:00 (3 years ago)

Author:

jchanut

Message:

#2594, move AGRIF boundary conditions on avm_k (cosmetic)

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfphy.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfphy.F90

@@ -280 +280 @@
       END SELECT
       !  
+#if defined key_agrif 
+      ! interpolation parent grid => child grid for avm_k ( ex : at west border: update column 1 and 2)
+      IF( l_zdfsh2 )   CALL Agrif_avm
+#endif
       !                          !==  ocean Kz  ==!   (avt, avs, avm)
       !
@@ -304 +308 @@
       IF( ln_zdfswm )   CALL zdf_swm( kt, avm, avt, avs )   ! surface  wave (Qiao et al. 2004) 
       IF( ln_zdfiwm )   CALL zdf_iwm( kt, 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( l_zdfsh2 )   CALL Agrif_avm
-#endif
 
       !                                         !* Lateral boundary conditions (sign unchanged)