- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/LBC/mpp_lbc_north_icb_generic.h90
r13226 r13899 36 36 ! 37 37 INTEGER :: ji, jj, jr 38 INTEGER :: ierr, itaille , ildi, ilei, iilb39 INTEGER :: ipj, ij, iproc 38 INTEGER :: ierr, itaille 39 INTEGER :: ipj, ij, iproc, ijnr, ii1, ipi, impp 40 40 ! 41 41 REAL(PRECISION), DIMENSION(:,:) , ALLOCATABLE :: ztab_e, znorthloc_e … … 47 47 ALLOCATE( ztab_e(jpiglo, 1-kextj:ipj+kextj) , & 48 48 & znorthloc_e(jpimax, 1-kextj:ipj+kextj) , & 49 & znorthgloio_e(jpimax, 1-kextj:ipj+kextj, jpni) )49 & znorthgloio_e(jpimax, 1-kextj:ipj+kextj,ndim_rank_north) ) 50 50 ! 51 51 # if defined SINGLE_PRECISION … … 67 67 ! 68 68 IF( ln_timing ) CALL tic_tac(.TRUE.) 69 #if defined key_mpp_mpi 69 70 CALL MPI_ALLGATHER( znorthloc_e(1,1-kextj) , itaille, MPI_TYPE, & 70 71 & znorthgloio_e(1,1-kextj,1), itaille, MPI_TYPE, & 71 72 & ncomm_north, ierr ) 73 #endif 72 74 ! 73 75 IF( ln_timing ) CALL tic_tac(.FALSE.) 74 76 ! 77 ijnr = 0 75 78 DO jr = 1, ndim_rank_north ! recover the global north array 76 iproc = nrank_north(jr) + 1 77 ildi = nldit (iproc) 78 ilei = nleit (iproc) 79 iilb = nimppt(iproc) 80 DO jj = 1-kextj, ipj+kextj 81 DO ji = ildi, ilei 82 ztab_e(ji+iilb-1,jj) = znorthgloio_e(ji,jj,jr) 79 iproc = nfproc(jr) 80 IF( iproc /= -1 ) THEN 81 impp = nfimpp(jr) 82 ipi = nfjpi(jr) 83 ijnr = ijnr + 1 84 DO jj = 1-kextj, ipj+kextj 85 DO ji = 1, ipi 86 ii1 = impp + ji - 1 ! corresponds to mig(ji) but for subdomain iproc 87 ztab_e(ii1,jj) = znorthgloio_e(ji,jj,ijnr) 88 END DO 83 89 END DO 84 END DO90 ENDIF 85 91 END DO 86 92
Note: See TracChangeset
for help on using the changeset viewer.