From 0df69119bbcfb4b155ea80cac004b7310768af4e Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Fri, 2 Jan 2026 19:11:19 -0800 Subject: [PATCH] feat(sat-mix-rat): add assertion --- ...urated_mixing_ratio_m.f90 => saturated_mixing_ratio_m.F90} | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) rename example/supporting-modules/{saturated_mixing_ratio_m.f90 => saturated_mixing_ratio_m.F90} (96%) diff --git a/example/supporting-modules/saturated_mixing_ratio_m.f90 b/example/supporting-modules/saturated_mixing_ratio_m.F90 similarity index 96% rename from example/supporting-modules/saturated_mixing_ratio_m.f90 rename to example/supporting-modules/saturated_mixing_ratio_m.F90 index a0ac2e90a..70cb44500 100644 --- a/example/supporting-modules/saturated_mixing_ratio_m.f90 +++ b/example/supporting-modules/saturated_mixing_ratio_m.F90 @@ -31,7 +31,7 @@ module saturated_mixing_ratio_m !! in the Intermediate Complexity Atmospheric Research (ICAR) model file src/physics/mp_simple.f90. !! ICAR is distributed under the above MIT license. See https://github.com/ncar/icar. use fiats_m, only : tensor_t - use julienne_m, only : call_julienne_assert_, operator(.equalsExpected.) + use julienne_m, only : call_julienne_assert_, operator(.equalsExpected.), operator(.all.) implicit none private @@ -75,7 +75,7 @@ elemental function y(x_in) result(a) type(tensor_t), intent(in) :: x_in type(tensor_t) a associate(x => x_in%values()) - call_julienne_assert((lbound(x,1) .equalsExpected. 1) .also. (ubound(x,1) .equalsExpected. 2,"y(x) :: sufficient input")) + call_julienne_assert(.all. ([lbound(x,1),ubound(x,1)] .equalsExpected. [1,2])) a = tensor_t([saturated_mixing_ratio(x(1),x(2))]) end associate end function