- Timestamp:
- 2018-03-28T17:17:03+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90
r9444 r9446 434 434 ! ---------------------- 435 435 DO jarea = 1, jpni*jpnj 436 ii = iin( narea)437 ij = ijn( narea)436 ii = iin(jarea) 437 ij = ijn(jarea) 438 438 IF( ibondi(ii,ij) == -1 .OR. ibondi(ii,ij) == 2 ) ildi(ii,ij) = 1 439 439 IF( ibondi(ii,ij) == 1 .OR. ibondi(ii,ij) == 2 ) ilei(ii,ij) = ilci(ii,ij) … … 533 533 534 534 DO jproc = 1, jpnij 535 ii = iin(jproc)536 ij = ijn(jproc)537 535 WRITE(inum,'(13i5,2i7)') jproc-1, nlcit (jproc), nlcjt (jproc), & 538 536 & nldit (jproc), nldjt (jproc), & … … 541 539 & ii_nono(jproc), ii_noso(jproc), & 542 540 & ii_nowe(jproc), ii_noea(jproc), & 543 & ibon di (ii,ij), ibondj (ii,ij)541 & ibonit (jproc), ibonjt (jproc) 544 542 END DO 545 543 CLOSE(inum)
Note: See TracChangeset
for help on using the changeset viewer.