check_find_BCs_fromCoarser Subroutine

  1. tem_construction_test.f90
  2. tem_construction_test
  3. check_find_BCs_fromCoarser

subroutine check_find_BCs_fromCoarser()

Arguments

None

Calls

proc~~check_find_bcs_fromcoarser~~CallsGraph proc~check_find_bcs_fromcoarser check_find_BCs_fromCoarser init init proc~check_find_bcs_fromcoarser->init

Called by

proc~~check_find_bcs_fromcoarser~~CalledByGraph proc~check_find_bcs_fromcoarser check_find_BCs_fromCoarser program~tem_construction_test tem_construction_test program~tem_construction_test->proc~check_find_bcs_fromcoarser

Contents

Source Code

check_find_BCs_fromCoarser

Source Code

  subroutine check_find_BCs_fromCoarser
    type(tem_stencilHeader_type) :: d3q19_stencil
    logical :: failure

    failure = .false.
    call init( me     = d3q19_stencil, &
      &        QQN    = 18,            &
      &        QQ     = 19,            &
      &        useAll = .true.,        &
      &        nDims  = 3,             &
      &        label  = 'd3q19',       &
      &        cxDir  = d3q19_cxDir    )

    write(*,*) ' * checking tem_find_BCs_fromCoarser...'


   if (failure) then
      write(*,*) '   > FAILURE in tem_find_depProc coarse level'
      passed = .false.
    else
      write(*,*) '   > SUCCESS in tem_find_depProc coarse level'
    end if

    write(*,*) ' --------------------------------------------'
    write(*,*)

  end subroutine check_find_BCs_fromCoarser