Update GeomIO/pFIOServerBounds.F90

GEOS-ESM · May 20, 2024 · 7303246 · 7303246
1 parent 89eeacb
commit 7303246
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/GeomIO/pFIOServerBounds.F90 b/GeomIO/pFIOServerBounds.F90
@@ -92,20 +92,21 @@ subroutine initialize(this, grid, field_shape, time_index, rc)
 
       this%local_start = 1
 
-      if (tile_count == 6) then
+      select case (tile_count)
+      case (6) then ! Assume cubed-sphere
 
          tile = 1 + (j1-1)/global_dim(1)
          this%file_shape(1:new_grid_dims) = [field_shape(1), field_shape(2) ,1]
          this%global_count(1:new_grid_dims) =[global_dim(1), global_dim(1), tile_count]
          this%local_start(1:new_grid_dims) = [i1, j1-(tile-1)*global_dim(1), tile]
 
-      else if (tile_count == 1) then
+      case (1) then
 
          this%file_shape(1:new_grid_dims) = [field_shape(1), field_shape(2)]
          this%global_count(1:new_grid_dims) = [global_dim(1), global_dim(2)]
          this%local_start(1:new_grid_dims) = [i1,j1]
 
-      else
+      case default
          _FAIL("unsupported grid")
       end select