tem_miescatter_type Derived Type

type, private :: tem_miescatter_type

Parameters of the solution for Mie-Scatter at dielectric cylinder (infinite height in z direction)


Inherited by

type~~tem_miescatter_type~~InheritedByGraph type~tem_miescatter_type tem_miescatter_type type~tem_miescatter_field_type tem_miescatter_field_type type~tem_miescatter_field_type->type~tem_miescatter_type miescatter

Components

Type Visibility Attributes Name Initial
real(kind=rk), public :: center(2) = [0.0_rk, 0.0_rk]

The center of the cylinder (in the x-y plane)
real(kind=rk), public :: radius = 1.0_rk

The radius of the cylinder
real(kind=rk), public :: permeability_background = 1.0_rk

Permeability (mu) of the background.
real(kind=rk), public :: permitivity_background = 1.0_rk

Permitivity (epsilon) of the background.
real(kind=rk), public :: permeability_cylinder = 1.0_rk

Permeability (mu) of the cylinder.
real(kind=rk), public :: permitivity_cylinder = 1.0_rk

Permitivity (epsilon) of the cylinder.
real(kind=rk), public :: wavenumber_background

Wave number for the background
real(kind=rk), public :: wavenumber_cylinder

Wave number for the cylinder
real(kind=rk), public :: omega = 2.0_rk*PI*1.0_rk

Angular frequency ( = 2 * pi * f , where f is the original frequency in Hertz)

Source Code

  type tem_miescatter_type
    !> The center of the cylinder (in the x-y plane)
    real(kind=rk) :: center(2) = [ 0.0_rk, 0.0_rk ]
    !> The radius of the cylinder
    real(kind=rk) :: radius = 1.0_rk

    !> Permeability (mu) of the background.
    real(kind=rk) :: permeability_background = 1.0_rk

    !> Permitivity (epsilon) of the background.
    real(kind=rk) :: permitivity_background = 1.0_rk

    !> Permeability (mu) of the cylinder.
    real(kind=rk) :: permeability_cylinder = 1.0_rk

    !> Permitivity (epsilon) of the cylinder.
    real(kind=rk) :: permitivity_cylinder = 1.0_rk

    !> Wave number for the background
    real(kind=rk) :: wavenumber_background

    !> Wave number for the cylinder
    real(kind=rk) :: wavenumber_cylinder

    !> Angular frequency ( = 2 * pi * f , where
    !! f is the original frequency in Hertz)
    real(kind=rk) :: omega = 2.0_rk * PI * 1.0_rk

  end type tem_miescatter_type