Changeset 14687 for utils/tools/DOMAINcfg/src/agrif_connect.F90

Timestamp:

2021-04-09T17:48:50+02:00 (4 years ago)

Author:

jchanut

Message:

#Changes to accomodate AGRIF new grid positionning implemented at r14674 and r14675, #2638

File:

• utils/tools/DOMAINcfg/src/agrif_connect.F90 (modified) (8 diffs)

utils/tools/DOMAINcfg/src/agrif_connect.F90

@@ -180 +180 @@
       ! --- West --- !
       IF( ((nbondi == -1) .OR. (nbondi == 2) ).AND. .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6)) THEN
-         ind1 = nn_hls + 1 + nbghostcells + istart
+         ind1 = nn_hls + nbghostcells + istart
          ind2 = ind1 + ispongearea 
          DO ji = mi0(ind1), mi1(ind2)   
@@ -189 +189 @@
             ! ghost cells:
             ind1 = 1
-            ind2 = nn_hls + 1 + nbghostcells + istart  ! halo + land + nbghostcells
+            ind2 = nn_hls + nbghostcells + istart  ! halo + land + nbghostcells
             DO ji = mi0(ind1), mi1(ind2)   
                DO jj = 1, jpj               
@@ -199 +199 @@
       ! --- East --- !
       IF( ((nbondi == 1) .OR. (nbondi == 2) ).AND. .NOT. (jperio == 1 .OR. jperio == 4 .OR. jperio == 6)) THEN
-         ind2 = jpiglo -  (nn_hls + nbghostcells ) - istart
+         ind2 = jpiglo -  (nn_hls + nbghostcells -1 ) - istart
          ind1 = ind2 -ispongearea       
          DO ji = mi0(ind1), mi1(ind2)
@@ -207 +207 @@
          ENDDO
             ! ghost cells:
-            ind1 = jpiglo -  (nn_hls + nbghostcells ) - istart   ! halo + land + nbghostcells - 1
+            ind1 = jpiglo -  (nn_hls + nbghostcells - 1 ) - istart   ! halo + land + nbghostcells - 1
             ind2 = jpiglo - 1
             DO ji = mi0(ind1), mi1(ind2)
@@ -218 +218 @@
       ! --- South --- !
       IF(( (nbondj == -1) .OR. (nbondj == 2) ).AND.(lk_south)) THEN
-         ind1 = nn_hls + 1 + nbghostcells + istart
+         ind1 = nn_hls + nbghostcells + istart
          ind2 = ind1 + ispongearea 
          DO jj = mj0(ind1), mj1(ind2) 
@@ -227 +227 @@
             ! ghost cells:
             ind1 = 1
-            ind2 = nn_hls + 1 + nbghostcells + istart                 ! halo + land + nbghostcells
+            ind2 = nn_hls + nbghostcells + istart                 ! halo + land + nbghostcells
             DO jj = mj0(ind1), mj1(ind2) 
                DO ji = 1, jpi
@@ -237 +237 @@
       ! --- North --- !
       IF( (nbondj == 1) .OR. (nbondj == 2) ) THEN
-         ind2 = jpjglo - (nn_hls + nbghostcells) - istart
+         ind2 = jpjglo - (nn_hls + nbghostcells - 1) - istart
          ind1 = ind2 -ispongearea
          DO jj = mj0(ind1), mj1(ind2)
@@ -245 +245 @@
          ENDDO
             ! ghost cells:
-            ind1 = jpjglo - (nn_hls + nbghostcells) - istart      ! halo + land + nbghostcells - 1
+            ind1 = jpjglo - (nn_hls + nbghostcells - 1) - istart      ! halo + land + nbghostcells - 1
             ind2 = jpjglo
             DO jj = mj0(ind1), mj1(ind2)