New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9564 – NEMO

Changeset 9564


Ignore:
Timestamp:
2018-05-09T11:24:02+02:00 (7 years ago)
Author:
smasson
Message:

dev_merge_2017: minor style modifications

File:
1 edited

Legend:

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

    r9561 r9564  
    146146      INTEGER ::   iino, ijno, iiso, ijso     !   -       - 
    147147      INTEGER ::   iiea, ijea, iiwe, ijwe     !   -       - 
    148       INTEGER ::   iresti, irestj, iproc      !   -       - 
     148      INTEGER ::   iresti, irestj, iarea0     !   -       - 
    149149      INTEGER ::   ierr                       ! local logical unit 
    150150      REAL(wp)::   zidom, zjdom               ! local scalars 
     
    279279      icont = -1 
    280280      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 
    283284         ili = ilci(ii,ij) 
    284285         ilj = ilcj(ii,ij) 
     
    293294 
    294295         ! 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 
    300300         ildi(ii,ij) =  1  + nn_hls 
    301301         ilei(ii,ij) = ili - nn_hls 
     
    312312            ENDIF 
    313313            IF( MOD(jarea,jpni) == 0 ) THEN 
    314                ioea(ii,ij) = iproc - (jpni-1) 
     314               ioea(ii,ij) = iarea0 - (jpni-1) 
    315315            ENDIF 
    316316            IF( MOD(jarea,jpni) == 1 ) THEN 
    317                iowe(ii,ij) = iproc + jpni - 1 
     317               iowe(ii,ij) = iarea0 + jpni - 1 
    318318            ENDIF 
    319319         ENDIF 
     
    391391      ! ---------------------- 
    392392      DO jarea = 1, jpni*jpnj 
    393          iproc = jarea-1 
    394393         ii = 1 + MOD( jarea-1  , jpni ) 
    395394         ij = 1 +     (jarea-1) / jpni 
     
    428427      ! Update il[de][ij] according to modified ibond[ij] 
    429428      ! ---------------------- 
    430       DO jarea = 1, jpnij 
    431          ii = iin(jarea) 
    432          ij = ijn(jarea) 
     429      DO jproc = 1, jpnij 
     430         ii = iin(jproc) 
     431         ij = ijn(jproc) 
    433432         IF( ibondi(ii,ij) == -1 .OR. ibondi(ii,ij) == 2 ) ildi(ii,ij) =  1 
    434433         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.