Changeset 15265 for NEMO/trunk/tests/DOME/MY_SRC
- Timestamp:
- 2021-09-16T13:13:13+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/DOME/MY_SRC/usrdef_nam.F90
r15119 r15265 96 96 ighost_s = nbghostcells 97 97 ighost_n = nbghostcells 98 99 IF ( Agrif_Ix() == 1) ighost_w = 1100 IF ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo)- 1) ighost_e = 1101 IF ( Agrif_Iy() == 1) ighost_s = 1102 IF ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo)- 1) ighost_n = 198 ! In case one sets zoom boundaries over domain edges: 99 IF ( Agrif_Ix() == 2 - Agrif_Parent(nbghostcells_x_w) ) ighost_w = 1 100 IF ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(Ni0glo)-Agrif_Parent(nbghostcells_x_w) ) ighost_e = 1 101 IF ( Agrif_Iy() == 2 - Agrif_Parent(nbghostcells_y_s) ) ighost_s = 1 102 IF ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(Nj0glo)-Agrif_Parent(nbghostcells_y_s) ) ighost_n = 1 103 103 kpi = nbcellsx + ighost_w + ighost_e 104 104 kpj = nbcellsy + ighost_s + ighost_n
Note: See TracChangeset
for help on using the changeset viewer.