Mac FPE test: Adding IO calltrees

Still investigating the MacOS FPE error on GitHub Actions

Author: marshallward

src/framework/MOM_io.F90

@@ -10,6 +10,7 @@ module MOM_io
 use MOM_dyn_horgrid,      only : dyn_horgrid_type
 use MOM_ensemble_manager, only : get_ensemble_id
 use MOM_error_handler,    only : MOM_error, NOTE, FATAL, WARNING, is_root_PE
+use MOM_error_handler,    only : callTree_enter, callTree_leave
 use MOM_file_parser,      only : log_version, param_file_type
 use MOM_grid,             only : ocean_grid_type
 use MOM_io_infra,         only : read_field, read_vector
@@ -302,6 +303,8 @@ subroutine create_MOM_file(IO_handle, filename, vars, novars, fields, &
   character(len=8)  :: t_grid, t_grid_read
   character(len=64) :: ax_name(5)  ! The axis names of a variable
 
+  call callTree_enter('create_MOM_file(), MOM_io.F90')
+
   use_lath  = .false. ; use_lonh     = .false.
   use_latq  = .false. ; use_lonq     = .false.
   use_time  = .false. ; use_periodic = .false.
@@ -584,6 +587,8 @@ subroutine create_MOM_file(IO_handle, filename, vars, novars, fields, &
   if (num_extra_dims > 0) then
     deallocate(use_extra_axis, more_axes)
   endif
+
+  call callTree_leave('create_MOM_file()')
 end subroutine create_MOM_file
 
 

src/framework/MOM_io_file.F90

@@ -38,6 +38,8 @@ module MOM_io_file
 
 use MOM_error_handler, only : MOM_error, FATAL
 use MOM_error_handler, only : is_root_PE
+use MOM_error_handler, only : callTree_enter
+use MOM_error_handler, only : callTree_leave
 
 implicit none ; private
 
@@ -928,6 +930,8 @@ subroutine open_file_infra(handle, filename, action, MOM_domain, threading, file
   logical :: use_single_file_domain
     ! True if the domain is replaced with a single-file IO layout.
 
+  call callTree_enter('open_file_infra(), MOM_io_file.F90')
+
   use_single_file_domain = .false.
   if (present(MOM_domain) .and. present(fileset)) then
     if (fileset == SINGLE_FILE) &
@@ -945,6 +949,8 @@ subroutine open_file_infra(handle, filename, action, MOM_domain, threading, file
 
   call handle%axes%init()
   call handle%fields%init()
+
+  call callTree_leave('open_file_infra()')
 end subroutine open_file_infra
 
 !> Close a MOM framework file
@@ -1319,6 +1325,8 @@ subroutine open_file_nc(handle, filename, action, MOM_domain, threading, fileset
   integer, intent(in), optional :: threading
   integer, intent(in), optional :: fileset
 
+  call callTree_enter('open_file_nc(), MOM_io_file.F90')
+
   if (.not. present(MOM_domain) .and. .not. is_root_PE()) return
 
   call open_netcdf_file(handle%handle_nc, filename, action)
@@ -1331,6 +1339,8 @@ subroutine open_file_nc(handle, filename, action, MOM_domain, threading, fileset
 
   call handle%axes%init()
   call handle%fields%init()
+
+  call callTree_leave('open_file_nc()')
 end subroutine open_file_nc