Changeset 12965 for NEMO/trunk/src/OCE/SBC/sbcwave.F90

Timestamp:

2020-05-25T09:34:57+02:00 (4 years ago)

Author:

jchanut

Message:

Further nbondi/nbondj removal with AGRIF - results unchanged - forgotten in task #2199

File:

• NEMO/trunk/src/OCE/SBC/sbcwave.F90 (modified) (1 diff)

NEMO/trunk/src/OCE/SBC/sbcwave.F90

@@ -210 +210 @@
       END_3D
       !
-#if defined key_agrif
-      IF( .NOT. Agrif_Root() ) THEN
-         IF( nbondi == -1 .OR. nbondi == 2 )   ze3divh( 2:nbghostcells+1,:        ,:) = 0._wp      ! west
-         IF( nbondi ==  1 .OR. nbondi == 2 )   ze3divh( nlci-nbghostcells:nlci-1,:,:) = 0._wp      ! east
-         IF( nbondj == -1 .OR. nbondj == 2 )   ze3divh( :,2:nbghostcells+1        ,:) = 0._wp      ! south
-         IF( nbondj ==  1 .OR. nbondj == 2 )   ze3divh( :,nlcj-nbghostcells:nlcj-1,:) = 0._wp      ! north
-      ENDIF
-#endif
-      !
       CALL lbc_lnk( 'sbcwave', ze3divh, 'T', 1. )
       !