From 8c4d272d73072e8cc55a4c0493ad899d0ddf5b32 Mon Sep 17 00:00:00 2001 From: Benjamin Auer Date: Tue, 7 May 2024 15:35:39 -0400 Subject: [PATCH] updates --- GeomIO/Geom_PFIO.F90 | 2 +- GeomIO/Grid_PFIO.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/GeomIO/Geom_PFIO.F90 b/GeomIO/Geom_PFIO.F90 index 53f767443e3e..4605aa479306 100644 --- a/GeomIO/Geom_PFIO.F90 +++ b/GeomIO/Geom_PFIO.F90 @@ -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 diff --git a/GeomIO/Grid_PFIO.F90 b/GeomIO/Grid_PFIO.F90 index 952eb47d5c1d..88933d46e2d2 100644 --- a/GeomIO/Grid_PFIO.F90 +++ b/GeomIO/Grid_PFIO.F90 @@ -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