Functions/Subroutines
subroutine, public	efield_init (efield_lflux_file, efield_hflux_file, efiel

subroutine, public	get_efield

subroutine	globalelpotential

subroutine	ff (ph, mt, f)

subroutine	pnm (ct, p)

subroutine	prep_pnm

subroutine	index_quiet

subroutine	read_acoef (efield_lflux_file, efield_hflux_file)

subroutine	adj_s_a

subroutine	constants

subroutine	prep_fk

subroutine	set_fkflfs (fk, fl, fs)

subroutine	efield_mid (mlat, mlon, pot)

subroutine	prep_weimer

subroutine	pot_latsmo (pot, idlat)

subroutine	pot_latsmo2 (pot, idlat)

subroutine	pot_lonsmo (pot, idlon)

subroutine	highlat_getbnd (ihlat_bnd)

subroutine	bnd_sinus (ihlat_bnd, itrans_width)

subroutine	highlat_adjust (pot_highlats, pot_highlat, pot_midlat,

subroutine	interp_poten (pot_highlats, pot_highlat, pot_midlat, ihlat_bnd, itrans_width)

subroutine	derivpotential

Variables
integer	iday

integer	iyear

integer	iday_m

integer	imo

real(r8)	ut

real(r8)	f107d

real(r8)	by

real(r8)	bz

integer, parameter, public	nmlon = 180

integer, parameter, public	nmlat = 90

integer, parameter	nmlath = nmlat/2

integer, parameter	nmlonh = nmlon/2

integer, parameter	nmlonp1 = nmlon+1

integer, parameter	nmlatp1 = nmlat+1

real(r8), dimension(0:nmlat), public	ylatm

real(r8), dimension(0:nmlon), public	ylonm

real(r8), public	dlonm

real(r8), public	dlatm

real(r8), dimension(0:nmlon, 0:nmlat), public	potent

real(r8), dimension(0:nmlon, 0:nmlat), public	ed1

real(r8), dimension(0:nmlon, 0:nmlat), public	ed2

real(r8)	date

real(r8)	day

logical, parameter	iutav =.false.

real(r8), parameter	v_sw = 400._r8

real(r8), parameter	bnd_wei = 44._r8

integer	nmlat_wei

integer, parameter	iseasav = 0

real(r8), parameter	r_e = 6.371e6_r8

real(r8), parameter	h_r = 130.0e3_r8

real(r8), parameter	dy2yr = 365.24_r8

real(r8), parameter	dy2mo = 30.6001_r8

real(r8)	rtd

real(r8)	dtr

real(r8)	sqr2

real(r8)	hr2rd

real(r8)	dy2rd

real(r8)	deg2mlt

real(r8)	mlt2deg

real(r8), dimension(0:nmlat)	sinim_mag

integer	jmin

integer	jmax

integer, parameter	nm = 19

integer, parameter	mm = 18

integer, parameter	nmp = nm + 1

integer, parameter	mmp = mm + 1

real(r8), dimension(0:nm, 0:mm)	r

real(r8), dimension(0:mm)	pmopmmo

integer, parameter	ni = 1091

integer	imax

integer, dimension(0:ni)	kf

integer, dimension(0:ni)	lf

integer, dimension(0:ni)	mf

integer, dimension(0:ni)	nf

integer, dimension(0:ni)	jf

real(r8), dimension(1:3, 0:2)	ft

real(r8), dimension(0:ni)	a_klnm

real(r8), dimension(0:ni)	a_lf

real(r8), dimension(0:ni)	a_hf

real(r8), parameter	ef_max = 0.015_r8

real(r8), parameter	lat_sft = 54._r8

integer	ilat_sft

integer, parameter	nmax_sin = 2

logical, parameter	debug =.false.

Function/Subroutine Documentation

◆ adj_s_a()

subroutine efield::adj_s_a ( )

Here is the caller graph for this function:

◆ bnd_sinus()

subroutine efield::bnd_sinus	(	integer, dimension(0:nmlon), intent(inout)	ihlat_bnd,
		integer, dimension(0:nmlon), intent(out)	itrans_width
	)

private

Here is the call graph for this function:

Here is the caller graph for this function:

◆ constants()

subroutine efield::constants ( )

private

Here is the caller graph for this function:

◆ derivpotential()

subroutine efield::derivpotential ( )

private

Here is the caller graph for this function:

◆ efield_init()

subroutine, public efield::efield_init	(	character(len=*), intent(in)	efield_lflux_file,
		character(len=*), intent(in)	efield_hflux_file,
			efiel
	)

Here is the call graph for this function:

◆ efield_mid()

subroutine efield::efield_mid	(	real(r8), intent(in)	mlat,
		real(r8), intent(in)	mlon,
		real(r8), intent(out)	pot
	)

private

Here is the call graph for this function:

Here is the caller graph for this function:

◆ ff()

subroutine efield::ff	(	real(r8), intent(in)	ph,
		integer, intent(in)	mt,
		real(r8), dimension(-mt:mt), intent(out)	f
	)

private

Here is the caller graph for this function:

◆ get_efield()

subroutine, public efield::get_efield ( )

Here is the call graph for this function:

Here is the caller graph for this function:

◆ globalelpotential()

subroutine efield::globalelpotential ( )

Here is the call graph for this function:

Here is the caller graph for this function:

◆ highlat_adjust()

subroutine efield::highlat_adjust	(	real(r8), dimension(0:nmlon,0:nmlat), intent(inout)	pot_highlats,
		real(r8), dimension(0:nmlon,0:nmlat), intent(inout)	pot_highlat,
		real(r8), dimension(0:nmlon,0:nmlat), intent(in)	pot_midlat
	)

Here is the caller graph for this function:

◆ highlat_getbnd()

subroutine efield::highlat_getbnd ( integer, dimension(0:nmlon), intent(out) ihlat_bnd )

private

Here is the call graph for this function:

Here is the caller graph for this function:

◆ index_quiet()

subroutine efield::index_quiet ( )

private

Here is the caller graph for this function:

◆ interp_poten()

subroutine efield::interp_poten	(	real(r8), dimension(0:nmlon,0:nmlat), intent(in)	pot_highlats,
		real(r8), dimension(0:nmlon,0:nmlat), intent(in)	pot_highlat,
		real(r8), dimension(0:nmlon,0:nmlat), intent(in)	pot_midlat,
		integer, dimension(0:nmlon), intent(in)	ihlat_bnd,
		integer, dimension(0:nmlon), intent(in)	itrans_width
	)

private

Here is the caller graph for this function:

◆ pnm()

subroutine efield::pnm	(	real(r8), intent(inout)	ct,
		real(r8), dimension(0:nm,0:mm), intent(inout)	p
	)

private

Here is the caller graph for this function:

◆ pot_latsmo()

subroutine efield::pot_latsmo	(	real(r8), dimension(0:nmlon,0:nmlat), intent(inout)	pot,
		integer, intent(in)	idlat
	)

private

Here is the caller graph for this function:

◆ pot_latsmo2()

subroutine efield::pot_latsmo2	(	real(r8), dimension(0:nmlon,0:nmlat), intent(inout)	pot,
		integer, intent(in)	idlat
	)

private

Here is the caller graph for this function:

◆ pot_lonsmo()

subroutine efield::pot_lonsmo	(	real(r8), dimension(0:nmlon,0:nmlat), intent(inout)	pot,
		integer, intent(in)	idlon
	)

private

Here is the caller graph for this function:

◆ prep_fk()

subroutine efield::prep_fk ( )

private

Here is the caller graph for this function:

◆ prep_pnm()

subroutine efield::prep_pnm ( )

private

Here is the caller graph for this function:

◆ prep_weimer()

subroutine efield::prep_weimer ( )

private

Here is the call graph for this function:

Here is the caller graph for this function:

◆ read_acoef()

subroutine efield::read_acoef	(	character(len=*), intent(in)	efield_lflux_file,
		character(len=*), intent(in)	efield_hflux_file
	)

private

Here is the call graph for this function:

Here is the caller graph for this function:

◆ set_fkflfs()

subroutine efield::set_fkflfs	(	real(r8), dimension(0:2), intent(out)	fk,
		real(r8), dimension(-2:2), intent(out)	fl,
		real(r8), dimension(2), intent(out)	fs
	)

private

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ a_hf

real(r8), dimension(0:ni) efield::a_hf

private

◆ a_klnm

real(r8), dimension(0:ni) efield::a_klnm

private

◆ a_lf

real(r8), dimension(0:ni) efield::a_lf

private

◆ bnd_wei

real(r8), parameter efield::bnd_wei = 44._r8

private

◆ by

real(r8) efield::by

private

◆ bz

real(r8) efield::bz

private

◆ date

real(r8) efield::date

private

◆ day

real(r8) efield::day

private

◆ debug

logical, parameter efield::debug =.false.

private

◆ deg2mlt

real(r8) efield::deg2mlt

private

◆ dlatm

real(r8), public efield::dlatm

◆ dlonm

real(r8), public efield::dlonm

◆ dtr

real(r8) efield::dtr

private

◆ dy2mo

real(r8), parameter efield::dy2mo = 30.6001_r8

private

◆ dy2rd

real(r8) efield::dy2rd

private

◆ dy2yr

real(r8), parameter efield::dy2yr = 365.24_r8

private

◆ ed1

real(r8), dimension(0:nmlon,0:nmlat), public efield::ed1

◆ ed2

real(r8), dimension(0:nmlon,0:nmlat), public efield::ed2

◆ ef_max

real(r8), parameter efield::ef_max = 0.015_r8

private

◆ f107d

real(r8) efield::f107d

private

◆ ft

real(r8), dimension(1:3,0:2) efield::ft

private

◆ h_r

real(r8), parameter efield::h_r = 130.0e3_r8

private

◆ hr2rd

real(r8) efield::hr2rd

private

◆ iday

integer efield::iday

private

◆ iday_m

integer efield::iday_m

private

◆ ilat_sft

integer efield::ilat_sft

private

◆ imax

integer efield::imax

private

◆ imo

integer efield::imo

private

◆ iseasav

integer, parameter efield::iseasav = 0

private

◆ iutav

logical, parameter efield::iutav =.false.

private

◆ iyear

integer efield::iyear

private

◆ jf

integer, dimension(0:ni) efield::jf

private

◆ jmax

integer efield::jmax

private

◆ jmin

integer efield::jmin

private

◆ kf

integer, dimension(0:ni) efield::kf

private

◆ lat_sft

real(r8), parameter efield::lat_sft = 54._r8

private

◆ lf

integer, dimension(0:ni) efield::lf

private

◆ mf

integer, dimension(0:ni) efield::mf

private

◆ mlt2deg

real(r8) efield::mlt2deg

private

◆ mm

integer, parameter efield::mm = 18

private

◆ mmp

integer, parameter efield::mmp = mm + 1

private

◆ nf

integer, dimension(0:ni) efield::nf

private

◆ ni

integer, parameter efield::ni = 1091

private

◆ nm

integer, parameter efield::nm = 19

private

◆ nmax_sin

integer, parameter efield::nmax_sin = 2

private

◆ nmlat

integer, parameter, public efield::nmlat = 90

◆ nmlat_wei

integer efield::nmlat_wei

private

◆ nmlath

integer, parameter efield::nmlath = nmlat/2

private

◆ nmlatp1

integer, parameter efield::nmlatp1 = nmlat+1

private

◆ nmlon

integer, parameter, public efield::nmlon = 180

◆ nmlonh

integer, parameter efield::nmlonh = nmlon/2

private

◆ nmlonp1

integer, parameter efield::nmlonp1 = nmlon+1

private

◆ nmp

integer, parameter efield::nmp = nm + 1

private

◆ pmopmmo

real(r8), dimension(0:mm) efield::pmopmmo

private

◆ potent

real(r8), dimension(0:nmlon,0:nmlat), public efield::potent

◆ r

real(r8), dimension(0:nm,0:mm) efield::r

private

◆ r_e

real(r8), parameter efield::r_e = 6.371e6_r8

private

◆ rtd

real(r8) efield::rtd

private

◆ sinim_mag

real(r8), dimension(0:nmlat) efield::sinim_mag

private

◆ sqr2

real(r8) efield::sqr2

private

◆ ut

real(r8) efield::ut

private

◆ v_sw

real(r8), parameter efield::v_sw = 400._r8

private

◆ ylatm

real(r8), dimension(0:nmlat), public efield::ylatm

◆ ylonm

real(r8), dimension(0:nmlon), public efield::ylonm

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ adj_s_a()

◆ bnd_sinus()

◆ constants()

◆ derivpotential()

◆ efield_init()

◆ efield_mid()

◆ ff()

◆ get_efield()

◆ globalelpotential()

◆ highlat_adjust()

◆ highlat_getbnd()

◆ index_quiet()

◆ interp_poten()

◆ pnm()

◆ pot_latsmo()

◆ pot_latsmo2()

◆ pot_lonsmo()

◆ prep_fk()

◆ prep_pnm()

◆ prep_weimer()

◆ read_acoef()

◆ set_fkflfs()

Variable Documentation

◆ a_hf

◆ a_klnm

◆ a_lf

◆ bnd_wei

◆ by

◆ bz

◆ date

◆ day

◆ debug

◆ deg2mlt

◆ dlatm

◆ dlonm

◆ dtr

◆ dy2mo

◆ dy2rd

◆ dy2yr

◆ ed1

◆ ed2

◆ ef_max

◆ f107d

◆ ft

◆ h_r

◆ hr2rd

◆ iday

◆ iday_m

◆ ilat_sft

◆ imax

◆ imo

◆ iseasav

◆ iutav

◆ iyear

◆ jf

◆ jmax

◆ jmin

◆ kf

◆ lat_sft

◆ lf

◆ mf

◆ mlt2deg

◆ mm

◆ mmp

◆ nf

◆ ni

◆ nm

◆ nmax_sin

◆ nmlat

◆ nmlat_wei

◆ nmlath

◆ nmlatp1

◆ nmlon

◆ nmlonh

◆ nmlonp1

◆ nmp

◆ pmopmmo