Changeset 9926 for NEMO/branches/2018/dev_r9759_HPC09_ESIWACE
- Timestamp:
- 2018-07-11T14:19:53+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC
- Files:
-
- 2 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 -
NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mppini.F90
r9814 r9926 521 521 nimppt(jproc) = iimppt(ii,ij) 522 522 njmppt(jproc) = ijmppt(ii,ij) 523 nfilcit(ii,ij) = ilci(ii,ij)524 523 END DO 524 nfilcit(:,:) = ilci(:,:) 525 525 526 526 ! Save processor layout in ascii file … … 542 542 & ibonit (jproc), ibonjt (jproc) 543 543 END DO 544 CLOSE(inum)545 544 END IF 546 545 … … 583 582 IF( jperio >= 3 .AND. jperio <= 6 .AND. jpni > 1 ) THEN 584 583 CALL mpp_ini_north 585 IF(lwp) WRITE(numout,*) 586 IF(lwp) WRITE(numout,*) ' ==>>> North fold boundary prepared for jpni >1' 584 IF (lwp) THEN 585 WRITE(numout,*) 586 WRITE(numout,*) ' ==>>> North fold boundary prepared for jpni >1' 587 ! additional prints in layout.dat 588 WRITE(inum,*) 589 WRITE(inum,*) 590 WRITE(inum,*) 'number of subdomains located along the north fold : ', ndim_rank_north 591 WRITE(inum,*) 'Rank of the subdomains located along the north fold : ', ndim_rank_north 592 DO jproc = 1, ndim_rank_north, 5 593 WRITE(inum,*) nrank_north( jproc:MINVAL( (/jproc+4,ndim_rank_north/) ) ) 594 END DO 595 ENDIF 587 596 ENDIF 588 597 ! 589 598 CALL mpp_init_ioipsl ! Prepare NetCDF output file (if necessary) 590 599 ! 591 IF( ln_nnogather ) CALL mpp_init_nfdcom ! northfold neighbour lists 600 IF( ln_nnogather ) THEN 601 CALL mpp_init_nfdcom ! northfold neighbour lists 602 IF (lwp) THEN 603 WRITE(inum,*) 604 WRITE(inum,*) 605 WRITE(inum,*) 'north fold exchanges with explicit point-to-point messaging :' 606 WRITE(inum,*) 'nfsloop : ', nfsloop 607 WRITE(inum,*) 'nfeloop : ', nfeloop 608 WRITE(inum,*) 'nsndto : ', nsndto 609 WRITE(inum,*) 'isendto : ', isendto 610 ENDIF 611 ENDIF 612 ! 613 IF (lwp) CLOSE(inum) 592 614 ! 593 615 DEALLOCATE(iin, ijn, ii_nono, ii_noea, ii_noso, ii_nowe, &
Note: See TracChangeset
for help on using the changeset viewer.