Changeset 9564
 Timestamp:
 20180509T11:24:02+02:00 (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90
r9561 r9564 146 146 INTEGER :: iino, ijno, iiso, ijso !   147 147 INTEGER :: iiea, ijea, iiwe, ijwe !   148 INTEGER :: iresti, irestj, i proc!  148 INTEGER :: iresti, irestj, iarea0 !   149 149 INTEGER :: ierr ! local logical unit 150 150 REAL(wp):: zidom, zjdom ! local scalars … … 279 279 icont = 1 280 280 DO jarea = 1, jpni*jpnj 281 ii = 1 + MOD(jarea1,jpni) 282 ij = 1 + (jarea1)/jpni 281 iarea0 = jarea  1 282 ii = 1 + MOD(iarea0,jpni) 283 ij = 1 + iarea0/jpni 283 284 ili = ilci(ii,ij) 284 285 ilj = ilcj(ii,ij) … … 293 294 294 295 ! Subdomain neighbors (get their zone number): default definition 295 iproc = jarea  1 296 ioso(ii,ij) = iproc  jpni 297 iowe(ii,ij) = iproc  1 298 ioea(ii,ij) = iproc + 1 299 iono(ii,ij) = iproc + jpni 296 ioso(ii,ij) = iarea0  jpni 297 iowe(ii,ij) = iarea0  1 298 ioea(ii,ij) = iarea0 + 1 299 iono(ii,ij) = iarea0 + jpni 300 300 ildi(ii,ij) = 1 + nn_hls 301 301 ilei(ii,ij) = ili  nn_hls … … 312 312 ENDIF 313 313 IF( MOD(jarea,jpni) == 0 ) THEN 314 ioea(ii,ij) = i proc (jpni1)314 ioea(ii,ij) = iarea0  (jpni1) 315 315 ENDIF 316 316 IF( MOD(jarea,jpni) == 1 ) THEN 317 iowe(ii,ij) = i proc+ jpni  1317 iowe(ii,ij) = iarea0 + jpni  1 318 318 ENDIF 319 319 ENDIF … … 391 391 !  392 392 DO jarea = 1, jpni*jpnj 393 iproc = jarea1394 393 ii = 1 + MOD( jarea1 , jpni ) 395 394 ij = 1 + (jarea1) / jpni … … 428 427 ! Update il[de][ij] according to modified ibond[ij] 429 428 !  430 DO j area= 1, jpnij431 ii = iin(j area)432 ij = ijn(j area)429 DO jproc = 1, jpnij 430 ii = iin(jproc) 431 ij = ijn(jproc) 433 432 IF( ibondi(ii,ij) == 1 .OR. ibondi(ii,ij) == 2 ) ildi(ii,ij) = 1 434 433 IF( ibondi(ii,ij) == 1 .OR. ibondi(ii,ij) == 2 ) ilei(ii,ij) = ilci(ii,ij)
Note: See TracChangeset
for help on using the changeset viewer.