Changeset 8664


Ignore:
Timestamp:
2017-10-27T14:33:43+02:00 (3 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.