Skip to content

Commit

Permalink
Merge branch 'vanroekel/ocean/mixing-interface-fix' into next (PR #6509)
Browse files Browse the repository at this point in the history
Fixes gotm interface for vertical mixing

If GOTM is enabled surface friction velocity is not calculated at
present. This fixes that issue by allowing KPP_input_fields to be
calculated for cvmix and gotm

Fixes #6507
[BFB]
  • Loading branch information
jonbob committed Aug 20, 2024
2 parents 036cfe6 + 2546452 commit a742aa4
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions components/mpas-ocean/src/shared/mpas_ocn_tendency.F
Original file line number Diff line number Diff line change
Expand Up @@ -1243,12 +1243,12 @@ subroutine ocn_tend_tracer(tendPool, statePool, forcingPool, &
!
! Compute tracer tendency due to non-local flux computed in KPP
!
if (config_use_cvmix_kpp) then
call mpas_timer_start("non-local flux from KPP")
if (.not. config_cvmix_kpp_nonlocal_with_implicit_mix) then
call ocn_compute_KPP_input_fields(statePool, forcingPool,&
if (config_use_cvmix_kpp .or. config_use_gotm) then
call ocn_compute_KPP_input_fields(statePool, forcingPool,&
meshPool, timeLevel)

if (.not. config_cvmix_kpp_nonlocal_with_implicit_mix) then
call mpas_timer_start("non-local flux from KPP")
if (computeBudgets) then
!$omp parallel
!$omp do schedule(runtime) private(k,n)
Expand Down Expand Up @@ -1291,8 +1291,8 @@ subroutine ocn_tend_tracer(tendPool, statePool, forcingPool, &
!$omp end do
!$omp end parallel
endif ! compute budgets
call mpas_timer_stop("non-local flux from KPP")
end if ! not non-local with implicit mix
call mpas_timer_stop("non-local flux from KPP")
end if ! KPP

! Compute tracer tendency due to production/destruction of
Expand Down

0 comments on commit a742aa4

Please sign in to comment.