Changeset 8758 for branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_nfd_generic.h90
- Timestamp:
- 2017-11-20T17:29:54+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8126_ROBUST08_no_ghost/NEMOGCM/NEMO/OPA_SRC/LBC/mpp_nfd_generic.h90
r8314 r8758 73 73 ipj = 4 ! 2nd dimension of message transfers (last j-lines) 74 74 ! 75 ALLOCATE( znorthloc(jpi ,4,ipk,ipl,ipf) )75 ALLOCATE( znorthloc(jpimax,4,ipk,ipl,ipf) ) 76 76 ! 77 77 znorthloc(:,:,:,:,:) = 0._wp … … 82 82 DO jj = nlcj - ipj +1, nlcj 83 83 ij = jj - nlcj + ipj 84 znorthloc( :,ij,jk,jl,jf) = ARRAY_IN(:,jj,jk,jl,jf)84 znorthloc(1:jpi,ij,jk,jl,jf) = ARRAY_IN(1:jpi,jj,jk,jl,jf) 85 85 END DO 86 86 END DO … … 89 89 ! 90 90 ! 91 itaille = jpi * ipj * ipk * ipl * ipf91 itaille = jpimax * ipj * ipk * ipl * ipf 92 92 ! 93 93 IF( l_north_nogather ) THEN !== ???? ==! … … 177 177 ELSE !== ???? ==! 178 178 ALLOCATE( ztab (jpiglo,4,ipk,ipl,ipf ) ) 179 ALLOCATE( znorthgloio(jpi 179 ALLOCATE( znorthgloio(jpimax,4,ipk,ipl,ipf,jpni) ) 180 180 ! 181 181 CALL MPI_ALLGATHER( znorthloc , itaille, MPI_DOUBLE_PRECISION, &
Note: See TracChangeset
for help on using the changeset viewer.