Ignore:
Timestamp:
2017-05-09T17:36:25+02:00 (3 years ago)
Author:
jchanut
Message:

AGRIF vvl add on

File:
1 edited

Legend:

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

    r7972 r8010  
    223223      ENDIF 
    224224#endif 
     225#if defined key_agrif 
     226      IF( .NOT. AGRIF_Root() ) THEN 
     227         IF ((nbondi ==  1).OR.(nbondi == 2)) wn(nlci-1 , :     ,:) = 0.e0      ! east 
     228         IF ((nbondi == -1).OR.(nbondi == 2)) wn(2      , :     ,:) = 0.e0      ! west 
     229         IF ((nbondj ==  1).OR.(nbondj == 2)) wn(:      ,nlcj-1 ,:) = 0.e0      ! north 
     230         IF ((nbondj == -1).OR.(nbondj == 2)) wn(:      ,2      ,:) = 0.e0      ! south 
     231      ENDIF 
     232#endif 
    225233      ! 
    226234      IF( nn_timing == 1 )  CALL timing_stop('wzv') 
Note: See TracChangeset for help on using the changeset viewer.