- Timestamp:
- 2018-07-11T14:19:53+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mpp_nfd_generic.h90
r9850 r9926 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 … … 121 121 IF(iproc /= -1) THEN 122 122 iilb = nimppt(iproc+1) 123 ilci = nlcit (iproc+1) 123 124 ildi = nldit (iproc+1) 124 125 ilei = nleit (iproc+1) 125 IF( iilb == 1 ) ildi = 1! e-w boundary already done -> force to take 1st column126 IF( iilb + jpi - 1 == jpiglo ) ilei = jpi ! e-w boundary already done -> force to take last column126 IF( iilb == 1 ) ildi = 1 ! e-w boundary already done -> force to take 1st column 127 IF( iilb + ilci - 1 == jpiglo ) ilei = ilci ! e-w boundary already done -> force to take last column 127 128 iilb = nfiimpp(isendto(jr),jpnj) - nfiimpp(isendto(1),jpnj) 128 129 ENDIF … … 202 203 iproc = nrank_north(jr) + 1 203 204 iilb = nimppt(iproc) 205 ilci = nlcit (iproc) 204 206 ildi = nldit (iproc) 205 207 ilei = nleit (iproc) 206 IF( iilb == 1 ) ildi = 1! e-w boundary already done -> force to take 1st column207 IF( iilb + jpi - 1 == jpiglo ) ilei = jpi ! e-w boundary already done -> force to take last column208 IF( iilb == 1 ) ildi = 1 ! e-w boundary already done -> force to take 1st column 209 IF( iilb + ilci - 1 == jpiglo ) ilei = ilci ! e-w boundary already done -> force to take last column 208 210 DO jf = 1, ipf 209 211 DO jl = 1, ipl
Note: See TracChangeset
for help on using the changeset viewer.