time_info Module

Module with variables and routines to keep track of time.

There are both working and quad precision copies of the time variable that gets updated synchronously when the routines provided here are used.


Uses

  • module~~time_info~~UsesGraph module~time_info time_info module~kinds kinds module~time_info->module~kinds

Used by

  • module~~time_info~~UsedByGraph module~time_info time_info proc~output_cgfb output_cgfb proc~output_cgfb->module~time_info proc~osc_schw_output osc_schw_output proc~osc_schw_output->module~time_info proc~rk5_step rk5_step proc~rk5_step->module~time_info proc~co_output co_output proc~co_output->module~time_info proc~output output proc~output->module~time_info proc~co_save_globals_1 co_save_globals_1 proc~co_save_globals_1->module~time_info proc~output_igfb output_igfb proc~output_igfb->module~time_info proc~output_coords output_coords proc~output_coords->module~time_info proc~output_rgf output_rgf proc~output_rgf->module~time_info proc~scal_schw_load_globals scal_schw_load_globals proc~scal_schw_load_globals->module~time_info proc~osc_schw_load_globals osc_schw_load_globals proc~osc_schw_load_globals->module~time_info proc~sf_output sf_output proc~sf_output->module~time_info proc~osc_schw_save_globals_1 osc_schw_save_globals_1 proc~osc_schw_save_globals_1->module~time_info proc~scal_schw_save_globals_2 scal_schw_save_globals_2 proc~scal_schw_save_globals_2->module~time_info proc~scal_schw_rhs scal_schw_rhs proc~scal_schw_rhs->module~time_info proc~sobs_output sobs_output proc~sobs_output->module~time_info proc~geod_schw_load_globals geod_schw_load_globals proc~geod_schw_load_globals->module~time_info proc~output_rgfb output_rgfb proc~output_rgfb->module~time_info proc~rk4_step rk4_step proc~rk4_step->module~time_info proc~abmv5_step abmv5_step proc~abmv5_step->module~time_info proc~sf_extract sf_extract proc~sf_extract->module~time_info proc~abmv5_init abmv5_init proc~abmv5_init->module~time_info proc~geod_schw_output geod_schw_output proc~geod_schw_output->module~time_info proc~output_cgf output_cgf proc~output_cgf->module~time_info program~test test program~test->module~time_info proc~cobs_output cobs_output proc~cobs_output->module~time_info proc~get_force get_force proc~get_force->module~time_info

Contents


Variables

TypeVisibility AttributesNameInitial
real(kind=wp), private :: time

Working precision copy of the time, .

real(kind=wp), private :: time_save

Working precision backup copy of the time.

real(kind=wp), private :: dtime

.

real(kind=qp), private :: qtime

Quad precision copy of the time, .

real(kind=qp), private :: qtime_save

Quad precision backup copy of the time.

logical, public :: short_timesteps_active =.false.

Variable to keep track of whether small is used for quick but smooth turn on of the effective source.


Functions

public function get_current_time() result(t)

Function to get the current working precision time, .

Arguments

None

Return Value real(kind=wp)

Returns .

public function get_current_dtime() result(dt)

Function to get the current

Arguments

None

Return Value real(kind=wp)

Returns .

public function get_current_qtime() result(t)

Function to get the current quad precision time, .

Arguments

None

Return Value real(kind=qp)

Returns .


Subroutines

public subroutine init_time(t0)

Routine to initialize the time variables.

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: t0

The initial time, .

public subroutine save_time()

Routine to make a backup copy of the time.

Arguments

None

public subroutine restore_and_increment_time(dt)

Routine to restore and increment a backup copy of the time.

Read more…

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: dt

The to use for the increment.

public subroutine set_dtime(dt)

Routine that sets .

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: dt

The value to use for .

public subroutine increment_time(dt)

Routine to increment by .

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: dt

The value to use for .