hvs_output_close Subroutine

public subroutine hvs_output_close(out_file, mesh, varsys, subtree)

Close all files open for current time step.

Arguments

Type IntentOptional AttributesName
type(hvs_output_file_type), intent(inout) :: out_file
type(treelmesh_type), intent(in) :: mesh

Mesh to write the data on.

type(tem_varSys_type), intent(in) :: varsys

Description of the available variable system to get the given varnames from.

type(tem_subTree_type), intent(in), optional :: subtree

Optional restriction of the elements to output.


Calls

proc~~hvs_output_close~~CallsGraph proc~hvs_output_close hvs_output_close proc~hvs_asciispatial_close hvs_asciiSpatial_close proc~hvs_output_close->proc~hvs_asciispatial_close proc~hvs_vtk_close hvs_vtk_close proc~hvs_output_close->proc~hvs_vtk_close proc~tem_restart_closewrite tem_restart_closeWrite proc~hvs_output_close->proc~tem_restart_closewrite proc~tem_abort tem_abort proc~hvs_vtk_close->proc~tem_abort proc~check_mpi_error check_mpi_error proc~tem_restart_closewrite->proc~check_mpi_error proc~tem_restart_writedata tem_restart_writeData proc~tem_restart_closewrite->proc~tem_restart_writedata proc~tem_restart_writeheader tem_restart_writeHeader proc~tem_restart_closewrite->proc~tem_restart_writeheader mpi_file_close mpi_file_close proc~tem_restart_closewrite->mpi_file_close mpi_barrier mpi_barrier proc~tem_restart_closewrite->mpi_barrier proc~check_mpi_error->proc~tem_abort mpi_error_string mpi_error_string proc~check_mpi_error->mpi_error_string proc~tem_restart_writedata->proc~check_mpi_error mpi_file_write_all mpi_file_write_all proc~tem_restart_writedata->mpi_file_write_all proc~aot_out_close_table aot_out_close_table proc~tem_restart_writeheader->proc~aot_out_close_table proc~aot_out_open_table aot_out_open_table proc~tem_restart_writeheader->proc~aot_out_open_table interface~aot_out_val aot_out_val proc~tem_restart_writeheader->interface~aot_out_val proc~aot_out_close aot_out_close proc~tem_restart_writeheader->proc~aot_out_close proc~newunit newunit proc~tem_restart_writeheader->proc~newunit proc~tem_mesh_out tem_mesh_out proc~tem_restart_writeheader->proc~tem_mesh_out proc~tem_time_out tem_time_out proc~tem_restart_writeheader->proc~tem_time_out proc~aot_out_open aot_out_open proc~tem_restart_writeheader->proc~aot_out_open interface~tem_varsys_out tem_varSys_out proc~tem_restart_writeheader->interface~tem_varsys_out mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~tem_mesh_out->proc~aot_out_close_table proc~tem_mesh_out->proc~aot_out_open_table proc~tem_mesh_out->interface~aot_out_val proc~tem_time_out->proc~aot_out_close_table proc~tem_time_out->proc~aot_out_open_table proc~tem_time_out->interface~aot_out_val proc~tem_varsys_out_vector tem_varSys_out_vector interface~tem_varsys_out->proc~tem_varsys_out_vector proc~tem_varsys_out_single tem_varSys_out_single interface~tem_varsys_out->proc~tem_varsys_out_single

Called by

proc~~hvs_output_close~~CalledByGraph proc~hvs_output_close hvs_output_close proc~tem_tracker tem_tracker proc~tem_tracker->proc~hvs_output_close

Contents

Source Code


Source Code

  subroutine hvs_output_close(out_file, mesh, varSys, subTree)
    ! --------------------------------------------------------------------------!
    type(hvs_output_file_type), intent(inout) :: out_file

    !> Description of the available variable system to get the given varnames
    !! from.
    type(tem_varSys_type), intent(in) :: varsys

    !> Mesh to write the data on.
    type(treelmesh_type), intent(in) :: mesh

    !> Optional restriction of the elements to output.
    type(tem_subtree_type), optional, intent(in) :: subtree
    ! --------------------------------------------------------------------------!
    select case(out_file%vis_kind)
    case(hvs_AsciiSpatial)
      call hvs_asciiSpatial_close( asciiSpatial = out_file%asciiSpatial )
    case(hvs_Internal)
      call tem_restart_closeWrite( me      = out_file%restart, &
        &                          tree    = mesh,             &
        &                          timing  = out_file%time,    &
        &                          varSys  = varSys,         &
        &                          subTree = subTree           )
    case(hvs_VTK)
      call hvs_vtk_close( vtk_file = out_file%vtk, &
        &                 proc     = out_file%proc )
    end select

  end subroutine hvs_output_close