Changeset 9908
 Timestamp:
 20180710T11:30:16+02:00 (5 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/trunk/src/OCE/LBC/mpp_nfd_generic.h90
r9805 r9908 56 56 INTEGER :: ipi, ipj, ipk, ipl, ipf ! dimension of the input array 57 57 INTEGER :: imigr, iihom, ijhom ! local integers 58 INTEGER :: ierr, itaille, il di, ilei, iilb58 INTEGER :: ierr, itaille, ilci, ildi, ilei, iilb 59 59 INTEGER :: ij, iproc 60 60 INTEGER, DIMENSION (jpmaxngh) :: ml_req_nf ! for mpi_isend when avoiding mpi_allgather … … 117 117 IF(iproc /= 1) THEN 118 118 iilb = nimppt(iproc+1) 119 ilci = nlcit (iproc+1) 119 120 ildi = nldit (iproc+1) 120 121 ilei = nleit (iproc+1) 121 IF( iilb == 1 ) ildi = 1! ew boundary already done > force to take 1st column122 IF( iilb + jpi  1 == jpiglo ) ilei = jpi ! ew boundary already done > force to take last column122 IF( iilb == 1 ) ildi = 1 ! ew boundary already done > force to take 1st column 123 IF( iilb + ilci  1 == jpiglo ) ilei = ilci ! ew boundary already done > force to take last column 123 124 iilb = nfiimpp(isendto(jr),jpnj)  nfiimpp(isendto(1),jpnj) 124 125 ENDIF … … 185 186 iproc = nrank_north(jr) + 1 186 187 iilb = nimppt(iproc) 188 ilci = nlcit (iproc) 187 189 ildi = nldit (iproc) 188 190 ilei = nleit (iproc) 189 IF( iilb == 1 ) ildi = 1! ew boundary already done > force to take 1st column190 IF( iilb + jpi  1 == jpiglo ) ilei = jpi ! ew boundary already done > force to take last column191 IF( iilb == 1 ) ildi = 1 ! ew boundary already done > force to take 1st column 192 IF( iilb + ilci  1 == jpiglo ) ilei = ilci ! ew boundary already done > force to take last column 191 193 DO jf = 1, ipf 192 194 DO jl = 1, ipl
Note: See TracChangeset
for help on using the changeset viewer.