Changeset 10087 for vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modmpp.F90
- Timestamp:
- 2018-09-05T15:33:44+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendors/AGRIF/CMEMS_2020/AGRIF_FILES/modmpp.F90
r5656 r10087 166 166 subroutine Get_External_Data_first ( pttruetab, cetruetab, pttruetabwhole, cetruetabwhole, & 167 167 nbdim, memberoutall, coords, sendtoproc, recvfromproc, & 168 imin, imax, imin_recv, imax_recv )168 imin, imax, imin_recv, imax_recv, bornesmin, bornesmax ) 169 169 !--------------------------------------------------------------------------------------------------- 170 170 include 'mpif.h' … … 179 179 integer, dimension(nbdim,0:Agrif_NbProcs-1), intent(out) :: imin,imax 180 180 integer, dimension(nbdim,0:Agrif_NbProcs-1), intent(out) :: imin_recv,imax_recv 181 integer, dimension(nbdim,0:Agrif_NbProcs-1), intent(in) :: bornesmin, bornesmax 181 182 ! 182 183 integer :: imintmp, imaxtmp, i, j, k, i1 … … 211 212 IF (cetruetab(i,Agrif_Procrank) > cetruetab(i,k)) THEN 212 213 DO j=imin1,imax1 213 IF (( cetruetab(i,k)-j) > (j-pttruetab(i,Agrif_Procrank))) THEN214 IF ((bornesmax(i,k)-j) > (j-bornesmin(i,Agrif_Procrank))) THEN 214 215 imintmp = j+1 215 216 tochange = .TRUE. … … 228 229 IF (pttruetab(i,Agrif_Procrank) < pttruetab(i,k)) THEN 229 230 DO j=imax1,imin1,-1 230 IF ((j- pttruetab(i,k)) > (cetruetab(i,Agrif_Procrank)-j)) THEN231 IF ((j-bornesmin(i,k)) > (bornesmax(i,Agrif_Procrank)-j)) THEN 231 232 imaxtmp = j-1 232 233 tochange = .TRUE. … … 248 249 sendtoproc(k) = .true. 249 250 ! 251 IF ( .not. memberoutall(k) ) THEN 252 sendtoproc(k) = .false. 253 ELSE 250 254 !CDIR SHORTLOOP 251 255 do i = 1,nbdim … … 257 261 endif 258 262 enddo 259 IF ( .not. memberoutall(k) ) THEN260 sendtoproc(k) = .false.261 263 ENDIF 262 264 enddo
Note: See TracChangeset
for help on using the changeset viewer.