set_B0_grid Subroutine

public subroutine set_B0_grid(igrid)

Uses

  • proc~~set_b0_grid~~UsesGraph proc~set_b0_grid set_B0_grid module~mod_global_parameters mod_global_parameters proc~set_b0_grid->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: igrid

Calls

proc~~set_b0_grid~~CallsGraph proc~set_b0_grid set_B0_grid proc~set_b0_cell set_B0_cell proc~set_b0_grid->proc~set_b0_cell proc~set_b0_face set_B0_face proc~set_b0_grid->proc~set_b0_face proc~set_j0_cell set_J0_cell proc~set_b0_grid->proc~set_j0_cell dcos dcos proc~set_b0_cell->dcos dsin dsin proc~set_b0_cell->dsin proc~set_b0_face->proc~set_b0_cell proc~curlvector curlvector proc~set_j0_cell->proc~curlvector proc~curlvector->dcos proc~curlvector->dsin proc~mpistop mpistop proc~curlvector->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~set_b0_grid~~CalledByGraph proc~set_b0_grid set_B0_grid proc~alloc_node alloc_node proc~alloc_node->proc~set_b0_grid proc~alloc_node~2 alloc_node proc~alloc_node~2->proc~set_b0_grid proc~alloc_node~3 alloc_node proc~alloc_node~3->proc~set_b0_grid proc~alloc_node~4 alloc_node proc~alloc_node~4->proc~set_b0_grid

Source Code

  subroutine set_B0_grid(igrid)
    use mod_global_parameters
  
    integer, intent(in) :: igrid
  
    integer :: ixCoGmin1,ixCoGmin2,ixCoGmin3,ixCoGmax1,ixCoGmax2,ixCoGmax3
  
    ixCoGmin1=1;ixCoGmin2=1;ixCoGmin3=1;
    ixCoGmax1=(ixGhi1-2*nghostcells)/2+2*nghostcells
    ixCoGmax2=(ixGhi2-2*nghostcells)/2+2*nghostcells
    ixCoGmax3=(ixGhi3-2*nghostcells)/2+2*nghostcells;
  
    call set_B0_cell(ps(igrid)%B0(ixGlo1:ixGhi1,ixGlo2:ixGhi2,ixGlo3:ixGhi3,:,&
       0),ps(igrid)%x,ixGlo1,ixGlo2,ixGlo3,ixGhi1,ixGhi2,ixGhi3,ixGlo1,ixGlo2,&
       ixGlo3,ixGhi1,ixGhi2,ixGhi3)
    if(B0fieldAllocCoarse) call set_B0_cell(psc(igrid)%B0(ixCoGmin1:ixCoGmax1,&
       ixCoGmin2:ixCoGmax2,ixCoGmin3:ixCoGmax3,:,0),psc(igrid)%x,ixCoGmin1,&
       ixCoGmin2,ixCoGmin3,ixCoGmax1,ixCoGmax2,ixCoGmax3,ixCoGmin1,ixCoGmin2,&
       ixCoGmin3,ixCoGmax1,ixCoGmax2,ixCoGmax3)
    call set_J0_cell(igrid,ps(igrid)%J0,ixGlo1,ixGlo2,ixGlo3,ixGhi1,ixGhi2,&
       ixGhi3,ixMlo1-1,ixMlo2-1,ixMlo3-1,ixMhi1+1,ixMhi2+1,ixMhi3+1)
    call set_B0_face(igrid,ps(igrid)%x,ixGlo1,ixGlo2,ixGlo3,ixGhi1,ixGhi2,&
       ixGhi3,ixMlo1,ixMlo2,ixMlo3,ixMhi1,ixMhi2,ixMhi3)
  
  end subroutine set_B0_grid