test_prognostic_mod Module Reference

Functions/Subroutines
subroutine	test_async_flux_value
subroutine	test_get_field_interpolation_index

Function/Subroutine Documentation

test_async_flux_value()

subroutine test_prognostic_mod::test_async_flux_value

Definition at line 14 of file test_prognostics.F90.

    type(prognostic_field_type)  :: field
    call assert_equals(mpi_request_null, field%async_flux_handle , "Test async_flux_handle")    

Here is the caller graph for this function:

test_get_field_interpolation_index()

subroutine test_prognostic_mod::test_get_field_interpolation_index

Definition at line 21 of file test_prognostics.F90.

    type(prognostic_field_type) :: field
    logical, dimension(3)  :: get_field_index
    integer :: i
    get_field_index = get_field_interpolation_index(field)
    do i=1,3
       call assert_equals(.false., get_field_index(i) , "Test interpolation index is false")    
    enddo
    
    field%grid(1) = primal_grid
    get_field_index = get_field_interpolation_index(field)
    do i=1,3
       if (i == 1) then
          call assert_equals(.true., get_field_index(i) , " Should be true")    
       else
          call assert_equals(.false., get_field_index(i) , "Should be false")    
       endif
    enddo
    
    field%grid(1) = 10
    field%grid(2) = 20
    field%grid(3) = 30
    get_field_index = get_field_interpolation_index(field)
    do i=1,3
       call assert_equals(.false., get_field_index(i) , "Should be false")    
    enddo
    

Here is the call graph for this function:

Here is the caller graph for this function: