Changeset 12807 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbclnk.F90

Timestamp:

2020-04-23T15:14:45+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: input file only over inner domain + new variables names, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbclnk.F90 (modified) (4 diffs)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/lbclnk.F90

@@ -248 +248 @@
       !
       INTEGER ::   ji, jj, jr
-      INTEGER ::   ierr, itaille, ildi, ilei, iilb
+      INTEGER ::   ierr, itaille, iis0, iie0, iilb
       INTEGER ::   ipj, ij, iproc
       !
@@ -282 +282 @@
       DO jr = 1, ndim_rank_north            ! recover the global north array
          iproc = nrank_north(jr) + 1
-         ildi = nldit (iproc)
-         ilei = nleit (iproc)
+         iis0 = nis0all(iproc)
+         iie0 = nie0all(iproc)
          iilb = nimppt(iproc)
          DO jj = 1-kextj, ipj+kextj
-            DO ji = ildi, ilei
+            DO ji = iis0, iie0
                ztab_e(ji+iilb-1,jj) = znorthgloio_e(ji,jj,jr)
             END DO
@@ -396 +396 @@
       SELECT CASE ( nbondi )      ! Read Dirichlet lateral conditions
       CASE ( -1, 0, 1 )                ! all exept 2 (i.e. close case)
-         iihom = jpi-nreci-kexti
+         iihom = jpi - (2 * nn_hls) - kexti
          DO jl = 1, ipreci
             r2dew(:,jl,1) = pt2d(nn_hls+jl,:)
@@ -453 +453 @@
       !
       IF( nbondj /= 2 ) THEN      ! Read Dirichlet lateral conditions
-         ijhom = jpj-nrecj-kextj
+         ijhom = jpj - ( 2 * nn_hls ) -kextj
          DO jl = 1, iprecj
             r2dsn(:,jl,1) = pt2d(:,ijhom +jl)