Changeset 9446


Ignore:
Timestamp:
2018-03-28T17:17:03+02:00 (2 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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

    r9444 r9446  
    434434      ! ---------------------- 
    435435      DO jarea = 1, jpni*jpnj 
    436          ii = iin(narea) 
    437          ij = ijn(narea) 
     436         ii = iin(jarea) 
     437         ij = ijn(jarea) 
    438438         IF( ibondi(ii,ij) == -1 .OR. ibondi(ii,ij) == 2 ) ildi(ii,ij) =  1 
    439439         IF( ibondi(ii,ij) ==  1 .OR. ibondi(ii,ij) == 2 ) ilei(ii,ij) = ilci(ii,ij) 
     
    533533 
    534534         DO jproc = 1, jpnij 
    535             ii = iin(jproc) 
    536             ij = ijn(jproc) 
    537535            WRITE(inum,'(13i5,2i7)')   jproc-1, nlcit  (jproc), nlcjt  (jproc),   & 
    538536               &                                nldit  (jproc), nldjt  (jproc),   & 
     
    541539               &                                ii_nono(jproc), ii_noso(jproc),   & 
    542540               &                                ii_nowe(jproc), ii_noea(jproc),   & 
    543                &                                ibondi (ii,ij), ibondj (ii,ij)  
     541               &                                ibonit (jproc), ibonjt (jproc)  
    544542         END DO 
    545543         CLOSE(inum)    
Note: See TracChangeset for help on using the changeset viewer.