lorentz_fill_gridvars Subroutine

private subroutine lorentz_fill_gridvars()

Uses

  • proc~~lorentz_fill_gridvars~~UsesGraph proc~lorentz_fill_gridvars lorentz_fill_gridvars module~mod_geometry mod_geometry proc~lorentz_fill_gridvars->module~mod_geometry module~mod_global_parameters mod_global_parameters proc~lorentz_fill_gridvars->module~mod_global_parameters module~mod_usr_methods mod_usr_methods proc~lorentz_fill_gridvars->module~mod_usr_methods module~mod_comm_lib mod_comm_lib module~mod_geometry->module~mod_comm_lib 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

None

Calls

proc~~lorentz_fill_gridvars~~CallsGraph proc~lorentz_fill_gridvars lorentz_fill_gridvars proc~fill_gridvars_default fill_gridvars_default proc~lorentz_fill_gridvars->proc~fill_gridvars_default proc~fields_from_mhd fields_from_mhd proc~fill_gridvars_default->proc~fields_from_mhd phys_to_primitive phys_to_primitive proc~fields_from_mhd->phys_to_primitive proc~particle_get_current particle_get_current proc~fields_from_mhd->proc~particle_get_current proc~curlvector curlvector proc~particle_get_current->proc~curlvector dcos dcos proc~curlvector->dcos dsin dsin proc~curlvector->dsin proc~mpistop mpistop proc~curlvector->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Source Code

  subroutine lorentz_fill_gridvars
    use mod_global_parameters
    use mod_usr_methods, only: usr_particle_fields
    use mod_geometry

    integer                                   :: igrid, iigrid, idir, idim
    double precision, dimension(ixGlo1:ixGhi1,ixGlo2:ixGhi2,ixGlo3:ixGhi3,&
       1:ndir) :: beta
    double precision, dimension(ixGlo1:ixGhi1,ixGlo2:ixGhi2,ixGlo3:ixGhi3,&
       1:nw)   :: w,wold
    double precision                          :: current(ixGlo1:ixGhi1,&
       ixGlo2:ixGhi2,ixGlo3:ixGhi3,7-2*ndir:3)
    integer                                   :: idirmin
    double precision, dimension(ixGlo1:ixGhi1,ixGlo2:ixGhi2,ixGlo3:ixGhi3,&
       1:ndir) :: vE, bhat
    double precision, dimension(ixGlo1:ixGhi1,ixGlo2:ixGhi2,&
       ixGlo3:ixGhi3)        :: kappa, kappa_B, absB, tmp

    ! Fill electromagnetic quantities
    call fill_gridvars_default()

  end subroutine lorentz_fill_gridvars