Changeset 9926


Ignore:
Timestamp:
2018-07-11T14:19:53+02:00 (2 years ago)
Author:
smasson
Message:

dev_r9759_HPC09_ESIWACE: report bugixes from NEMO trunk

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  
    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 
     
    121121            IF(iproc /= -1) THEN 
    122122               iilb = nimppt(iproc+1) 
     123               ilci = nlcit (iproc+1) 
    123124               ildi = nldit (iproc+1) 
    124125               ilei = nleit (iproc+1) 
    125                IF( iilb           ==      1 )   ildi = 1     ! e-w boundary already done -> force to take 1st column 
    126                IF( iilb + jpi - 1 == jpiglo )   ilei = jpi   ! e-w boundary already done -> force to take last column 
     126               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 
    127128               iilb = nfiimpp(isendto(jr),jpnj) - nfiimpp(isendto(1),jpnj) 
    128129            ENDIF 
     
    202203            iproc = nrank_north(jr) + 1 
    203204            iilb  = nimppt(iproc) 
     205            ilci  = nlcit (iproc) 
    204206            ildi  = nldit (iproc) 
    205207            ilei  = nleit (iproc) 
    206             IF( iilb           ==      1 )   ildi = 1     ! e-w boundary already done -> force to take 1st column 
    207             IF( iilb + jpi - 1 == jpiglo )   ilei = jpi   ! e-w boundary already done -> force to take last column 
     208            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 
    208210            DO jf = 1, ipf 
    209211               DO jl = 1, ipl 
  • NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/LBC/mppini.F90

    r9814 r9926  
    521521         nimppt(jproc) = iimppt(ii,ij)   
    522522         njmppt(jproc) = ijmppt(ii,ij)  
    523          nfilcit(ii,ij) = ilci(ii,ij) 
    524523      END DO 
     524      nfilcit(:,:) = ilci(:,:) 
    525525 
    526526      ! Save processor layout in ascii file 
     
    542542               &                                ibonit (jproc), ibonjt (jproc)  
    543543         END DO 
    544          CLOSE(inum)    
    545544      END IF 
    546545 
     
    583582      IF( jperio >= 3 .AND. jperio <= 6 .AND. jpni > 1 ) THEN 
    584583         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 
    587596      ENDIF 
    588597      ! 
    589598      CALL mpp_init_ioipsl       ! Prepare NetCDF output file (if necessary) 
    590599      ! 
    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)    
    592614      ! 
    593615      DEALLOCATE(iin, ijn, ii_nono, ii_noea, ii_noso, ii_nowe,    & 
Note: See TracChangeset for help on using the changeset viewer.