From db05ef109dac8ed18acc75a5dba689921e4a8866 Mon Sep 17 00:00:00 2001
From: Darian Boggs <william.d.boggs@nasa.gov>
Date: Thu, 6 Jun 2024 15:27:57 -0400
Subject: [PATCH] Fixed access problem with intel & gfortran

---
 base/MAPL_ESMF_InfoKeys.F90        | 20 +++++++++++++++++---
 gridcomps/History3G/OutputInfo.F90 |  2 +-
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/base/MAPL_ESMF_InfoKeys.F90 b/base/MAPL_ESMF_InfoKeys.F90
index 525309ac5255..38b798916373 100644
--- a/base/MAPL_ESMF_InfoKeys.F90
+++ b/base/MAPL_ESMF_InfoKeys.F90
@@ -5,7 +5,22 @@ module mapl3g_esmf_info_keys
 
    implicit none
 
+   public :: KEY_UNGRIDDED_DIMS
+   public :: KEY_VERT_DIM
+   public :: KEY_VERT_GEOM
+   public :: KEY_UNITS
+   public :: KEY_LONG_NAME
+   public :: KEY_STANDARD_NAME
+   public :: KEY_NUM_LEVELS
+   public :: KEY_VLOC
+   public :: KEY_NUM_UNGRID_DIMS
+   public :: KEYSTUB_DIM
+   public :: KEY_UNGRIDDED_NAME
+   public :: KEY_UNGRIDDED_UNITS
+   public :: KEY_UNGRIDDED_COORD
+   public :: KEY_DIM_STRINGS
    public :: make_dim_key
+   private
 
    ! FieldSpec info keys
    character(len=*), parameter :: PREFIX = 'MAPL/'
@@ -18,7 +33,7 @@ module mapl3g_esmf_info_keys
 
    ! VerticalGeom info keys
    character(len=*), parameter :: KEY_NUM_LEVELS = KEY_VERT_GEOM // 'num_levels'
-   
+
    ! VerticalDimSpec info keys
    character(len=*), parameter :: KEY_VLOC = KEY_VERT_DIM // 'vloc'
 
@@ -35,14 +50,13 @@ module mapl3g_esmf_info_keys
       KEYSTUB_DIM // '1', KEYSTUB_DIM // '2', KEYSTUB_DIM // '3', &
       KEYSTUB_DIM // '4', KEYSTUB_DIM // '5', KEYSTUB_DIM // '6', &
       KEYSTUB_DIM // '7', KEYSTUB_DIM // '8', KEYSTUB_DIM // '9']
-   private
 
 contains
 
    function make_dim_key(n, rc) result(key)
       character(len=:), allocatable :: key
       integer, intent(in) :: n
-      integer, optional, intent(out) :: rc 
+      integer, optional, intent(out) :: rc
       integer :: status
       character(len=32) :: raw
 
diff --git a/gridcomps/History3G/OutputInfo.F90 b/gridcomps/History3G/OutputInfo.F90
index 0da3c16f87a3..cf83feb162f0 100644
--- a/gridcomps/History3G/OutputInfo.F90
+++ b/gridcomps/History3G/OutputInfo.F90
@@ -4,7 +4,7 @@ module mapl3g_output_info
    use mapl3g_UngriddedDim
    use mapl3g_UngriddedDimVector
    use mapl3g_UngriddedDims
-   use mapl3g_ESMF_Info_Keys
+   use mapl3g_esmf_info_keys
    use gFTL2_StringVector
    use esmf, only: ESMF_Field, ESMF_FieldBundle, ESMF_FieldBundleGet
    use esmf, only: ESMF_Info, ESMF_InfoIsPresent