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 8664 for branches/2015 – NEMO

Changeset 8664 for branches/2015


Ignore:
Timestamp:
2017-10-27T14:33:43+02:00 (6 years ago)
Author:
jchanut
Message:

Set fmask to 0 beyond AGRIF open boundaries

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r5551 r8664  
    373373            ENDIF 
    374374         END DO 
     375#if defined key_agrif 
     376         IF( .NOT. AGRIF_Root() ) THEN 
     377            IF ((nbondi ==  1).OR.(nbondi == 2)) fmask(nlci-1 , :     ,jk) = 0.e0      ! east 
     378            IF ((nbondi == -1).OR.(nbondi == 2)) fmask(1      , :     ,jk) = 0.e0      ! west 
     379            IF ((nbondj ==  1).OR.(nbondj == 2)) fmask(:      ,nlcj-1 ,jk) = 0.e0      ! north 
     380            IF ((nbondj == -1).OR.(nbondj == 2)) fmask(:      ,1      ,jk) = 0.e0      ! south 
     381         ENDIF 
     382#endif 
    375383      END DO 
    376384      ! 
Note: See TracChangeset for help on using the changeset viewer.