catalog_name_list Function

private function catalog_name_list() result(list)

Comma-separated list of catalog diagnostic names (for error text).

Arguments

None

Return Value character(len=:), allocatable


Calls

proc~~catalog_name_list~~CallsGraph proc~catalog_name_list catalog_name_list proc~ensure_catalog_initialised ensure_catalog_initialised proc~catalog_name_list->proc~ensure_catalog_initialised

Called by

proc~~catalog_name_list~~CalledByGraph proc~catalog_name_list catalog_name_list proc~register_derived register_derived proc~register_derived->proc~catalog_name_list proc~apply_diag_selection apply_diag_selection proc~apply_diag_selection->proc~register_derived proc~engine_configure_diag engine_configure_diag proc~engine_configure_diag->proc~apply_diag_selection proc~engine_setup engine_setup proc~engine_setup->proc~engine_configure_diag proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup

Variables

Type Visibility Attributes Name Initial
integer, private :: i

Source Code

   function catalog_name_list() result(list)
      !! Comma-separated list of catalog diagnostic names (for error text).
      character(len=:), allocatable :: list
      integer :: i
      call ensure_catalog_initialised()
      list = ""
      do i = 1, N_CATALOG
         if (i > 1) list = list//", "
         list = list//trim(CATALOG(i)%name)
      end do
   end function catalog_name_list