Skip to content

Commit

Permalink
updates
Browse files Browse the repository at this point in the history
  • Loading branch information
bena-nasa committed May 7, 2024
1 parent e5d3345 commit 8c4d272
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion GeomIO/Geom_PFIO.F90
Original file line number Diff line number Diff line change
Expand Up @@ -31,7 +31,7 @@ subroutine I_stage_data_to_file(this, bundle, filename, time_index, rc)
class(GeomPFIO), intent(inout) :: this
type(ESMF_FieldBundle), intent(in) :: bundle
character(len=*), intent(in) :: filename
integer, intent(in), optional :: time_index
integer, intent(in) :: time_index
integer, intent(out), optional :: rc
end subroutine I_stage_data_to_file

Expand Down
2 changes: 1 addition & 1 deletion GeomIO/Grid_PFIO.F90
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ subroutine stage_data_to_file(this, bundle, filename, time_index, rc)
class(GridPFIO), intent(inout) :: this
type(ESMF_FieldBundle), intent(in) :: bundle
character(len=*), intent(in) :: filename
integer, intent(in), optional :: time_index
integer, intent(in) :: time_index
integer, intent(out), optional :: rc

integer :: status, num_fields, i, collection_id
Expand Down

0 comments on commit 8c4d272

Please sign in to comment.