Changeset 15119 for NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_hgr.F90

Timestamp:

2021-07-13T16:43:22+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, changes to accomodate nn_hls=2 and AGRIF zooms crossing cyclic boundaries. E-W case ok, update for North-Fold still needed.

File:

• NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_hgr.F90 (modified) (1 diff)

NEMO/trunk/tests/VORTEX/MY_SRC/usrdef_hgr.F90

@@ -88 +88 @@
          ! deduce offset from parent:
          roffsetx = Agrif_Parent(roffsetx) &
-                  & + (-(nbghostcells_x   - 1) + (Agrif_Parent(nbghostcells_x  ) + Agrif_Ix()-2)*Agrif_Rhox()) * 1.e-3 * rn_dx
+                  & + (-(nbghostcells_x_w - 1) + (Agrif_Parent(nbghostcells_x_w) + Agrif_Ix()-2)*Agrif_Rhox()) * 1.e-3 * rn_dx
          roffsety = Agrif_Parent(roffsety) &
                   & + (-(nbghostcells_y_s - 1) + (Agrif_Parent(nbghostcells_y_s) + Agrif_Iy()-2)*Agrif_Rhoy()) * 1.e-3 * rn_dy