runcontrolmodule Module Reference

Data Types
type	runcontroltype

Functions/Subroutines
class(runcontroltype) function, pointer, public	create_seq_run_control ()
subroutine	ctrl_start (this)
subroutine	ctrl_finish (this)
subroutine	ctrl_at_stage (this, stage)
	This will call the handler for a particular stage. More...
subroutine	init_handler (this)
subroutine	ctrl_after_con_cr (this)
	Actions after connections have been created. More...
subroutine	before_con_df (this)
	Actions before defining the connections. More...
subroutine	after_con_df (this)
	Actions after defining connections. More...
subroutine	rc_solution_sync (num_sol, stage, ctx)
	Synchronizes from within numerical solution (delegate) More...
subroutine	destroy (this)

Function/Subroutine Documentation

after_con_df()

subroutine runcontrolmodule::after_con_df ( class(runcontroltype)  this )

private

Definition at line 150 of file RunControl.f90.

    class(RunControlType) :: this
 
    ! Reduce the halo
    call this%virtual_data_mgr%compress_halo()
 
    ! Add variables in interface models to the mapper
    call this%mapper%add_interface_vars()
 

before_con_df()

subroutine runcontrolmodule::before_con_df ( class(runcontroltype), target  this )

private

Set up the virtual data manager: The models and exchanges in the halo for this interface have been determined. Add them to the virtual data manager for synchronization. (After which the interface model

Definition at line 121 of file RunControl.f90.

    class(RunControlType), target :: this
    ! local
    integer(I4B) :: i
    class(*), pointer :: obj_ptr
    class(NumericalSolutionType), pointer :: sol
 
    ! Add (halo) models and exchanges to the virtual
    ! solutions. Set the synchronization handler
    ! in the numerical solution.
    do i = 1, basesolutionlist%Count()
      obj_ptr => basesolutionlist%GetItem(i)
      select type (obj_ptr)
      class is (numericalsolutiontype)
        sol => obj_ptr
        call this%virtual_data_mgr%add_solution(sol)
        sol%synchronize => rc_solution_sync
        sol%synchronize_ctx => this
      end select
    end do
 
    ! The remote data fields in exchanges need to
    ! be copied in from the virtual exchanges
    call this%mapper%add_exchange_vars()
 

Here is the call graph for this function:

create_seq_run_control()

class(runcontroltype) function, pointer, public runcontrolmodule::create_seq_run_control

Definition at line 33 of file RunControl.f90.

    class(RunControlType), pointer :: run_controller
 
    allocate (run_controller)
 

Here is the caller graph for this function:

ctrl_after_con_cr()

subroutine runcontrolmodule::ctrl_after_con_cr

(

class(runcontroltype)

this

)

Definition at line 107 of file RunControl.f90.

    class(RunControlType) :: this
 
    call this%virtual_data_mgr%activate_halo()
 

ctrl_at_stage()

subroutine runcontrolmodule::ctrl_at_stage	(	class(runcontroltype)	this,
		integer(i4b)	stage
	)

Definition at line 76 of file RunControl.f90.

    class(RunControlType) :: this
    integer(I4B) :: stage
 
    if (stage == stg_bfr_mdl_df) then
      call this%init_handler()
    else if (stage == stg_aft_con_cr) then
      call this%after_con_cr()
    else if (stage == stg_bfr_con_df) then
      call this%before_con_df()
    else if (stage == stg_aft_con_df) then
      call this%after_con_df()
    end if
 
    call this%virtual_data_mgr%synchronize(stage)
    call this%mapper%scatter(0, stage)
 

ctrl_finish()

subroutine runcontrolmodule::ctrl_finish ( class(runcontroltype)  this )

private

Definition at line 47 of file RunControl.f90.

    use simvariablesmodule, only: iout
    use memorymanagermodule, only: mem_write_usage, mem_da
    use memoryaliasmodule, only: mem_alias_da
    use timermodule, only: elapsed_time
    use simmodule, only: final_message
    class(RunControlType) :: this
 
    ! clean up
    call this%destroy()
 
    ! -- Write memory usage, elapsed time and terminate
    call mem_write_usage(iout)
    call mem_da()
    call mem_alias_da()
 
    ! stop and print timings
    call g_prof%stop(g_prof%tmr_finalize)
    call g_prof%stop(g_prof%tmr_run)
    call g_prof%print(iout)
    call g_prof%destroy()
 
    call elapsed_time(iout, 1)
    call final_message()
 

Here is the call graph for this function:

ctrl_start()

subroutine runcontrolmodule::ctrl_start ( class(runcontroltype)  this )

private

Definition at line 40 of file RunControl.f90.

    class(RunControlType) :: this
 
    allocate (this%virtual_data_mgr)
 

destroy()

subroutine runcontrolmodule::destroy

(

class(runcontroltype)

this

)

Definition at line 177 of file RunControl.f90.

    class(RunControlType) :: this
 
    call this%virtual_data_mgr%destroy()
    deallocate (this%virtual_data_mgr)
 

init_handler()

subroutine runcontrolmodule::init_handler ( class(runcontroltype), target  this )

private

Definition at line 95 of file RunControl.f90.

    use simvariablesmodule, only: simulation_mode
    class(RunControlType), target :: this
 
    call this%virtual_data_mgr%create(simulation_mode)
    call this%virtual_data_mgr%init()
    call this%mapper%init()
 

rc_solution_sync()

subroutine runcontrolmodule::rc_solution_sync ( class(numericalsolutiontype)  num_sol, integer(i4b)  stage, class(*), pointer  ctx  )

private

Definition at line 163 of file RunControl.f90.

    use numericalsolutionmodule, only: numericalsolutiontype
    class(NumericalSolutionType) :: num_sol
    integer(I4B) :: stage
    class(*), pointer :: ctx
 
    select type (ctx)
    class is (runcontroltype)
      call ctx%virtual_data_mgr%synchronize_sln(num_sol%id, stage)
      call ctx%mapper%scatter(num_sol%id, stage)
    end select
 

Here is the caller graph for this function: