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 15548 for NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/BDY/bdydta.F90 – NEMO

Ignore:
Timestamp:
2021-11-28T18:59:49+01:00 (3 years ago)
Author:
gsamson
Message:

update branch to the head of the trunk (r15547); ticket #2632

Location:
NEMO/branches/2021/ticket2632_r14588_theta_sbcblk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk

    • Property svn:externals

      •  

        old new  
        99 
        1010# SETTE 
        11 ^/utils/CI/sette@14244        sette 
         11^/utils/CI/sette@HEAD        sette 
         12 

  • NEMO/branches/2021/ticket2632_r14588_theta_sbcblk/src/OCE/BDY/bdydta.F90

    r13472 r15548  
    243243         ! If full velocities in boundary data, then split it into barotropic and baroclinic component 
    244244         IF( bf_alias(jp_bdyu3d)%ltotvel ) THEN     ! if we read 3D total velocity (can be true only if u3d was read) 
    245             ! 
    246245            igrd = 2                       ! zonal velocity 
    247246            DO ib = 1, idx_bdy(jbdy)%nblen(igrd) 
    … …  
    258257               END DO 
    259258            END DO 
     259         ENDIF   ! ltotvel 
     260         IF( bf_alias(jp_bdyv3d)%ltotvel ) THEN     ! if we read 3D total velocity (can be true only if v3d was read) 
    260261            igrd = 3                       ! meridional velocity 
    261262            DO ib = 1, idx_bdy(jbdy)%nblen(igrd) 
Note: See TracChangeset for help on using the changeset viewer.