Changeset 9689


Ignore:
Timestamp:
2018-05-30T14:42:10+02:00 (2 years ago)
Author:
smasson
Message:

trunk: bugfix following [9667], see #2093

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/LBC/mpp_bdy_generic.h90

    r9667 r9689  
    8686            IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(1:nn_hls,:,:,:,jf) = zland     ! south except F-point 
    8787            ! 
    88          ELSEIF(nbondi == 1) THEN               ! subdomain to the west only 
     88         ELSEIF(nbondi ==  1) THEN              ! subdomain to the west only 
    8989            ARRAY_IN(nlci-nn_hls+1:jpi,:,:,:,jf) = zland    ! north 
    9090         ENDIF 
     
    100100                                               ARRAY_IN(:,nlcj-nn_hls+1:jpj   ,:,:,jf) = zland  ! west 
    101101            ENDIF 
    102          ELSEIF(nbondi == -1) THEN              ! subdomain to the east only 
     102         ELSEIF(nbondj == -1) THEN              ! subdomain to the east only 
    103103            IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(:,1:nn_hls,:,:,jf) = zland     ! south except F-point 
    104104            ! 
    105          ELSEIF(nbondi == 1) THEN               ! subdomain to the west only 
     105         ELSEIF(nbondj ==  1) THEN              ! subdomain to the west only 
    106106            ARRAY_IN(:,nlcj-nn_hls+1:jpj,:,:,jf) = zland    ! north 
    107107         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.