tem_tracking_test Program

  1. tem_tracking_test.f90
  2. tem_tracking_test

Uses

  • program~~tem_tracking_test~~UsesGraph program~tem_tracking_test tem_tracking_test module~tem_tracking_module tem_tracking_module program~tem_tracking_test->module~tem_tracking_module iso_c_binding iso_c_binding program~tem_tracking_test->iso_c_binding module~env_module env_module program~tem_tracking_test->module~env_module mpi mpi program~tem_tracking_test->mpi module~aotus_module aotus_module program~tem_tracking_test->module~aotus_module module~tem_tracking_module->module~env_module module~tem_tracking_module->module~aotus_module module~tem_subtree_type_module tem_subTree_type_module module~tem_tracking_module->module~tem_subtree_type_module module~tem_varsys_module tem_varSys_module module~tem_tracking_module->module~tem_varsys_module module~treelmesh_module treelmesh_module module~tem_tracking_module->module~treelmesh_module module~tem_varmap_module tem_varMap_module module~tem_tracking_module->module~tem_varmap_module module~tem_simcontrol_module tem_simControl_module module~tem_tracking_module->module~tem_simcontrol_module module~tem_timecontrol_module tem_timeControl_module module~tem_tracking_module->module~tem_timecontrol_module module~hvs_output_module hvs_output_module module~tem_tracking_module->module~hvs_output_module module~aot_table_module aot_table_module module~tem_tracking_module->module~aot_table_module module~tem_comm_env_module tem_comm_env_module module~tem_tracking_module->module~tem_comm_env_module module~tem_debug_module tem_debug_module module~tem_tracking_module->module~tem_debug_module module~tem_tools_module tem_tools_module module~tem_tracking_module->module~tem_tools_module module~tem_bc_prop_module tem_bc_prop_module module~tem_tracking_module->module~tem_bc_prop_module module~tem_subtree_module tem_subTree_module module~tem_tracking_module->module~tem_subtree_module module~tem_aux_module tem_aux_module module~tem_tracking_module->module~tem_aux_module module~tem_solvehead_module tem_solveHead_module module~tem_tracking_module->module~tem_solvehead_module module~tem_logging_module tem_logging_module module~tem_tracking_module->module~tem_logging_module module~tem_time_module tem_time_module module~tem_tracking_module->module~tem_time_module module~tem_status_module tem_status_module module~tem_tracking_module->module~tem_status_module module~tem_shape_module tem_shape_module module~tem_tracking_module->module~tem_shape_module module~tem_stencil_module tem_stencil_module module~tem_tracking_module->module~tem_stencil_module module~tem_reduction_spatial_module tem_reduction_spatial_module module~tem_tracking_module->module~tem_reduction_spatial_module module~env_module->mpi module~env_module->module~aotus_module iso_fortran_env iso_fortran_env module~env_module->iso_fortran_env module~flu_binding flu_binding module~env_module->module~flu_binding

Calls

