Skip to content
Snippets Groups Projects
Commit 9fece9da authored by Sibylle Techene's avatar Sibylle Techene Committed by Clement Rousset
Browse files

Resolve "Bug with RK3, flux form momentum advection and linear free surface"

parent d8e3e323
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/OCE/DYN/dynspg_ts.F90
+ 1
− 1
View file @ 9fece9da
...@@ -789,7 +789,7 @@ CONTAINS ...@@ -789,7 +789,7 @@ CONTAINS
#if defined key_RK3 #if defined key_RK3
! !* RK3 case ! !* RK3 case
! !
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( (.NOT.(ln_dynadv_vec .OR. ln_linssh)) .AND. ln_bt_av ) THEN ! at this stage, pssh(:,:,:,Krhs) has been corrected: compute new depths at velocity points
! !
# if defined key_qcoTest_FluxForm # if defined key_qcoTest_FluxForm
! ! 'key_qcoTest_FluxForm' : simple ssh average ! ! 'key_qcoTest_FluxForm' : simple ssh average
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment