Changeset 8232

Timestamp:

2017-06-28T12:31:38+02:00 (7 years ago)

Author:

clem

Message:

add a missing key_agrif in sbcwave.F90

File:

• branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90 (modified) (2 diffs)

branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

@@ -152 +152 @@
       END DO
       !
+#if defined key_agrif
       IF( .NOT. Agrif_Root() ) THEN
          IF( nbondi == -1 .OR. nbondi == 2 )   ze3divh( 2:nbghostcells+1,:        ,:) = 0._wp      ! west
@@ -158 +159 @@
          IF( nbondj ==  1 .OR. nbondj == 2 )   ze3divh( :,nlcj-nbghostcells:nlcj-1,:) = 0._wp      ! north
       ENDIF
+#endif
       !
       CALL lbc_lnk( ze3divh, 'T', 1. )