From 8297a6b1b63bdd7c764d0eb50ebfe780ff8544f2 Mon Sep 17 00:00:00 2001 From: Courtney Peverley Date: Thu, 6 Jun 2024 15:23:21 -0600 Subject: [PATCH] fix incorrect subname --- src/ccpp_constituent_prop_mod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ccpp_constituent_prop_mod.F90 b/src/ccpp_constituent_prop_mod.F90 index d8da7de8..3370bff4 100644 --- a/src/ccpp_constituent_prop_mod.F90 +++ b/src/ccpp_constituent_prop_mod.F90 @@ -2109,7 +2109,7 @@ subroutine ccpt_is_water_species(this, val_out, errcode, errmsg) integer, optional, intent(out) :: errcode character(len=*), optional, intent(out) :: errmsg ! Local variable - character(len=*), parameter :: subname = 'ccpt_is_thermo_active' + character(len=*), parameter :: subname = 'ccpt_is_water_species' if (associated(this%prop)) then call this%prop%is_water_species(val_out, errcode, errmsg)