atl_write_precice Subroutine

  1. atl_writePrecice_module.f90
  2. atl_writePrecice_module
  3. atl_write_precice

public subroutine atl_write_precice(stFunList, varSys, time, tree)

loop over linked list of spacetimefunction set the current to head loop over all shapes of that spacetimefunction check if there is a precice kind

check if this one has write flag get the number of unquie points ( xyz should be same number) loop over the variables to write to precice Get_point routine for unquie array of points of that variable. Since the unique list of points is stored before, through the setup indices, we know depending on which kind of points we use, how many points we have. Thus we always access the right number of points, therefore we just have to call getvalofIndex just once independent from what kind of points we take for write to precice. write the scalar value to precice

Arguments

TypeIntentOptionalAttributesName
type(tem_st_fun_linkedList_type), intent(inout), target:: stFunList

This list contains all space-time-function
type(tem_varSys_type), intent(in) :: varSys

Global variable system
type(tem_time_type), intent(in) :: time

The current absolute time.
type(treelmesh_type), intent(in) :: tree

treelm mesh

Calls

proc~~atl_write_precice~~CallsGraph proc~atl_write_precice atl_write_precice tem_precice_write tem_precice_write proc~atl_write_precice->tem_precice_write

Called by

proc~~atl_write_precice~~CalledByGraph proc~atl_write_precice atl_write_precice proc~mesh_timestep_rktaylor mesh_timestep_rktaylor proc~mesh_timestep_rktaylor->proc~atl_write_precice proc~atl_init_precice atl_init_precice proc~atl_init_precice->proc~atl_write_precice proc~mesh_timestep_imexrk mesh_timestep_imexrk proc~mesh_timestep_imexrk->proc~atl_write_precice proc~mesh_timestep_rk4 mesh_timestep_rk4 proc~mesh_timestep_rk4->proc~atl_write_precice proc~mesh_timestep_ssprk2 mesh_timestep_ssprk2 proc~mesh_timestep_ssprk2->proc~atl_write_precice proc~atl_initialize atl_initialize proc~atl_initialize->proc~atl_init_precice proc~atl_initialize_program atl_initialize_program proc~atl_initialize_program->proc~atl_initialize program~atl_harvesting atl_harvesting program~atl_harvesting->proc~atl_initialize program~ateles ateles program~ateles->proc~atl_initialize_program

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
real(kind=rk), private, allocatable:: res(:)
integer, private :: iLevel
integer, private :: iVar
integer, private :: varPos
integer, private :: iStFun
integer, private :: nPnts
type(tem_precice_coupling_type), private, pointer:: preciceCpl=> NULL()
type(tem_st_fun_listElem_type), private, pointer:: current