change name

GEOS-ESM · May 20, 2024 · 1011f1b · 1011f1b
1 parent 65c6955
commit 1011f1b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/GeomIO/Grid_PFIO.F90 b/GeomIO/Grid_PFIO.F90
@@ -53,7 +53,7 @@ subroutine stage_data_to_file(this, bundle, filename, time_index, rc)
          element_count = FieldGetLocalElementCount(field, _RC)
          call ESMF_FieldGet(field, grid=grid, typekind=tk,  _RC)
 
-         call server_bounds%create_server_bounds(grid, element_count, time_index=time_index, _RC)
+         call server_bounds%initialize(grid, element_count, time_index=time_index, _RC)
          global_start = server_bounds%get_global_start()
          global_count = server_bounds%get_global_count()
          local_start = server_bounds%get_local_start()

diff --git a/GeomIO/pFIOServerBounds.F90 b/GeomIO/pFIOServerBounds.F90
@@ -20,7 +20,7 @@ module mapl3g_pFIOServerBounds
       integer, allocatable :: global_count(:)
       integer, allocatable :: file_shape(:)
    contains
-      procedure :: create_server_bounds
+      procedure :: initialize
       procedure :: get_local_start
       procedure :: get_global_start
       procedure :: get_global_count
@@ -53,7 +53,7 @@ function get_file_shape(this) result(file_shape)
       file_shape =this%file_shape
    end function get_file_shape
 
-   subroutine create_server_bounds(this, grid, field_shape, time_index, rc)
+   subroutine initialize(this, grid, field_shape, time_index, rc)
       class(pFIOServerBounds), intent(inout) :: this
       type(ESMF_Grid), intent(in) :: grid
       integer, intent(in) :: field_shape(:)
@@ -114,7 +114,7 @@ subroutine create_server_bounds(this, grid, field_shape, time_index, rc)
       end if
       _RETURN(_SUCCESS)
 
-   end subroutine create_server_bounds
+   end subroutine initialize
 
 end module mapl3g_pFIOServerBounds