Changeset 4647


Ignore:
Timestamp:
2014-05-23T08:54:53+02:00 (6 years ago)
Author:
epico
Message:

bug fix for the definition of the iono values. see ticket #1324

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

    r4624 r4647  
    284284            IF( jarea > ijm1 ) ipolj(ii,ij) = 3 
    285285            IF( MOD(jpni,2) == 1 .AND. jarea == imil ) ipolj(ii,ij) = 4 
    286             IF( ipolj(ii,ij) == 3 ) iono(ii,ij) = jpni*jpnj-jarea+ijm1 - 1   ! MPI rank of northern neighbour 
     286            IF( ipolj(ii,ij) == 3 ) iono(ii,ij) = jpni*jpnj-jarea+ijm1   ! MPI rank of northern neighbour 
    287287         ENDIF 
    288288         IF( jperio == 5 .OR. jperio == 6 ) THEN 
     
    291291            IF( jarea > ijm1) ipolj(ii,ij) = 5 
    292292            IF( MOD(jpni,2) == 1 .AND. jarea == imil ) ipolj(ii,ij) = 6 
    293             IF( ipolj(ii,ij) == 5) iono(ii,ij) = jpni*jpnj-jarea+ijm1 - 1    ! MPI rank of northern neighbour 
     293            IF( ipolj(ii,ij) == 5) iono(ii,ij) = jpni*jpnj-jarea+ijm1    ! MPI rank of northern neighbour 
    294294         ENDIF 
    295295 
Note: See TracChangeset for help on using the changeset viewer.