test_terminationcheck_mod Module Reference

Functions/Subroutines
subroutine	test_timestep_callback ()
subroutine	test_consolidation_callback ()
subroutine	test_modeldump_callback ()
subroutine	init_random_seed ()

Variables
integer, parameter	max_tests = 1000

Function/Subroutine Documentation

init_random_seed()

subroutine test_terminationcheck_mod::init_random_seed

Definition at line 91 of file test_terminationcheck.F90.

    integer :: i, n, clock
    integer, dimension(:), allocatable :: seed
 
    call random_seed(size = n)
    allocate(seed(n))
 
    call system_clock(count=clock)
 
    seed = clock + 37 * (/ (i - 1, i = 1, n) /)
    call random_seed(put=seed)
 
    deallocate(seed)

Here is the caller graph for this function:

test_consolidation_callback()

subroutine test_terminationcheck_mod::test_consolidation_callback

Definition at line 36 of file test_terminationcheck.F90.

    integer :: i, nn_timesteps, nn_consolidation, multiplier
    type(model_state_type) :: current_state
    real :: r
 
    call init_random_seed
 
    do i=1,max_tests
      call random_number(r)
      nn_timesteps= int(r*9)+1
      call random_number(r)
      multiplier = int(r*199)+1
      call random_number(r)
      nn_consolidation = int(r*9)+1
 
      current_state%timestep = nn_timesteps * multiplier ! timestep already terminated hence multiplication
      current_state%continue_consolidation=.true.
      call options_add(current_state%options_database, "nn_timesteps", nn_timesteps)
      call options_add(current_state%options_database, "nn_consolidation", nn_consolidation)
      call consolidation_callback(current_state)
      call assert_equals(mod(current_state%timestep / nn_timesteps, nn_consolidation) /= 0, current_state%continue_consolidation,&
        "Consolidation completion consistent with expectations")
    end do

Here is the call graph for this function:

Here is the caller graph for this function:

test_modeldump_callback()

subroutine test_terminationcheck_mod::test_modeldump_callback

Definition at line 62 of file test_terminationcheck.F90.

    integer :: i, nn_timesteps, nn_consolidation, nn_modeldump, multiplier
    type(model_state_type) :: current_state
    real :: r
 
    call init_random_seed
 
    do i=1,max_tests
      call random_number(r)
      nn_timesteps= int(r*9)+1
      call random_number(r)
      multiplier = int(r*39)+1
      call random_number(r)
      nn_consolidation = int(r*9)+1
      call random_number(r)
      nn_modeldump = int(r*9)+1
 
      current_state%timestep = nn_timesteps * nn_consolidation * multiplier  ! timestep and consolidation already terminated hence multiplication
      current_state%continue_modeldump=.true.
      call options_add(current_state%options_database, "nn_timesteps", nn_timesteps)
      call options_add(current_state%options_database, "nn_consolidation", nn_consolidation)
      call options_add(current_state%options_database, "nn_modeldump", nn_modeldump)
      call modeldump_callback(current_state)
      call assert_equals(mod(current_state%timestep / nn_timesteps / nn_consolidation, nn_modeldump) /= 0,&
       current_state%continue_modeldump, "Model dump completion consistent with expectations")
    end do

Here is the call graph for this function:

Here is the caller graph for this function:

test_timestep_callback()

subroutine test_terminationcheck_mod::test_timestep_callback

Definition at line 13 of file test_terminationcheck.F90.

    integer :: i, nn_timesteps
    type(model_state_type) :: current_state
    real :: r
 
    call init_random_seed
 
    do i=1,max_tests
      call random_number(r)
      current_state%timestep = int(r*10000)+1
      call random_number(r)
      nn_timesteps= int(r*9)+1
 
      current_state%last_timestep_column = .true. ! Forces the check (only once per timestep)
      current_state%continue_timestep=.true.
      call options_add(current_state%options_database, "nn_timesteps", nn_timesteps)
      call timestep_callback(current_state)
      call assert_equals(mod(current_state%timestep, nn_timesteps) /= 0, current_state%continue_timestep,&
        "Timestep completion consistent with expectations")
    end do

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

max_tests

integer, parameter test_terminationcheck_mod::max_tests = 1000

Definition at line 8 of file test_terminationcheck.F90.

  integer, parameter :: MAX_TESTS = 1000  ! Number of tests to run for each case, some will require termination some not