Ignore:
Timestamp:
2020-06-19T08:18:11+02:00 (3 months ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/LBC/mppini.F90

    r13065 r13130  
    12001200      ! Set idompar values equivalent to the jpdom_local_noextra definition 
    12011201      ! used in IOM. This works even if jpnij .ne. jpni*jpnj. 
    1202       iglo(1) = jpiglo 
    1203       iglo(2) = jpjglo 
    1204       iloc(1) = jpi 
    1205       iloc(2) = jpj 
    1206       iabsf(1) = nimppt(narea) 
    1207       iabsf(2) = njmppt(narea) 
     1202      iglo( :) = (/ Ni0glo, Nj0glo /) 
     1203      iloc( :) = (/ Ni_0  , Nj_0   /) 
     1204      iabsf(:) = (/ Nis0  , Njs0   /) + (/ nimpp, njmpp /) - 1 - nn_hls   ! corresponds to mig0(Nis0) but mig0 is not yet defined! 
    12081205      iabsl(:) = iabsf(:) + iloc(:) - 1 
    1209       ihals(1) = Nis0 - 1 
    1210       ihals(2) = Njs0 - 1 
    1211       ihale(1) = jpi - Nie0 
    1212       ihale(2) = jpj - Nje0 
    1213       idid(1) = 1 
    1214       idid(2) = 2 
     1206      ihals(:) = (/ 0     , 0      /) 
     1207      ihale(:) = (/ 0     , 0      /) 
     1208      idid( :) = (/ 1     , 2      /) 
    12151209 
    12161210      IF(lwp) THEN 
    12171211          WRITE(numout,*) 
    1218           WRITE(numout,*) 'mpp init_ioipsl :   iloc  = ', iloc (1), iloc (2) 
    1219           WRITE(numout,*) '~~~~~~~~~~~~~~~     iabsf = ', iabsf(1), iabsf(2) 
    1220           WRITE(numout,*) '                    ihals = ', ihals(1), ihals(2) 
    1221           WRITE(numout,*) '                    ihale = ', ihale(1), ihale(2) 
     1212          WRITE(numout,*) 'mpp init_ioipsl :   iloc  = ', iloc 
     1213          WRITE(numout,*) '~~~~~~~~~~~~~~~     iabsf = ', iabsf 
     1214          WRITE(numout,*) '                    ihals = ', ihals 
     1215          WRITE(numout,*) '                    ihale = ', ihale 
    12221216      ENDIF 
    12231217      ! 
Note: See TracChangeset for help on using the changeset viewer.