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 Attributes Name
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 mpi_barrier mpi_barrier proc~tem_restart_closewrite->mpi_barrier mpi_file_close mpi_file_close proc~tem_restart_closewrite->mpi_file_close 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_error_string mpi_error_string proc~check_mpi_error->mpi_error_string proc~tem_abort tem_abort proc~check_mpi_error->proc~tem_abort proc~tem_restart_writedata->proc~check_mpi_error mpi_file_write_all mpi_file_write_all proc~tem_restart_writedata->mpi_file_write_all aot_out_close aot_out_close proc~tem_restart_writeheader->aot_out_close aot_out_close_table aot_out_close_table proc~tem_restart_writeheader->aot_out_close_table aot_out_open aot_out_open proc~tem_restart_writeheader->aot_out_open aot_out_open_table aot_out_open_table proc~tem_restart_writeheader->aot_out_open_table aot_out_val aot_out_val proc~tem_restart_writeheader->aot_out_val interface~tem_varsys_out tem_varSys_out proc~tem_restart_writeheader->interface~tem_varsys_out 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_open tem_open proc~tem_restart_writeheader->proc~tem_open proc~tem_time_out tem_time_out proc~tem_restart_writeheader->proc~tem_time_out proc~tem_varsys_out_single tem_varSys_out_single interface~tem_varsys_out->proc~tem_varsys_out_single proc~tem_varsys_out_vector tem_varSys_out_vector interface~tem_varsys_out->proc~tem_varsys_out_vector mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~tem_mesh_out->aot_out_close_table proc~tem_mesh_out->aot_out_open_table proc~tem_mesh_out->aot_out_val proc~tem_open->proc~newunit proc~tem_open->proc~tem_abort proc~upper_to_lower upper_to_lower proc~tem_open->proc~upper_to_lower proc~tem_time_out->aot_out_close_table proc~tem_time_out->aot_out_open_table proc~tem_time_out->aot_out_val

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

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