fake_advance Subroutine

public subroutine fake_advance(igrid, idimmin, idimmax, s)

Uses

  • proc~~fake_advance~~UsesGraph proc~fake_advance fake_advance module~mod_fix_conserve mod_fix_conserve proc~fake_advance->module~mod_fix_conserve module~mod_global_parameters mod_global_parameters proc~fake_advance->module~mod_global_parameters module~mod_mpi_wrapper mod_mpi_wrapper module~mod_fix_conserve->module~mod_mpi_wrapper 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_mpi_wrapper->mpi module~mod_variables->module~mod_basic_types

fake advance a step to calculate magnetic field

Arguments

Type IntentOptional Attributes Name
integer :: igrid
integer :: idimmin
integer :: idimmax
type(state) :: s

Calls

proc~~fake_advance~~CallsGraph proc~fake_advance fake_advance proc~fake_update fake_update proc~fake_advance->proc~fake_update proc~store_edge store_edge proc~fake_advance->proc~store_edge proc~store_flux store_flux proc~fake_advance->proc~store_flux proc~b_from_vector_potentiala b_from_vector_potentialA proc~fake_update->proc~b_from_vector_potentiala proc~mpistop mpistop proc~b_from_vector_potentiala->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~fake_advance~~CalledByGraph proc~fake_advance fake_advance proc~recalculateb recalculateB proc~recalculateb->proc~fake_advance proc~improve_initial_condition improve_initial_condition proc~improve_initial_condition->proc~recalculateb proc~main main proc~main->proc~improve_initial_condition program~agile agile program~agile->proc~main

Source Code

  subroutine fake_advance(igrid,idimmin,idimmax,s)
    use mod_global_parameters
    use mod_fix_conserve

    integer       :: igrid,idimmin,idimmax
    type(state)   :: s

    double precision             :: dx1,dx2,dx3
    double precision             :: fC(ixGlo1:ixGhi1,ixGlo2:ixGhi2,&
       ixGlo3:ixGhi3,1:nwflux,1:ndim)
    double precision             :: fE(ixGlo1:ixGhi1,ixGlo2:ixGhi2,&
       ixGlo3:ixGhi3,sdim:3)

    dx1=rnode(rpdx1_,igrid);dx2=rnode(rpdx2_,igrid);dx3=rnode(rpdx3_,igrid);

    call fake_update(ixGlo1,ixGlo2,ixGlo3,ixGhi1,ixGhi2,ixGhi3,s,fC,fE,dx1,dx2,&
       dx3)

    call store_flux(igrid,fC,idimmin,idimmax,3)
    call store_edge(igrid,ixGlo1,ixGlo2,ixGlo3,ixGhi1,ixGhi2,ixGhi3,fE,idimmin,&
       idimmax) 

  end subroutine fake_advance