Increase string length of variable 'grid_files'.

Fixes ufs-community#708.
GeorgeGayno-NOAA · Apr 17, 2023 · 91049dc · 91049dc
1 parent d1e928b
commit 91049dc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/chgres_cube.fd/model_grid.F90 b/sorc/chgres_cube.fd/model_grid.F90
@@ -1194,7 +1194,7 @@ subroutine get_model_latlons(mosaic_file, orog_dir, num_tiles, tile, &
  real(esmf_kind_r8), intent(out)   :: longitude_s(i_tile, jp1_tile)
  real(esmf_kind_r8), intent(out)   :: longitude_w(ip1_tile, j_tile)
 
- character(len=25)                 :: grid_files(num_tiles)
+ character(len=50)                 :: grid_files(num_tiles)
  character(len=255)                :: grid_file
 
  integer                           :: error, id_var, ncid