fix bug

GEOS-ESM · May 20, 2024 · 65c6955 · 65c6955
1 parent 517ade9
commit 65c6955
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GeomIO/pFIOServerBounds.F90 b/GeomIO/pFIOServerBounds.F90
@@ -103,7 +103,7 @@ subroutine create_server_bounds(this, grid, field_shape, time_index, rc)
          if (present(time_index)) this%global_start(n_dims+1) = time_index
 
          this%global_count(1:grid_dims) = [global_dim(1), global_dim(2)]
-         this%global_count(grid_dims+1:grid_dims+ungrid_dims) = field_shape(grid_dims:n_dims)
+         this%global_count(grid_dims+1:grid_dims+ungrid_dims) = field_shape(grid_dims+1:n_dims)
          if (present(time_index)) this%global_count(n_dims+1) = 1
 
          this%local_start = 1