New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8231 – NEMO

Changeset 8231


Ignore:
Timestamp:
2017-06-28T12:31:22+02:00 (7 years ago)
Author:
clem
Message:

add a missing key_agrif in sbcwave.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r8226 r8231  
    156156      END DO 
    157157      ! 
     158#if defined key_agrif 
    158159      IF( .NOT. Agrif_Root() ) THEN 
    159160         IF( nbondi == -1 .OR. nbondi == 2 )   ze3divh( 2:nbghostcells+1,:        ,:) = 0._wp      ! west 
     
    162163         IF( nbondj ==  1 .OR. nbondj == 2 )   ze3divh( :,nlcj-nbghostcells:nlcj-1,:) = 0._wp      ! north 
    163164      ENDIF 
     165#endif 
    164166      ! 
    165167      CALL lbc_lnk( ze3divh, 'T', 1. ) 
Note: See TracChangeset for help on using the changeset viewer.