Change BOP/EOP to BOPI/EOPI

See discussion in #183 (reinstates the change from 07e66a4)
esmf-org · Sep 13, 2023 · 1631dd8 · 1631dd8
1 parent f13d3ea
commit 1631dd8
Showing 1 changed file with 4 additions and 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
@@ -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