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)