Ignore:
Timestamp:
2017-10-27T12:51:56+02:00 (3 years ago)
Author:
jchanut
Message:

Revert fmask to free slip case at outermost child grid points + slight change in tracer update near bathymetry

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r7963_nemo_v3_6_AGRIF-3_AGRIFVVL/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r8010 r8663  
    323323            END DO 
    324324         END DO 
    325  
    326          IF( .NOT. AGRIF_Root() ) THEN 
    327             IF ((nbondi ==  1).OR.(nbondi == 2)) rotn(nlci-1 , :     ,jk) = 0.e0      ! east 
    328             IF ((nbondi == -1).OR.(nbondi == 2)) rotn(1      , :     ,jk) = 0.e0      ! west 
    329             IF ((nbondj ==  1).OR.(nbondj == 2)) rotn(:      ,nlcj-1 ,jk) = 0.e0      ! north 
    330             IF ((nbondj == -1).OR.(nbondj == 2)) rotn(:      ,1      ,jk) = 0.e0      ! south 
    331          ENDIF 
    332325         !                                             ! =============== 
    333326      END DO                                           !   End of slab 
Note: See TracChangeset for help on using the changeset viewer.