From 2e3a146ef8358f329b05a5d771c8e8278d0dddcc Mon Sep 17 00:00:00 2001 From: roarkmd Date: Mon, 13 Apr 2026 15:41:06 -0400 Subject: [PATCH] Change modreprt.f to accept longer format statement --- src/emmod/modreprt.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/emmod/modreprt.f b/src/emmod/modreprt.f index 6fa96c98..d7bf2e5f 100644 --- a/src/emmod/modreprt.f +++ b/src/emmod/modreprt.f @@ -61,7 +61,7 @@ MODULE MODREPRT INTEGER, PARAMETER, PUBLIC :: LENLAB3 = 200! length of group labels INTEGER, PARAMETER, PUBLIC :: LENELV3 = 1 ! length of elev status INTEGER, PARAMETER, PUBLIC :: LENTTL3 = 300! length of titles - INTEGER, PARAMETER, PUBLIC :: QAFMTL3 = 3500 ! lngth of format statmnt + INTEGER, PARAMETER, PUBLIC :: QAFMTL3 = 10000 ! lngth of format statmnt CHARACTER(4), PARAMETER, PUBLIC :: CHKPFX = 'chk_'