ionization Module

  1. ionization.f90
  2. ionization

we need the unperturbed msis temperatures to apply the simple chapman theory used by this module


Uses

  • module~~ionization~~UsesGraph module~ionization ionization module~phys_consts phys_consts module~ionization->module~phys_consts module~mesh mesh module~ionization->module~mesh module~mpimod mpimod module~ionization->module~mpimod module~grid grid module~ionization->module~grid module~timeutils timeutils module~ionization->module~timeutils module~ionize_fang ionize_fang module~ionization->module~ionize_fang module~neutral neutral module~ionization->module~neutral iso_fortran_env iso_fortran_env module~phys_consts->iso_fortran_env module~mesh->module~phys_consts module~mpimod->module~phys_consts module~mpimod->iso_fortran_env mpi mpi module~mpimod->mpi module~grid->module~phys_consts module~grid->module~mesh module~grid->module~mpimod module~reader reader module~grid->module~reader module~grid->iso_fortran_env module~timeutils->module~phys_consts module~timeutils->iso_fortran_env module~ionize_fang->module~phys_consts module~ionize_fang->iso_fortran_env module~neutral->module~phys_consts module~neutral->module~mesh module~neutral->module~mpimod module~neutral->module~grid module~neutral->module~timeutils ieee_arithmetic ieee_arithmetic module~neutral->ieee_arithmetic module~neutral->module~reader module~neutral->iso_fortran_env module~interpolation interpolation module~neutral->module~interpolation module~reader->module~phys_consts module~reader->iso_fortran_env module~interpolation->module~phys_consts

Used by

  • module~~ionization~~UsedByGraph module~ionization ionization module~glow_mod glow_mod module~glow_mod->module~ionization module~multifluid multifluid module~multifluid->module~ionization module~glow_dummy glow_dummy module~glow_dummy->module~ionization program~gemini3d Gemini3D program~gemini3d->module~multifluid

Contents

Interfaces

Functions

Subroutines


Interfaces

interface

  • private module subroutine glow_run(W0, PhiWmWm2, date_doy, UTsec, xf107, xf107a, xlat, xlon, alt, nn, Tn, ns, Ts, ionrate, eheating, iver)

    Arguments

    Type IntentOptional AttributesName
    real(kind=wp), intent(in), dimension(:):: W0
    real(kind=wp), intent(in), dimension(:):: PhiWmWm2
    integer, intent(in) :: date_doy
    real(kind=wp), intent(in) :: UTsec
    real(kind=wp), intent(in) :: xf107
    real(kind=wp), intent(in) :: xf107a
    real(kind=wp), intent(in) :: xlat
    real(kind=wp), intent(in) :: xlon
    real(kind=wp), intent(in), dimension(:):: alt
    real(kind=wp), intent(in), dimension(:,:):: nn
    real(kind=wp), intent(in), dimension(:):: Tn
    real(kind=wp), intent(in), dimension(:,:):: ns
    real(kind=wp), intent(in), dimension(:,:):: Ts
    real(kind=wp), intent(out), dimension(:,:):: ionrate
    real(kind=wp), intent(out), dimension(:):: eheating
    real(kind=wp), intent(out), dimension(:):: iver

Functions

public function photoionization(x, nn, chi, f107, f107a)

Arguments

Type IntentOptional AttributesName
type(curvmesh), intent(in) :: x
real(kind=wp), intent(in), dimension(:,:,:,:):: nn
real(kind=wp), intent(in), dimension(:,:,:):: chi
real(kind=wp), intent(in) :: f107
real(kind=wp), intent(in) :: f107a

Return Value real(kind=wp), dimension(size(nn,1),size(nn,2),size(nn,3),lsp-1)

public pure function ionrate_fang08(W0, PhiWmWm2, alt, nn, Tn)

mass densities are [kg m^-3] as per neutral/neutral.f90 "call meters(.true.)" for MSIS. mean mass per particle [kg]

Read more…

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(:,:):: W0
real(kind=wp), intent(in), dimension(:,:):: PhiWmWm2
real(kind=wp), intent(in), dimension(:,:,:):: alt
real(kind=wp), intent(in), dimension(:,:,:,:):: nn
real(kind=wp), intent(in), dimension(:,:,:):: Tn

Return Value real(kind=wp), dimension(1:size(nn,1),1:size(nn,2),1:size(nn,3),lsp-1)

public pure function eheating(nn, Tn, ionrate, ns)

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(:,:,:,:):: nn
real(kind=wp), intent(in), dimension(:,:,:):: Tn
real(kind=wp), intent(in), dimension(1:size(nn,1),1:size(nn,2),1:size(nn,3),lsp-1):: ionrate
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: ns

Return Value real(kind=wp), dimension(1:size(nn,1),1:size(nn,2),1:size(nn,3))


Subroutines

public subroutine ionrate_glow98(W0, PhiWmWm2, ymd, UTsec, f107, f107a, glat, glon, alt, nn, Tn, ns, Ts, eheating, iver, ionrate)

COMPUTE IONIZATION RATES USING GLOW MODEL RUN AT EACH X,Y METHOD.

Read more…

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in), dimension(:,:,:):: W0
real(kind=wp), intent(in), dimension(:,:,:):: PhiWmWm2
integer, intent(in), dimension(3):: ymd
real(kind=wp), intent(in) :: UTsec
real(kind=wp), intent(in) :: f107
real(kind=wp), intent(in) :: f107a
real(kind=wp), intent(in), dimension(:,:):: glat
real(kind=wp), intent(in), dimension(:,:):: glon
real(kind=wp), intent(in), dimension(:,:,:):: alt
real(kind=wp), intent(in), dimension(:,:,:,:):: nn
real(kind=wp), intent(in), dimension(:,:,:):: Tn
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: ns
real(kind=wp), intent(in), dimension(-1:,-1:,-1:,:):: Ts
real(kind=wp), intent(out), dimension(1:size(nn,1),1:size(nn,2),1:size(nn,3)):: eheating
real(kind=wp), intent(out), dimension(1:size(nn,2),1:size(nn,3),lwave):: iver
real(kind=wp), intent(out), dimension(1:size(nn,1),1:size(nn,2),1:size(nn,3),lsp-1):: ionrate