From 1631dd84c8a29ff9079dcc0c546a534c7d3de8ec Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Wed, 13 Sep 2023 11:57:50 -0600 Subject: [PATCH] Change BOP/EOP to BOPI/EOPI See discussion in https://github.com/esmf-org/esmf/pull/183 (reinstates the change from 07e66a46a97cca911781d64d20c04e7a2fd84a18) --- .../IO/PIO/ParallelIO/src/gptl/perf_utils.F90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Infrastructure/IO/PIO/ParallelIO/src/gptl/perf_utils.F90 b/src/Infrastructure/IO/PIO/ParallelIO/src/gptl/perf_utils.F90 index 76c7294136..7f0fadbeb9 100644 --- a/src/Infrastructure/IO/PIO/ParallelIO/src/gptl/perf_utils.F90 +++ b/src/Infrastructure/IO/PIO/ParallelIO/src/gptl/perf_utils.F90 @@ -317,7 +317,7 @@ END SUBROUTINE shr_mpi_bcastl0 !================== Routines from csm_share/shr/shr_file_mod.F90 =============== !=============================================================================== -!BOP =========================================================================== +!BOPI =========================================================================== ! ! !IROUTINE: shr_file_getUnit -- Get a free FORTRAN unit number ! @@ -333,7 +333,7 @@ INTEGER FUNCTION shr_file_getUnit () implicit none -!EOP +!EOPI !----- local parameters ----- integer(SHR_KIND_IN),parameter :: shr_file_minUnit = 10 ! Min unit number to give @@ -367,7 +367,7 @@ END FUNCTION shr_file_getUnit !=============================================================================== !=============================================================================== -!BOP =========================================================================== +!BOPI =========================================================================== ! ! !IROUTINE: shr_file_freeUnit -- Free up a FORTRAN unit number ! @@ -387,7 +387,7 @@ SUBROUTINE shr_file_freeUnit ( unit) integer(SHR_KIND_IN),intent(in) :: unit ! unit number to be freed -!EOP +!EOPI !----- local parameters ----- integer(SHR_KIND_IN),parameter :: shr_file_minUnit = 10 ! Min unit number to give