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 13219 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/sshwzv.F90 – NEMO

Ignore:
Timestamp:
2020-07-02T12:40:30+02:00 (4 years ago)
Author:
smasson
Message:

better e3: update with trunk@13218 see #2385

Location:
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3

    • Property svn:externals

      •  

        old new  
        22^/utils/build/makenemo@HEAD   makenemo 
        33^/utils/build/mk@HEAD         mk 
        4 ^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
         4^/utils/tools/@HEAD           tools 
         5^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 

  • NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DYN/sshwzv.F90

    r13193 r13219  
    219219         ! Mask vertical velocity at first/last columns/row  
    220220         ! inside computational domain (cosmetic)  
    221          ! --- West --- ! 
    222          DO ji = mi0(2), mi1(2) 
    223             DO jj = 1, jpj 
    224                pww(ji,jj,:) = 0._wp  
     221         ! --- West --- !          
     222         IF( lk_west) THEN 
     223            DO ji = mi0(2), mi1(2) 
     224               DO jj = 1, jpj 
     225                  pww(ji,jj,:) = 0._wp  
     226               ENDDO 
    225227            ENDDO 
    226          ENDDO 
     228         ENDIF 
    227229         ! 
    228230         ! --- East --- ! 
    229          DO ji = mi0(jpiglo-1), mi1(jpiglo-1) 
    230             DO jj = 1, jpj 
    231                pww(ji,jj,:) = 0._wp 
     231         IF( lk_east) THEN 
     232            DO ji = mi0(jpiglo-1), mi1(jpiglo-1) 
     233               DO jj = 1, jpj 
     234                  pww(ji,jj,:) = 0._wp 
     235               ENDDO 
    232236            ENDDO 
    233          ENDDO 
     237         ENDIF 
    234238         ! 
    235239         ! --- South --- ! 
    236          DO jj = mj0(2), mj1(2) 
    237             DO ji = 1, jpi 
    238                pww(ji,jj,:) = 0._wp 
     240         IF( lk_south) THEN 
     241            DO jj = mj0(2), mj1(2) 
     242               DO ji = 1, jpi 
     243                  pww(ji,jj,:) = 0._wp 
     244               ENDDO 
    239245            ENDDO 
    240          ENDDO 
     246         ENDIF 
    241247         ! 
    242248         ! --- North --- ! 
    243          DO jj = mj0(jpjglo-1), mj1(jpjglo-1) 
    244             DO ji = 1, jpi 
    245                pww(ji,jj,:) = 0._wp 
     249         IF( lk_north) THEN 
     250            DO jj = mj0(jpjglo-1), mj1(jpjglo-1) 
     251               DO ji = 1, jpi 
     252                  pww(ji,jj,:) = 0._wp 
     253               ENDDO 
    246254            ENDDO 
    247          ENDDO 
     255         ENDIF 
     256         ! 
    248257      ENDIF  
    249258#endif  
Note: See TracChangeset for help on using the changeset viewer.