diff --git a/src/nuopc/cap.F90 b/src/nuopc/cap.F90
index bdf98ca..cbbcb55 100644
--- a/src/nuopc/cap.F90
+++ b/src/nuopc/cap.F90
@@ -944,7 +944,8 @@ subroutine hco_set_grid( HcoState, RC )
     character(len=255)    :: LOC
     character(len=  1)    :: COL
     character(len=255)    :: MyGridFile, ThisLoc
-    character(len=4095)   :: DUM,        ErrMsg,  Msg
+    character(len=5500)   :: DUM
+    character(len=255)    :: ErrMsg, Msg
 
     !=================================================================
     ! SET_GRID begins here