atl_write_precice Subroutine

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

Type	Intent	Optional	Attributes		Name
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