Changeset 13693

Timestamp:

2020-10-28T17:34:14+01:00 (3 years ago)

Author:

jchanut

Message:

#2385, change r3x update with AGRIF: Avoid passing arguments to a subroutine while swapping grids

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/NST/agrif_oce_update.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/NST/agrif_oce_update.F90

@@ -219 +219 @@
 #else
       CALL Agrif_ChildGrid_To_ParentGrid()
-         r3t(:,:,Krhs_a) = r3t(:,:,Kmm_a)
-         r3u(:,:,Krhs_a) = r3u(:,:,Kmm_a)
-         r3v(:,:,Krhs_a) = r3v(:,:,Kmm_a)
-         CALL dom_qco_zgr( Kbb_a, Kmm_a, Krhs_a )
+      CALL Agrif_Update_qco
       CALL Agrif_ParentGrid_To_ChildGrid()
 #endif
       !
    END SUBROUTINE Agrif_Update_vvl
+
+
+#if defined key_qco
+   SUBROUTINE Agrif_Update_qco
+      !!---------------------------------------------
+      !!       *** ROUTINE dom_Update_qco ***
+      !!---------------------------------------------
+      !
+      ! Save arrays prior update (needed for asselin correction)
+      r3t(:,:,Krhs_a) = r3t(:,:,Kmm_a)
+      r3u(:,:,Krhs_a) = r3u(:,:,Kmm_a)
+      r3v(:,:,Krhs_a) = r3v(:,:,Kmm_a)
+
+      ! Update r3x arrays from updated ssh
+      CALL dom_qco_zgr( Kbb_a, Kmm_a, Krhs_a )
+      !
+   END SUBROUTINE Agrif_Update_qco
+#endif
+
 
 #if ! defined key_qco