Skip to content

Commit 493d354

Browse files
committed
Bug from removing cvmix_kpp_compute_nonlocal
I looked for a parameter in CVmix_kpp_params_user when I should have been looking in CVmix_kpp_params_in... was causing a seg fault in some POP testing. I don't know why the regression test suite didn't catch this...
1 parent 809fffa commit 493d354

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/shared/cvmix_kpp.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -904,9 +904,9 @@ subroutine cvmix_coeffs_kpp_low(Mdiff_out, Tdiff_out, Sdiff_out, zw, zt, &
904904
! (3c) Compute nonlocal term at each cell interface
905905
if ((.not.lstable).and.(kw.le.kwup)) then
906906
GAtS = cvmix_math_evaluate_cubic(Tshape2, sigma(kw))
907-
Tnonlocal(kw) = CVmix_kpp_params_user%nonlocal_coeff*GAtS
907+
Tnonlocal(kw) = CVmix_kpp_params_in%nonlocal_coeff*GAtS
908908
GAtS = cvmix_math_evaluate_cubic(Sshape2, sigma(kw))
909-
Snonlocal(kw) = CVmix_kpp_params_user%nonlocal_coeff*GAtS
909+
Snonlocal(kw) = CVmix_kpp_params_in%nonlocal_coeff*GAtS
910910
end if
911911

912912
! (3d) Diffusivity = OBL_depth * (turbulent scale) * G(sigma)

0 commit comments

Comments
 (0)