Changeset 13256


Ignore:
Timestamp:
2020-07-07T09:11:15+02:00 (4 weeks ago)
Author:
smasson
Message:

Extra_Halo: bugfix in mppini introduced in [12993], see #2366

File:
1 edited

Legend:

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

    r13251 r13256  
    351351      CALL mpp_getnum( llisoce, ipproc, iin, ijn ) 
    352352      ! 
    353       nfproc(:) = ipproc(:,jpnj) 
    354       nfimpp(:) = iimppt(:,jpnj) 
    355       nfjpi (:) =   ijpi(:,jpnj) 
     353      DO jn = 1, jpni 
     354         jproc = ipproc(jn,jpnj) 
     355         ii = iin(jproc+1) 
     356         ij = ijn(jproc+1) 
     357         nfproc(jn) = jproc 
     358         nfimpp(jn) = iimppt(ii,ij) 
     359         nfjpi (jn) =   ijpi(ii,ij) 
     360      END DO 
    356361      ! 
    357362      IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.