From b7c8cede81c4e5c33746b46726cb52cb417e5378 Mon Sep 17 00:00:00 2001 From: Michael Waxmonsky Date: Mon, 24 Jul 2023 09:36:25 -0600 Subject: [PATCH] Updating errmsg length to be hard coded. --- src/data/write_init_files.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/data/write_init_files.py b/src/data/write_init_files.py index 667122e6..994b292c 100644 --- a/src/data/write_init_files.py +++ b/src/data/write_init_files.py @@ -868,7 +868,7 @@ def write_phys_read_subroutine(outfile, host_dict, host_vars, host_imports, outfile.write("type(ccpp_constituent_prop_ptr_t), pointer :: const_props(:)", 2) outfile.write("real(kind=kind_phys) :: constituent_default_value", 2) outfile.write("integer :: constituent_errflg", 2) - outfile.write("character(len=SHR_KIND_CX) :: constituent_errmsg", 2) + outfile.write("character(len=512) :: constituent_errmsg", 2) outfile.write("logical :: constituent_has_default", 2) outfile.blank_line() outfile.comment("Logical to default optional argument to False:", 2)