From 6819f2e18022f30be962d90f19a47e3506a017ec Mon Sep 17 00:00:00 2001 From: Courtney Peverley Date: Mon, 28 Aug 2023 15:19:30 -0600 Subject: [PATCH] fix check_errflg call --- test/advection_test/test_host.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/test/advection_test/test_host.F90 b/test/advection_test/test_host.F90 index a1fb9147..d28422c7 100644 --- a/test/advection_test/test_host.F90 +++ b/test/advection_test/test_host.F90 @@ -299,14 +299,16 @@ subroutine test_host(retval, test_suites) ! Check that is_scheme_constituent works as expected call test_host_ccpp_is_scheme_constituent('specific_humidity', & is_constituent, errflg, errmsg) - call check_errflg(subname//"_ccpp_is_scheme_constituent", errflg, errmsg) + call check_errflg(subname//"_ccpp_is_scheme_constituent", errflg, & + errmsg, errflg_final) ! specific_humidity should not be an existing constituent if (is_constituent) then write(6, *) "ERROR: specific humidity is already a constituent" end if call test_host_ccpp_is_scheme_constituent('cloud_ice_dry_mixing_ratio', & is_constituent, errflg, errmsg) - call check_errflg(subname//"_ccpp_is_scheme_constituent", errflg, errmsg) + call check_errflg(subname//"_ccpp_is_scheme_constituent", errflg, & + errmsg, errflg_final) ! cloud_ice_dry_mixing_ratio should be an existing constituent if (.not. is_constituent) then write(6, *) "ERROR: cloud_ice_dry_mixing ratio not found in ", &