Changeset 13130 for NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mppini.F90

Timestamp:

2020-06-19T08:18:11+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: supress halos from outputs and coupling, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mppini.F90 (modified) (1 diff)

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

@@ -1200 +1200 @@
       ! Set idompar values equivalent to the jpdom_local_noextra definition
       ! used in IOM. This works even if jpnij .ne. jpni*jpnj.
-      iglo(1) = jpiglo
-      iglo(2) = jpjglo
-      iloc(1) = jpi
-      iloc(2) = jpj
-      iabsf(1) = nimppt(narea)
-      iabsf(2) = njmppt(narea)
+      iglo( :) = (/ Ni0glo, Nj0glo /)
+      iloc( :) = (/ Ni_0  , Nj_0   /)
+      iabsf(:) = (/ Nis0  , Njs0   /) + (/ nimpp, njmpp /) - 1 - nn_hls   ! corresponds to mig0(Nis0) but mig0 is not yet defined!
       iabsl(:) = iabsf(:) + iloc(:) - 1
-      ihals(1) = Nis0 - 1
-      ihals(2) = Njs0 - 1
-      ihale(1) = jpi - Nie0
-      ihale(2) = jpj - Nje0
-      idid(1) = 1
-      idid(2) = 2
+      ihals(:) = (/ 0     , 0      /)
+      ihale(:) = (/ 0     , 0      /)
+      idid( :) = (/ 1     , 2      /)
 
       IF(lwp) THEN
           WRITE(numout,*)
-          WRITE(numout,*) 'mpp init_ioipsl :   iloc  = ', iloc (1), iloc (2)
-          WRITE(numout,*) '~~~~~~~~~~~~~~~     iabsf = ', iabsf(1), iabsf(2)
-          WRITE(numout,*) '                    ihals = ', ihals(1), ihals(2)
-          WRITE(numout,*) '                    ihale = ', ihale(1), ihale(2)
+          WRITE(numout,*) 'mpp init_ioipsl :   iloc  = ', iloc
+          WRITE(numout,*) '~~~~~~~~~~~~~~~     iabsf = ', iabsf
+          WRITE(numout,*) '                    ihals = ', ihals
+          WRITE(numout,*) '                    ihale = ', ihale
       ENDIF
       !