fix bug

GEOS-ESM · May 17, 2024 · ef78c10 · ef78c10
1 parent b090154
commit ef78c10
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/GeomIO/SharedIO.F90 b/GeomIO/SharedIO.F90
@@ -122,8 +122,8 @@ function create_local_start(grid, field_shape, have_time, rc) result(local_start
       ungr = sz - 2
       if (tile_count == 6) then
          tile = 1 + (j1-1)/global_dim(1)
-         local_start=1
          allocate(local_start(sz+1+tm))
+         local_start=1
          local_start(1:3) = [i1, j1-(tile-1)*global_dim(1),tile]
       else if (tile_count == 1) then
          allocate(local_start(sz+tm))