Ignore:
Timestamp:
2020-05-27T15:51:41+02:00 (5 months ago)
Author:
smasson
Message:

Extra_Halo: merge with trunk@12965, see #2366

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/DYN/sshwzv.F90

    r12807 r12980  
    201201      ! 
    202202#if defined key_agrif  
    203       IF( .NOT. AGRIF_Root() ) THEN  
    204          IF ((nbondi ==  1).OR.(nbondi == 2)) pww(jpi-1, :   ,:) = 0.e0      ! east  
    205          IF ((nbondi == -1).OR.(nbondi == 2)) pww( 2   , :   ,:) = 0.e0      ! west  
    206          IF ((nbondj ==  1).OR.(nbondj == 2)) pww( :   ,jpj-1,:) = 0.e0      ! north  
    207          IF ((nbondj == -1).OR.(nbondj == 2)) pww( :   , 2   ,:) = 0.e0      ! south  
     203      IF( .NOT. AGRIF_Root() ) THEN 
     204         ! 
     205         ! Mask vertical velocity at first/last columns/row  
     206         ! inside computational domain (cosmetic)  
     207         ! --- West --- ! 
     208         DO ji = mi0(2), mi1(2) 
     209            DO jj = 1, jpj 
     210               pww(ji,jj,:) = 0._wp  
     211            ENDDO 
     212         ENDDO 
     213         ! 
     214         ! --- East --- ! 
     215         DO ji = mi0(jpiglo-1), mi1(jpiglo-1) 
     216            DO jj = 1, jpj 
     217               pww(ji,jj,:) = 0._wp 
     218            ENDDO 
     219         ENDDO 
     220         ! 
     221         ! --- South --- ! 
     222         DO jj = mj0(2), mj1(2) 
     223            DO ji = 1, jpi 
     224               pww(ji,jj,:) = 0._wp 
     225            ENDDO 
     226         ENDDO 
     227         ! 
     228         ! --- North --- ! 
     229         DO jj = mj0(jpjglo-1), mj1(jpjglo-1) 
     230            DO ji = 1, jpi 
     231               pww(ji,jj,:) = 0._wp 
     232            ENDDO 
     233         ENDDO 
     234         ! 
    208235      ENDIF  
    209236#endif  
Note: See TracChangeset for help on using the changeset viewer.