Changeset 9689 for NEMO/trunk/src

Timestamp:

2018-05-30T14:42:10+02:00 (6 years ago)

Author:

smasson

Message:

trunk: bugfix following [9667], see #2093

File:

• NEMO/trunk/src/OCE/LBC/mpp_bdy_generic.h90 (modified) (2 diffs)

NEMO/trunk/src/OCE/LBC/mpp_bdy_generic.h90

@@ -86 +86 @@
             IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(1:nn_hls,:,:,:,jf) = zland     ! south except F-point
             !
-         ELSEIF(nbondi == 1) THEN               ! subdomain to the west only
+         ELSEIF(nbondi ==  1) THEN              ! subdomain to the west only
             ARRAY_IN(nlci-nn_hls+1:jpi,:,:,:,jf) = zland    ! north
          ENDIF
@@ -100 +100 @@
                                                ARRAY_IN(:,nlcj-nn_hls+1:jpj   ,:,:,jf) = zland  ! west
             ENDIF
-         ELSEIF(nbondi == -1) THEN              ! subdomain to the east only
+         ELSEIF(nbondj == -1) THEN              ! subdomain to the east only
             IF( .NOT. NAT_IN(jf) == 'F' )   ARRAY_IN(:,1:nn_hls,:,:,jf) = zland     ! south except F-point
             !
-         ELSEIF(nbondi == 1) THEN               ! subdomain to the west only
+         ELSEIF(nbondj ==  1) THEN              ! subdomain to the west only
             ARRAY_IN(:,nlcj-nn_hls+1:jpj,:,:,jf) = zland    ! north
          ENDIF