Changeset 15364

Timestamp:

2021-10-13T18:19:50+02:00 (2 years ago)

Author:

smasson

Message:

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

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/BDY/bdydta.F90 (modified) (2 diffs)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/BDY/bdydta.F90

@@ -246 +246 @@
          ! If full velocities in boundary data, then split it into barotropic and baroclinic component
          IF( bf_alias(jp_bdyu3d)%ltotvel ) THEN     ! if we read 3D total velocity (can be true only if u3d was read)
-            !
             igrd = 2                       ! zonal velocity
             DO ib = 1, idx_bdy(jbdy)%nblen(igrd)
@@ -260 +259 @@
                END DO
             END DO
+         ENDIF   ! ltotvel
+         IF( bf_alias(jp_bdyv3d)%ltotvel ) THEN     ! if we read 3D total velocity (can be true only if u3d was read)
             igrd = 3                       ! meridional velocity
             DO ib = 1, idx_bdy(jbdy)%nblen(igrd)