test_checkpointer_mod Module Reference

Functions/Subroutines
subroutine	test_write_out_global_attributes ()
subroutine	test_write_out_misc_variables ()
subroutine	test_define_velocity_variable ()
subroutine	test_does_field_exist ()

Function/Subroutine Documentation

test_define_velocity_variable()

subroutine test_checkpointer_mod::test_define_velocity_variable

Definition at line 45 of file test_checkpointer.F90.

    integer :: id
    class(*), pointer :: raw_data, raw_id
 
    call dummy_netcdf_reset()
    call define_velocity_variable(1, 10, field_name="A",field_id=id)
    call assert_equals(1, id)
    raw_data => c_get(variable_data, "A")
    raw_id => c_get(variable_ids, "A")
    select type(raw_data)
      type is (integer_array_wrapper_type)
        call assert_equals(id, conv_to_integer(raw_id, .false.))
        call assert_equals(1, raw_data%size, "Size expected")
        call assert_equals(10, raw_data%data(1), "Dimension correct")
    end select
    call define_velocity_variable(1, 11, 20, field_name="B",field_id=id)
    call assert_equals(2, id)
    raw_data => c_get(variable_data, "B")
    raw_id => c_get(variable_ids, "B")
    select type(raw_data)
      type is (integer_array_wrapper_type)
        call assert_equals(id, conv_to_integer(raw_id, .false.))
        call assert_equals(2, raw_data%size, "Size expected")
        call assert_equals(11, raw_data%data(1), "Dimension correct")
        call assert_equals(20, raw_data%data(2), "Dimension correct")
    end select
    call define_velocity_variable(1, 11, 21, 30, field_name="C",field_id=id)
    call assert_equals(3, id)
    raw_data => c_get(variable_data, "C")
    raw_id => c_get(variable_ids, "C")
    select type(raw_data)
      type is (integer_array_wrapper_type)
        call assert_equals(id, conv_to_integer(raw_id, .false.))
        call assert_equals(3, raw_data%size, "Size expected")
        call assert_equals(11, raw_data%data(1), "Dimension correct")
        call assert_equals(21, raw_data%data(2), "Dimension correct")
        call assert_equals(30, raw_data%data(3), "Dimension correct")
    end select

Here is the call graph for this function:

Here is the caller graph for this function:

test_does_field_exist()

subroutine test_checkpointer_mod::test_does_field_exist

Definition at line 86 of file test_checkpointer.F90.

    logical :: exists
    integer :: dummy=1
 
    class(*), pointer :: raw_data
 
    raw_data=>conv_to_generic(dummy, .true.)
    call c_put(variable_ids, "BCD", raw_data)
 
    exists = does_field_exist(1, "ABC")
    call assert_false(exists, "Field does not exist")
    exists = does_field_exist(1, "BCD")
    call assert_true(exists, "Field does exist")

Here is the call graph for this function:

Here is the caller graph for this function:

test_write_out_global_attributes()

subroutine test_checkpointer_mod::test_write_out_global_attributes

Definition at line 18 of file test_checkpointer.F90.

    class(*), pointer :: raw_data
 
    call dummy_netcdf_reset()
    call write_out_global_attributes(1)
 
    call assert_true(c_contains(global_attributes, title_attribute_key), "Checkpoint title exists")
    raw_data=>c_get(global_attributes, title_attribute_key)
    call assert_equals(checkpoint_title, trim(conv_to_string(raw_data, .true., 20)), "Checkpoint title correct")
    call assert_true(c_contains(global_attributes, created_attribute_key), "Created attribute exists")

Here is the call graph for this function:

Here is the caller graph for this function:

test_write_out_misc_variables()

subroutine test_checkpointer_mod::test_write_out_misc_variables

Definition at line 31 of file test_checkpointer.F90.

    type(model_state_type) :: state_mod
    integer, dimension(1) :: test_int
    integer :: ret
 
    call dummy_netcdf_reset()
    state_mod%timestep=100
    call write_out_misc_variables(state_mod, 1, 1, 2, 3, 4, 5)
 
    ret = nf90_get_var_integer(1, 1, test_int)
    call assert_equals(test_int(1), state_mod%timestep, "Timestep correct")

Here is the call graph for this function:

Here is the caller graph for this function: