assert_restart_names_initialized is printing the error message from assert_file_info_initialized
|
!> Test whether file_info_type has been initialized |
|
!> Error out if not, giving the name of the calling routine. |
|
|
|
|
|
subroutine assert_file_info_initialized(file_info, routine_name) |
|
|
|
type(file_info_type), intent(in) :: file_info |
|
character(len=*), intent(in) :: routine_name |
|
|
|
if ( .not. file_info%initialized ) then |
|
call error_handler(E_ERR, routine_name, & |
|
':: io_filenames_init must be used to initialize file_info_type', source) |
|
endif |
|
|
|
end subroutine assert_file_info_initialized |
|
|
|
!------------------------------------------------------------------------------- |
|
!> Test whether file_info_type has been initialized for routines that only |
|
!> have access the %restart_files(in/out/prior) |
|
!> Error out if not, giving the name of the calling routine. |
|
|
|
|
|
subroutine assert_restart_names_initialized(restart_names, routine_name) |
|
|
|
type(stage_metadata_type), intent(in) :: restart_names |
|
character(len=*), intent(in) :: routine_name |
|
|
|
if ( .not. restart_names%initialized ) then |
|
call error_handler(E_ERR, routine_name, & |
|
':: io_filenames_init must be used to initialize file_info_type', source) |
|
endif |
|
|
|
end subroutine assert_restart_names_initialized |
Originally posted by @hkershaw-brown in #359