program~~tem_tracking_test~~CallsGraph program~tem_tracking_test tem_tracking_test proc~open_config_chunk open_config_chunk program~tem_tracking_test->proc~open_config_chunk proc~tem_load_tracking tem_load_tracking program~tem_tracking_test->proc~tem_load_tracking mpi_finalize mpi_finalize program~tem_tracking_test->mpi_finalize mpi_init mpi_init program~tem_tracking_test->mpi_init proc~close_config close_config program~tem_tracking_test->proc~close_config proc~aot_table_open aot_table_open proc~tem_load_tracking->proc~aot_table_open proc~aot_table_length aot_table_length proc~tem_load_tracking->proc~aot_table_length proc~aot_table_close aot_table_close proc~tem_load_tracking->proc~aot_table_close proc~tem_horizontalspacer tem_horizontalSpacer proc~tem_load_tracking->proc~tem_horizontalspacer proc~tem_load_trackingconfig tem_load_trackingConfig proc~tem_load_tracking->proc~tem_load_trackingconfig interface~tem_load_shape tem_load_shape proc~tem_load_trackingconfig->interface~tem_load_shape proc~tem_timecontrol_dump tem_timeControl_dump proc~tem_load_trackingconfig->proc~tem_timecontrol_dump proc~tem_abort tem_abort proc~tem_load_trackingconfig->proc~tem_abort proc~tem_load_reduction_spatial tem_load_reduction_spatial proc~tem_load_trackingconfig->proc~tem_load_reduction_spatial proc~tem_timecontrol_load tem_timeControl_load proc~tem_load_trackingconfig->proc~tem_timecontrol_load interface~aot_get_val aot_get_val proc~tem_load_trackingconfig->interface~aot_get_val proc~hvs_output_load hvs_output_load proc~tem_load_trackingconfig->proc~hvs_output_load proc~tem_load_shapes tem_load_shapes interface~tem_load_shape->proc~tem_load_shapes proc~tem_load_shape_single tem_load_shape_single interface~tem_load_shape->proc~tem_load_shape_single proc~tem_time_dump tem_time_dump proc~tem_timecontrol_dump->proc~tem_time_dump mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~tem_load_reduction_spatial->proc~aot_table_open proc~tem_load_reduction_spatial->proc~aot_table_length proc~tem_load_reduction_spatial->proc~aot_table_close proc~tem_load_reduction_single tem_load_reduction_single proc~tem_load_reduction_spatial->proc~tem_load_reduction_single proc~tem_timecontrol_load->proc~aot_table_open proc~tem_timecontrol_load->proc~aot_table_close proc~tem_timecontrol_load->interface~aot_get_val proc~tem_time_load tem_time_load proc~tem_timecontrol_load->proc~tem_time_load proc~tem_time_needs_reduce tem_time_needs_reduce proc~tem_timecontrol_load->proc~tem_time_needs_reduce proc~tem_time_never tem_time_never proc~tem_timecontrol_load->proc~tem_time_never proc~tem_time_default_zero tem_time_default_zero proc~tem_timecontrol_load->proc~tem_time_default_zero proc~hvs_output_load->proc~aot_table_open proc~hvs_output_load->proc~aot_table_close proc~hvs_output_load->proc~tem_abort interface~aot_get_val~2 aot_get_val proc~hvs_output_load->interface~aot_get_val~2 proc~upper_to_lower upper_to_lower proc~hvs_output_load->proc~upper_to_lower proc~hvs_vtk_config_load hvs_vtk_config_load proc~hvs_output_load->proc~hvs_vtk_config_load

Contents

Variables

Source Code

tem_tracking_test

Variables

Type AttributesNameInitial
character, parameter:: nl =C_NEW_LINE
type(tem_tracking_type) :: track
type(flu_State) :: conf
integer :: iError
character(len=solSpecLen), parameter:: sysConf ='tracking = {'//nl//'  label = "point",'//nl//'  variable = { "density", "velocity" },'//nl//'  folder = "tracking_",'//nl//'  shapce = { kind = "all" },'//nl//'  output = { format = "ascii" },'//nl//'  time = { min = 1, max = 10, interval = 1 },'//nl//'}'

Source Code

program tem_tracking_test
  use, intrinsic :: iso_c_binding, only: C_NEW_LINE
  use mpi
  ! incude treelm modules
  use env_module,             only: solSpecLen
  use tem_tracking_module,    only: tem_tracking_type, &
    &                               tem_load_tracking

  ! include aotus modules
  use aotus_module,           only: flu_State, close_config,      &
    &                               open_config_chunk

  !mpi!nprocs = 1

  implicit none

  character, parameter :: nl = C_NEW_LINE
  type(tem_tracking_type) :: track
  type(flu_State) :: conf
  integer :: iError

  character(len=solSpecLen), parameter :: sysConf =            &
    &    'tracking = {'                                  // nl &
    & // '  label = "point",'                            // nl &
    & // '  variable = { "density", "velocity" },'       // nl &
    & // '  folder = "tracking_",'                       // nl &
    & // '  shapce = { kind = "all" },'                  // nl &
    & // '  output = { format = "ascii" },'              // nl &
    & // '  time = { min = 1, max = 10, interval = 1 },' // nl &
    & // '}'

  call MPI_Init(iError)

  call open_config_chunk( L     = conf,         &
    &                     chunk = trim(sysConf) )

  ! load tracking
  call tem_load_tracking( me   = track, &
    &                     conf = conf   )

  call close_config( L = conf )
  write(*,*) 'PASSED'

  call MPI_Finalize(iError)

end program tem_tracking_test