diff --git a/src/input_section_types.F b/src/input_section_types.F
index 4cc9d31b80..535b0271f0 100644
--- a/src/input_section_types.F
+++ b/src/input_section_types.F
@@ -2109,7 +2109,7 @@ CONTAINS
     CHARACTER(LEN=*), PARAMETER :: routineN = 'write_section_xml', &
       routineP = moduleN//':'//routineN
 
-    CHARACTER(LEN=1000)                      :: string
+    CHARACTER(LEN=2000)                      :: string
     CHARACTER(LEN=3)                         :: repeats, required
     CHARACTER(LEN=8)                         :: short_string
     INTEGER                                  :: i, l0, l1, l2