fixes #280

GEOS-ESM · Apr 3, 2020 · 1128bf7 · 1128bf7
1 parent 8fe80c2
commit 1128bf7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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