diff --git a/MAPL_Base/MAPL_HistoryGridComp.F90 b/MAPL_Base/MAPL_HistoryGridComp.F90
index 7ad287562fa3..b7b0d2975fc8 100644
--- a/MAPL_Base/MAPL_HistoryGridComp.F90
+++ b/MAPL_Base/MAPL_HistoryGridComp.F90
@@ -288,7 +288,7 @@ subroutine Initialize ( gc, import, dumexport, clock, rc )
     character(len=ESMF_MAXSTR)     :: tmpstring
     character(len=ESMF_MAXSTR)     :: tilefile
     character(len=ESMF_MAXSTR)     :: gridname
-    character(len=ESMF_MAXSTR), pointer :: gnames(:)
+    character(len=MAPL_TileNameLength), pointer :: gnames(:)
     integer                        :: L, LM
     integer                        :: NG
     integer                        :: NGRIDS