init_grid_field Module

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Contents

Subroutines

initial_beam_fields init_envelope_field init_gprof_envelope_field get_2dlaser_gprof_fields_lp get_2dlaser_fields_lp get_laser_fields_lp get_laser_gprof_fields_lp get_plane_wave_lp get_plane_wave_cp get_laser_fields_cp inflow_lp_fields init_lp_inc0_fields init_lp_fields inflow_cp_fields init_cp_fields init_fluid_density_momenta set_poloidal_ex_fields set_solenoid_fields

Subroutines

public subroutine initial_beam_fields(poten, efb, g2, bet)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	poten(:,:,:,:)
real(kind=dp),	intent(out)			::	efb(:,:,:,:)
real(kind=dp),	intent(in)			::	g2
real(kind=dp),	intent(in)			::	bet

public subroutine init_envelope_field(ef, ee0, t_loc, tf, wx, wy, xf0, om0, pw, i1, i2, ycent, zcent)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
real(kind=dp),	intent(in)			::	om0
integer,	intent(in)			::	pw
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2
real(kind=dp)				::	ycent
real(kind=dp)				::	zcent

public subroutine init_gprof_envelope_field(ef, ee0, t_loc, tf, wx, wy, xf0, om0, pw, i1, i2, ycent, zcent)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
real(kind=dp),	intent(in)			::	om0
integer,	intent(in)			::	pw
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2
real(kind=dp)				::	ycent
real(kind=dp)				::	zcent

public subroutine get_2dlaser_gprof_fields_lp(coords, par_lp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_lp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine get_2dlaser_fields_lp(coords, par_lp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_lp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine get_laser_fields_lp(coords, par_lp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_lp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine get_laser_gprof_fields_lp(coords, par_lp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_lp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine get_plane_wave_lp(coords, par_pp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_pp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine get_plane_wave_cp(coords, par_pp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_pp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine get_laser_fields_cp(coords, par_cp, fields)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	coords(4)
real(kind=dp),	intent(in)			::	par_cp(7)
real(kind=dp),	intent(out)			::	fields(6)

public subroutine inflow_lp_fields(ef, ee0, t_loc, tf, wx, wy, xf0, om0, lp, i, j1, j2, k1, k2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
real(kind=dp),	intent(in)			::	om0
integer,	intent(in)			::	lp
integer,	intent(in)			::	i
integer,	intent(in)			::	j1
integer,	intent(in)			::	j2
integer,	intent(in)			::	k1
integer,	intent(in)			::	k2

public subroutine init_lp_inc0_fields(ef, ee0, t_loc, tf, wx, wy, xf0, om0, lp, i1, i2, ycent, zcent)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
real(kind=dp),	intent(in)			::	om0
integer,	intent(in)			::	lp
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2
real(kind=dp)				::	ycent
real(kind=dp)				::	zcent

public subroutine init_lp_fields(ef, ee0, t_loc, tf, wx, wy, xf0, om0, angle, lp_shx, lp, i1, i2, ycent, zcent)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
real(kind=dp),	intent(in)			::	om0
real(kind=dp),	intent(in)			::	angle
real(kind=dp),	intent(in)			::	lp_shx
integer,	intent(in)			::	lp
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2
real(kind=dp)				::	ycent
real(kind=dp)				::	zcent

public subroutine inflow_cp_fields(ef, ee0, t_loc, tf, wx, wy, xf0, cp, i, j1, j2, k1, k2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
integer,	intent(in)			::	cp
integer,	intent(in)			::	i
integer,	intent(in)			::	j1
integer,	intent(in)			::	j2
integer,	intent(in)			::	k1
integer,	intent(in)			::	k2

public subroutine init_cp_fields(ef, ee0, t_loc, tf, wx, wy, xf0, angle, lp_shx, cp, i1, i2)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef(:,:,:,:)
real(kind=dp),	intent(in)			::	ee0
real(kind=dp),	intent(in)			::	t_loc
real(kind=dp),	intent(in)			::	tf
real(kind=dp),	intent(in)			::	wx
real(kind=dp),	intent(in)			::	wy
real(kind=dp),	intent(in)			::	xf0
real(kind=dp),	intent(in)			::	angle
real(kind=dp),	intent(in)			::	lp_shx
integer,	intent(in)			::	cp
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2

public subroutine init_fluid_density_momenta(dmodel, part_in)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	dmodel
real(kind=dp),	intent(in)			::	part_in

public subroutine set_poloidal_ex_fields(ef1, i1, i2, j1, j2, k1, k2, bpoloidal, rpoloidal)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef1(:,:,:,:)
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2
integer,	intent(in)			::	j1
integer,	intent(in)			::	j2
integer,	intent(in)			::	k1
integer,	intent(in)			::	k2
real(kind=dp),	intent(in)			::	bpoloidal
real(kind=dp),	intent(in)			::	rpoloidal

public subroutine set_solenoid_fields(ef1, i1, i2, j1, j2, k1, k2, x0, l_sol, bs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	ef1(:,:,:,:)
integer,	intent(in)			::	i1
integer,	intent(in)			::	i2
integer,	intent(in)			::	j1
integer,	intent(in)			::	j2
integer,	intent(in)			::	k1
integer,	intent(in)			::	k2
real(kind=dp),	intent(in)			::	x0
real(kind=dp),	intent(in)			::	l_sol(3,2)
real(kind=dp),	intent(in)			::	bs(2)