mg_phi_bc_store Subroutine

public subroutine mg_phi_bc_store(mg)

Store boundary conditions for the solution variable, this can speed up calculations if the same boundary conditions are re-used.

Arguments

Type IntentOptional Attributes Name
type(mg_t), intent(inout) :: mg

Calls

proc~~mg_phi_bc_store~~CallsGraph proc~mg_phi_bc_store mg_phi_bc_store proc~mg_phi_bc_store_lvl mg_phi_bc_store_lvl proc~mg_phi_bc_store->proc~mg_phi_bc_store_lvl proc~box_set_gc box_set_gc proc~mg_phi_bc_store_lvl->proc~box_set_gc

Source Code

  subroutine mg_phi_bc_store(mg)
    type(mg_t), intent(inout) :: mg
    integer                   :: lvl, nc

    nc = mg%box_size

    do lvl = mg%lowest_lvl, mg%highest_lvl
       nc = mg%box_size_lvl(lvl)
       call mg_phi_bc_store_lvl(mg, lvl, nc)
    end do

    mg%phi_bc_data_stored = .true.
  end subroutine mg_phi_bc_store