atl_program_module Module

This module has all the general function for ateles programm: initialize, solve and finialze gathering the process into 3 main routines for ateles to unified eg. for apesmate


Uses


Subroutines

public subroutine atl_load_config(params, tree, configFile)

Arguments

Type IntentOptional Attributes Name
type(atl_solver_param_type), intent(inout) :: params
type(treelmesh_type), intent(out) :: tree

Mesh data in treelmesh format.
character(len=*), intent(in), optional :: configFile

Filename to use as default, when no argument provided.

Read more…

public subroutine atl_initialize_program(params, equation, tree, varSys_data, nCellsNoBnd, element_container, poly_proj_list, precice_dt)

Arguments

Type IntentOptional Attributes Name
type(atl_solver_param_type), intent(inout) :: params
type(atl_Equations_type), intent(out) :: equation
type(treelmesh_type), intent(inout) :: tree
type(atl_varSys_solverData_type), intent(out) :: varSys_data

Data Infomation of the variable System
integer, intent(out), allocatable :: nCellsNoBnd(:)
type(atl_element_container_type), intent(out) :: element_container
type(ply_poly_project_type), intent(out), allocatable :: poly_proj_list(:)
real(kind=rk), intent(out), optional :: precice_dt

public subroutine atl_solve_program(params, equation, tree, nCellsNoBnd, element_container, poly_proj_list, precice_dt)

NE ! Dump and reset the timer after each Iteration NE call atl_dumpTimers( general = params%general, & NE & nElems = tree%global%nElems, & NE & nDofs = element_container%cubes & NE & %scheme_list(tree%global%minLevel) & NE & %nDofs, & NE & nVars = equation%varSys%nScalars ) NE call atl_resetTimers()

Arguments

Type IntentOptional Attributes Name
type(atl_solver_param_type), intent(inout) :: params
type(atl_Equations_type), intent(inout) :: equation
type(treelmesh_type), intent(in) :: tree
integer, intent(inout) :: nCellsNoBnd(:)
type(atl_element_container_type), intent(inout) :: element_container
type(ply_poly_project_type), intent(inout) :: poly_proj_list(:)
real(kind=rk), intent(inout), optional :: precice_dt

public subroutine atl_finalize_program(params, equation, tree, nCellsNoBnd, element_container)

Arguments

Type IntentOptional Attributes Name
type(atl_solver_param_type), intent(inout) :: params
type(atl_Equations_type), intent(inout) :: equation
type(treelmesh_type), intent(inout) :: tree
integer, intent(inout), allocatable :: nCellsNoBnd(:)
type(atl_element_container_type), intent(inout) :: element_container