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 15368 for NEMO/trunk/src/OCE/BDY/bdydyn3d.F90 – NEMO

Ignore:
Timestamp:
2021-10-14T10:25:34+02:00 (3 years ago)
Author:
smasson
Message:

trunk: final version (hopefully) for ticket #2731

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/BDY/bdydyn3d.F90

    r15363 r15368  
    4545      ! 
    4646      INTEGER               ::   ib_bdy, ir     ! BDY set index, rim index 
     47      INTEGER, DIMENSION(6) ::   idir6 
    4748      LOGICAL               ::   llrim0         ! indicate if rim 0 is treated 
    4849      LOGICAL, DIMENSION(8) ::   llsend2, llrecv2, llsend3, llrecv3  ! indicate how communications are to be carried out 
    … …  
    8586               llsend3(:) = llsend3(:) .OR. lsend_bdyolr(ib_bdy,3,:,ir)   ! possibly every direction, V points 
    8687               llrecv3(:) = llrecv3(:) .OR. lrecv_bdyolr(ib_bdy,3,:,ir)   ! possibly every direction, V points 
    87             CASE('zerograd', 'neumann') 
    88                llsend2(:) = llsend2(:) .OR. lsend_bdyint(ib_bdy,2,:,ir) 
    89                llrecv2(:) = llrecv2(:) .OR. lrecv_bdyint(ib_bdy,2,:,ir) 
    90                llsend3(:) = llsend3(:) .OR. lsend_bdyint(ib_bdy,3,:,ir) 
    91                llrecv3(:) = llrecv3(:) .OR. lrecv_bdyint(ib_bdy,3,:,ir) 
     88            CASE('zerograd') 
     89               idir6 = (/ jpso, jpno, jpsw, jpse, jpnw, jpne /) 
     90               llsend2(idir6) = llsend2(idir6) .OR. lsend_bdyint(ib_bdy,2,idir6,ir)   ! north/south, U points 
     91               llrecv2(idir6) = llrecv2(idir6) .OR. lrecv_bdyint(ib_bdy,2,idir6,ir)   ! north/south, U points 
     92               idir6 = (/ jpwe, jpea, jpsw, jpse, jpnw, jpne /) 
     93               llsend3(idir6) = llsend3(idir6) .OR. lsend_bdyint(ib_bdy,3,idir6,ir)   ! west/east, V points 
     94               llrecv3(idir6) = llrecv3(idir6) .OR. lrecv_bdyint(ib_bdy,3,idir6,ir)   ! west/east, V points 
     95            CASE('neumann') 
     96               llsend2(:) = llsend2(:) .OR. lsend_bdyint(ib_bdy,2,:,ir)   ! possibly every direction, U points 
     97               llrecv2(:) = llrecv2(:) .OR. lrecv_bdyint(ib_bdy,2,:,ir)   ! possibly every direction, U points 
     98               llsend3(:) = llsend3(:) .OR. lsend_bdyint(ib_bdy,3,:,ir)   ! possibly every direction, V points 
     99               llrecv3(:) = llrecv3(:) .OR. lrecv_bdyint(ib_bdy,3,:,ir)   ! possibly every direction, V points 
    92100            END SELECT 
    93101         END DO 
Note: See TracChangeset for help on using the changeset viewer.