Changeset 12993 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_nogather_generic.h90

Timestamp:

2020-05-29T17:13:41+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: works when removing land subdomain, cleaning/rewriting of mpp_nfd_generic.h90, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_nogather_generic.h90 (modified) (14 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbc_nfd_nogather_generic.h90

@@ -99 +99 @@
                        ijj = jpj -jj +1
                      DO ji = startloop, jpi
-                     ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                     ijt = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 4
                         ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,jj,jk,jl,jf)
                      END DO
@@ -126 +126 @@
                      DO jl = 1, ipl; DO jk = 1, ipk
                         DO ji = startloop, jpi
-                           ijt  = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                           ijt  = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 4
                            jia  = ji + nimpp - 1
                            ijta = jpiglo - jia + 2
@@ -148 +148 @@
               ijj = jpj -jj +1
                      DO ji = 1, endloop
-                        iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                        iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                         ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(iju,jj,jk,jl,jf)
                      END DO
@@ -186 +186 @@
                   DO jl = 1, ipl; DO jk = 1, ipk
                      DO ji = startloop, endloop
-                        iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                        iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                         jia = ji + nimpp - 1 
                         ijua = jpiglo - jia + 1 
@@ -210 +210 @@
                      ijj = jpj -jj +1
                         DO ji = startloop, jpi
-                           ijt=jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                           ijt=jpiglo - ji - nimpp - nfimpp(isendto(1)) + 4
                            ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,jj,jk,jl,jf)
                         END DO
@@ -218 +218 @@
                DO jl = 1, ipl; DO jk = 1, ipk
                   DO ji = startloop, jpi
-                     ijt=jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 4
+                     ijt=jpiglo - ji - nimpp - nfimpp(isendto(1)) + 4
                      ARRAY_IN(ji,jpj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,1,jk,jl,jf)
                   END DO
@@ -241 +241 @@
                      ijj = jpj -jj +1
                         DO ji = 1, endloop
-                           iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                           iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                            ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(iju,jj,jk,jl,jf)
                         END DO
@@ -249 +249 @@
                DO jl = 1, ipl; DO jk = 1, ipk
                   DO ji = 1, endloop
-                     iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                     iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                      ARRAY_IN(ji,jpj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(iju,1,jk,jl,jf)
                   END DO
@@ -290 +290 @@
            ijj = jpj-jj+1
            DO ji = 1, jpi
-                        ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                        ijt = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                         ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,jj,jk,jl,jf)
                      END DO
@@ -306 +306 @@
            ijj = jpj-jj+1
                      DO ji = 1, endloop
-                        iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 2
+                        iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 2
                         ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(iju,jj,jk,jl,jf)
                      END DO
@@ -328 +328 @@
            ijj = jpj -jj +1
                      DO ji = 1, jpi
-                        ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                        ijt = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                         ARRAY_IN(ji,ijj,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,jj,jk,jl,jf)
                      END DO
@@ -345 +345 @@
                   DO jl = 1, ipl; DO jk = 1, ipk
                         DO ji = startloop, jpi
-                        ijt = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 3
+                        ijt = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 3
                            ARRAY_IN(ji,jpj-nn_hls,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(ijt,nn_hls+1,jk,jl,jf)
                         END DO
@@ -362 +362 @@
           ijj = jpj -jj +1
                     DO ji = 1, endloop
-                       iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 2
+                       iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 2
                        ARRAY_IN(ji,ijj ,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(iju,jj,jk,jl,jf)
                      END DO
@@ -395 +395 @@
                      DO jl = 1, ipl; DO jk = 1, ipk
                         DO ji = startloop, endloop
-                           iju = jpiglo - ji - nimpp - nfiimpp(isendto(1),jpnj) + 2
+                           iju = jpiglo - ji - nimpp - nfimpp(isendto(1)) + 2
                            ARRAY_IN(ji,jpj-nn_hls,jk,jl,jf) = SGN_IN(jf) * ARRAY2_IN(iju,nn_hls+1,jk,jl,jf)
                         END DO