Skip to content

Commit

Permalink
chgres_cube - Minor update for high-resolution grids . (ufs-community…
Browse files Browse the repository at this point in the history
…#814)

Increase the length of the character string variable that holds the
target 'grid' files so it can work with grids finer than C9999. 

Fixes ufs-community#708.
  • Loading branch information
GeorgeGayno-NOAA authored Apr 19, 2023
1 parent ea1c4c6 commit d0040d5
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion sorc/chgres_cube.fd/model_grid.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit d0040d5

Please sign in to comment.