Skip to content

Commit

Permalink
Merge branch 'vanroekel/ocean/mixing-interface-fix' (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 21, 2024
2 parents 601da64 + 2546452 commit 0439e66
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 0439e66

Please sign in to comment.