Skip to content

Commit

Permalink
Updating unit tests missed in previous commit.
Browse files Browse the repository at this point in the history
  • Loading branch information
mwaxmonsky committed Jan 27, 2025
1 parent 8ad300a commit 0d9e0be
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions test/unit-test/tests/phys_utils/test_atmos_pbl_utils.pf
Original file line number Diff line number Diff line change
@@ -1,25 +1,25 @@
@test
subroutine test_austausch_free_is_zero_when_richardson_equals_zero()
use funit
use atmos_phys_pbl_utils, only : austausch_atm_free
use atmos_phys_pbl_utils, only : calc_free_eddy_flux_coefficient
use ccpp_kinds, only: kind_phys

real(kind_phys) :: kvf

kvf = austausch_atm_free(30.0_kind_phys, 0.0_kind_phys, 0.01_kind_phys)
kvf = calc_free_eddy_flux_coefficient(30.0_kind_phys, 0.0_kind_phys, 0.01_kind_phys)

@assertEqual(0.0_kind_phys, kvf)
end subroutine test_austausch_free_is_zero_when_richardson_equals_zero

@test
subroutine test_austausch_free_is_zero_when_richardson_stable_near_zero()
use funit
use atmos_phys_pbl_utils, only : austausch_atm_free
use atmos_phys_pbl_utils, only : calc_free_eddy_flux_coefficient
use ccpp_kinds, only: kind_phys

real(kind_phys) :: kvf

kvf = austausch_atm_free(30.0_kind_phys, nearest(0.0_kind_phys, 1.0_kind_phys), 0.01_kind_phys)
kvf = calc_free_eddy_flux_coefficient(30.0_kind_phys, nearest(0.0_kind_phys, 1.0_kind_phys), 0.01_kind_phys)

@assertEqual(0.0_kind_phys, kvf)
end subroutine test_austausch_free_is_zero_when_richardson_stable_near_zero

0 comments on commit 0d9e0be

Please sign in to comment.