tem_load_temporal Subroutine

  1. tem_temporal_module.f90
  2. tem_temporal_module
  3. tem_load_temporal

public subroutine tem_load_temporal(me, conf, parent, key)

This subroutine load temporal table defined for a boundary.\n

If temporal is defined as lua function then set kind = temporal_lua else if temporal block is defined then load temporal table for predefined Fortran function variables and set kind = temporal_\a function_name else temporal is a constant value and set kind = temporal_const.\n \n Valid definitions: \li Constant ~~~~~~~~~~~~~~~~~~~~~{.lua} temporal = 1.0 ~~~~~~~~~~~~~~~~~~~~~ \li lua_function ~~~~~~~~~~~~~~~~~~~~~ temporal = 'linear' ~~~~~~~~~~~~~~~~~~~~~ Example: \a linear lua function \verbatim function linear(iTime) local to_time = 1000 if iTime < to_time then return iTime/to_time else return 1.0 end end \endverbatim \li Predefined Fortran function ~~~~~~~~~~~~~~~~~~~~~{.lua} temporal = {predefined="Fortranfun_name", min_factor = 0.0, max_factor = 1.0, from_time = 0.0, to_time = 1000.0} ~~~~~~~~~~~~~~~~~~~~~ \li Data from a file (periodic data supported) ~~~~~~~~~~~~~~~~~~~~~{.lua} temporal = {predefined="datafile", filename='data.dat', -- path/name of the datafile intp='linear', -- interpolation between the time tics ('linear','none') periodic= true} -- is the data periodic? ~~~~~~~~~~~~~~~~~~~~~ \n

Arguments

TypeIntentOptionalAttributesName
type(tem_temporal_type), intent(out) :: me

boundary temporal type
type(flu_State) :: conf

lua state
integer, intent(in) :: parent

parent handle contains temporal table
character(len=*), intent(in), optional :: key

state variable key string defined in lua

Calls

proc~~tem_load_temporal~~CallsGraph proc~tem_load_temporal tem_load_temporal proc~load_temporal_linear load_temporal_linear proc~tem_load_temporal->proc~load_temporal_linear proc~load_temporal_cos load_temporal_cos proc~tem_load_temporal->proc~load_temporal_cos interface~aot_get_val~2 aot_get_val proc~tem_load_temporal->interface~aot_get_val~2 proc~aot_reference_for aot_reference_for proc~tem_load_temporal->proc~aot_reference_for interface~aot_fun_open aot_fun_open proc~tem_load_temporal->interface~aot_fun_open proc~load_temporal_from_file load_temporal_from_file proc~tem_load_temporal->proc~load_temporal_from_file proc~aot_table_open aot_table_open proc~tem_load_temporal->proc~aot_table_open proc~tem_abort tem_abort proc~tem_load_temporal->proc~tem_abort proc~aot_fun_close aot_fun_close proc~tem_load_temporal->proc~aot_fun_close proc~load_temporal_linear->interface~aot_get_val~2 proc~load_temporal_linear->proc~tem_abort proc~load_temporal_cos->interface~aot_get_val~2 proc~load_temporal_cos->proc~tem_abort proc~load_temporal_from_file->interface~aot_get_val~2 proc~load_temporal_from_file->proc~aot_table_open proc~load_temporal_from_file->proc~tem_abort proc~load_datafile load_datafile proc~load_temporal_from_file->proc~load_datafile mpi_abort mpi_abort proc~tem_abort->mpi_abort proc~load_datafile->proc~tem_abort proc~tem_open tem_open proc~load_datafile->proc~tem_open interface~append~16 append proc~load_datafile->interface~append~16 interface~init~15 init proc~load_datafile->interface~init~15 proc~tem_open->proc~tem_abort proc~upper_to_lower upper_to_lower proc~tem_open->proc~upper_to_lower proc~newunit newunit proc~tem_open->proc~newunit proc~append_singlega2d_real append_singlega2d_real interface~append~16->proc~append_singlega2d_real proc~append_arrayga2d_real append_arrayga2d_real interface~append~16->proc~append_arrayga2d_real proc~init_ga2d_real init_ga2d_real interface~init~15->proc~init_ga2d_real

Called by

proc~~tem_load_temporal~~CalledByGraph proc~tem_load_temporal tem_load_temporal proc~load_spacetime_predefined load_spacetime_predefined proc~load_spacetime_predefined->proc~tem_load_temporal proc~tem_load_spacetime_single tem_load_spacetime_single proc~tem_load_spacetime_single->proc~load_spacetime_predefined proc~tem_load_spacetime_single->proc~tem_load_spacetime_single proc~tem_load_spacetime_table tem_load_spacetime_table proc~tem_load_spacetime_table->proc~tem_load_spacetime_single interface~tem_load_spacetime tem_load_spacetime interface~tem_load_spacetime->proc~tem_load_spacetime_single interface~tem_load_spacetime->proc~tem_load_spacetime_table proc~tem_variable_loadmapping_single tem_variable_loadMapping_single proc~tem_variable_loadmapping_single->interface~tem_load_spacetime proc~tem_variable_load_single tem_variable_load_single proc~tem_variable_load_single->interface~tem_load_spacetime program~tem_spacetime_fun_test tem_spacetime_fun_test program~tem_spacetime_fun_test->interface~tem_load_spacetime

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
type(aot_fun_type), private :: fun
integer, private :: thandle
integer, private :: iError
character(len=labelLen), private :: local_key