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 8229 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO – NEMO

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

add a missing key_agrif in divhor.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/OPA_SRC/DYN/divhor.F90

    r8226 r8229  
    8383         END DO   
    8484      END DO 
     85#if defined key_agrif 
    8586      IF( .NOT. Agrif_Root() ) THEN 
    8687         IF( nbondi == -1 .OR. nbondi == 2 )   hdivn( 2:nbghostcells+1,:        ,:) = 0._wp      ! west 
     
    8990         IF( nbondj ==  1 .OR. nbondj == 2 )   hdivn( :,nlcj-nbghostcells:nlcj-1,:) = 0._wp      ! north 
    9091      ENDIF 
     92#endif 
    9193      ! 
    9294      IF( ln_rnf )   CALL sbc_rnf_div( hdivn )      !==  runoffs    ==!   (update hdivn field) 
Note: See TracChangeset for help on using the changeset viewer.