Changeset 9908


Ignore:
Timestamp:
2018-07-10T11:30:16+02:00 (2 years ago)
Author:
smasson
Message:

trunk: bugfix following [9805], see #2101

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90

    r9805 r9908  
    5656      INTEGER  ::   ipi, ipj, ipk, ipl, ipf         ! dimension of the input array 
    5757      INTEGER  ::   imigr, iihom, ijhom             ! local integers 
    58       INTEGER  ::   ierr, itaille, ildi, ilei, iilb 
     58      INTEGER  ::   ierr, itaille, ilci, ildi, ilei, iilb 
    5959      INTEGER  ::   ij, iproc 
    6060      INTEGER, DIMENSION (jpmaxngh)       ::   ml_req_nf   ! for mpi_isend when avoiding mpi_allgather 
     
    117117            IF(iproc /= -1) THEN 
    118118               iilb = nimppt(iproc+1) 
     119               ilci = nlcit (iproc+1) 
    119120               ildi = nldit (iproc+1) 
    120121               ilei = nleit (iproc+1) 
    121                IF( iilb           ==      1 )   ildi = 1     ! e-w boundary already done -> force to take 1st column 
    122                IF( iilb + jpi - 1 == jpiglo )   ilei = jpi   ! e-w boundary already done -> force to take last column 
     122               IF( iilb            ==      1 )   ildi = 1      ! e-w boundary already done -> force to take 1st column 
     123               IF( iilb + ilci - 1 == jpiglo )   ilei = ilci   ! e-w boundary already done -> force to take last column 
    123124               iilb = nfiimpp(isendto(jr),jpnj) - nfiimpp(isendto(1),jpnj) 
    124125            ENDIF 
     
    185186            iproc = nrank_north(jr) + 1 
    186187            iilb  = nimppt(iproc) 
     188            ilci  = nlcit (iproc) 
    187189            ildi  = nldit (iproc) 
    188190            ilei  = nleit (iproc) 
    189             IF( iilb           ==      1 )   ildi = 1     ! e-w boundary already done -> force to take 1st column 
    190             IF( iilb + jpi - 1 == jpiglo )   ilei = jpi   ! e-w boundary already done -> force to take last column 
     191            IF( iilb            ==      1 )   ildi = 1      ! e-w boundary already done -> force to take 1st column 
     192            IF( iilb + ilci - 1 == jpiglo )   ilei = ilci   ! e-w boundary already done -> force to take last column 
    191193            DO jf = 1, ipf 
    192194               DO jl = 1, ipl 
Note: See TracChangeset for help on using the changeset viewer.