Changeset 9446

Timestamp:

2018-03-28T17:17:03+02:00 (6 years ago)

Author:

smasson

Message:

dev_merge_2017: bugfix of a very nice typo error following the reorganisation of nemogcm.F90 and mppini.F90 in r9436 see #2070

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -434 +434 @@
       ! ----------------------
       DO jarea = 1, jpni*jpnj
-         ii = iin(narea)
-         ij = ijn(narea)
+         ii = iin(jarea)
+         ij = ijn(jarea)
          IF( ibondi(ii,ij) == -1 .OR. ibondi(ii,ij) == 2 ) ildi(ii,ij) =  1
          IF( ibondi(ii,ij) ==  1 .OR. ibondi(ii,ij) == 2 ) ilei(ii,ij) = ilci(ii,ij)
@@ -533 +533 @@
 
          DO jproc = 1, jpnij
-            ii = iin(jproc)
-            ij = ijn(jproc)
             WRITE(inum,'(13i5,2i7)')   jproc-1, nlcit  (jproc), nlcjt  (jproc),   &
                &                                nldit  (jproc), nldjt  (jproc),   &
@@ -541 +539 @@
                &                                ii_nono(jproc), ii_noso(jproc),   &
                &                                ii_nowe(jproc), ii_noea(jproc),   &
-               &                                ibondi (ii,ij), ibondj (ii,ij) 
+               &                                ibonit (jproc), ibonjt (jproc) 
          END DO
          CLOSE(inum)