fix incorrect subname

NCAR · Jun 6, 2024 · 8297a6b · 8297a6b
1 parent 6e165e5
commit 8297a6b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)