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 15364 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/BDY/bdydta.F90 – NEMO

Ignore:
Timestamp:
2021-10-13T18:19:50+02:00 (12 months ago)
Author:
smasson
Message:

r4.0-HEAD: bdy minor bugfix for some domain decomposition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/BDY/bdydta.F90

    r13284 r15364  
    246246         ! If full velocities in boundary data, then split it into barotropic and baroclinic component 
    247247         IF( bf_alias(jp_bdyu3d)%ltotvel ) THEN     ! if we read 3D total velocity (can be true only if u3d was read) 
    248             ! 
    249248            igrd = 2                       ! zonal velocity 
    250249            DO ib = 1, idx_bdy(jbdy)%nblen(igrd) 
     
    260259               END DO 
    261260            END DO 
     261         ENDIF   ! ltotvel 
     262         IF( bf_alias(jp_bdyv3d)%ltotvel ) THEN     ! if we read 3D total velocity (can be true only if u3d was read) 
    262263            igrd = 3                       ! meridional velocity 
    263264            DO ib = 1, idx_bdy(jbdy)%nblen(igrd) 
Note: See TracChangeset for help on using the changeset viewer.