Changeset 15119 for NEMO/trunk/tests/ICE_AGRIF

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.

Location:

NEMO/trunk/tests/ICE_AGRIF/MY_SRC

Files:

• usrdef_hgr.F90 (modified) (1 diff)
• usrdef_nam.F90 (modified) (1 diff)

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

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

NEMO/trunk/tests/ICE_AGRIF/MY_SRC/usrdef_nam.F90

@@ -91 +91 @@
          kpj  = nbcellsy + 2 * nbghostcells
 !! JC: number of ghosts unknown at this tage
-!!$         kpi  = nbcellsx + nbghostcells_x   + nbghostcells_x   + 2
+!!$         kpi  = nbcellsx + nbghostcells_x_w + nbghostcells_x_e + 2
 !!$         kpj  = nbcellsy + nbghostcells_y_s + nbghostcells_y_n + 2
       ENDIF