Changeset 14747 for NEMO/branches/2021/dev_r14318_RK3_stage1/src

Timestamp:

2021-04-26T10:47:14+02:00 (3 years ago)

Author:

techene

Message:

#2506 : bug correction for RK3 in vector form

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DYN/dynspg_ts.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DYN/dynspg_ts.F90

@@ -766 +766 @@
       !                                                !*  RK3 case
       !
-      IF( ln_bt_av ) THEN                  ! at this stage, pssh(:,:,:,Krhs) has been corrected: compute new depths at velocity points
+      IF(.NOT.ln_dynadv_vec .AND. ln_bt_av ) THEN                  ! at this stage, pssh(:,:,:,Krhs) has been corrected: compute new depths at velocity points
          !
 # if defined key_qcoTest_FluxForm