tem_solverTag Function

public function tem_solverTag(solver) result(tag)

Function to return a solver tag (combination of solver name and version)

Arguments

Type IntentOptional Attributes Name
type(tem_solveHead_type), intent(in) :: solver

solver information

Return Value character(len=LabelLen)


Called by

proc~~tem_solvertag~~CalledByGraph proc~tem_solvertag tem_solverTag proc~hvs_ascii_write_header hvs_ascii_write_header proc~hvs_ascii_write_header->proc~tem_solvertag proc~tem_init_restart_alloc tem_init_restart_alloc proc~tem_init_restart_alloc->proc~tem_solvertag proc~hvs_ascii_init hvs_ascii_init proc~hvs_ascii_init->proc~hvs_ascii_write_header proc~hvs_asciispatial_init hvs_asciiSpatial_init proc~hvs_asciispatial_init->proc~hvs_ascii_write_header proc~tem_init_restart tem_init_restart proc~tem_init_restart->proc~tem_init_restart_alloc proc~hvs_output_init hvs_output_init proc~hvs_output_init->proc~hvs_ascii_init proc~hvs_output_init->proc~hvs_asciispatial_init proc~hvs_output_init->proc~tem_init_restart proc~tem_init_tracker tem_init_tracker proc~tem_init_tracker->proc~hvs_output_init

Source Code

  function tem_solverTag( solver ) result( tag )
    ! ---------------------------------------------------------------------------
    !> solver information
    type(tem_solveHead_type), intent(in) :: solver
    ! ---------------------------------------------------------------------------
    ! defining local variables
    character(len=LabelLen) :: tag  ! solver
    ! ---------------------------------------------------------------------------

    tag = trim(solver%solName(:labellen/2)) // '_' &
      & // trim(solver%version(:(labellen/2)-1))
  end function tem_solverTag