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~2~~CallsGraph proc~mg_phi_bc_store~2 mg_phi_bc_store proc~mg_phi_bc_store_lvl~2 mg_phi_bc_store_lvl proc~mg_phi_bc_store~2->proc~mg_phi_bc_store_lvl~2 proc~box_set_gc~2 box_set_gc proc~mg_phi_bc_store_lvl~2->proc~box_set_gc~2

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