Changeset 15410 for NEMO/branches/2020/ticket2487/src/OCE/BDY/bdydta.F90

Timestamp:

2021-10-20T11:10:59+02:00 (3 years ago)

Author:

smueller

Message:

Synchronizing with ^{/NEMO/releases/r4.0/r4.0-HEAD@15405 (ticket #2487)}

Location:

NEMO/branches/2020/ticket2487

Files:

• . (modified) (1 prop)
• src/OCE/BDY/bdydta.F90 (modified) (2 diffs)

NEMO/branches/2020/ticket2487

@@ -4 +4 @@
 ^/utils/tools_r4.0-HEAD@14974   tools
 ^/vendors/AGRIF/stable@14105    ext/AGRIF
-^/vendors/FCM@10134             ext/FCM
+^/vendors/FCM@15268             ext/FCM
 ^/vendors/IOIPSL@9655           ext/IOIPSL
 

@@ -4 +4 @@
 ^/utils/tools_r4.0-HEAD@14974   tools
 ^/vendors/AGRIF/stable@14105    ext/AGRIF
-^/vendors/FCM@10134             ext/FCM
+^/vendors/FCM@15268             ext/FCM
 ^/vendors/IOIPSL@9655           ext/IOIPSL
 

NEMO/branches/2020/ticket2487/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)

@@ -4 +4 @@
 ^/utils/tools_r4.0-HEAD@14974   tools
 ^/vendors/AGRIF/stable@14105    ext/AGRIF
-^/vendors/FCM@10134             ext/FCM
+^/vendors/FCM@15268             ext/FCM
 ^/vendors/IOIPSL@9655           ext/IOIPSL