Changeset 9564
- Timestamp:
- 2018-05-09T11: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(jarea-1,jpni) 282 ij = 1 + (jarea-1)/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- (jpni-1)314 ioea(ii,ij) = iarea0 - (jpni-1) 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 = jarea-1394 393 ii = 1 + MOD( jarea-1 , jpni ) 395 394 ij = 1 + (jarea-1) / 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.