DeltaBeta_Vector_Mod Module
- 2015-05-18
-
- 131 statements
- Source File
Uses
-
- DeltaGeom_Vector_Mod
- Cons_Pack
- Math_Pack
- Kind_Pack
- Rand_Pack
-
Used by
Variables
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=krs), | private, | parameter | :: | qsc | = | 0.5_krs*pi_Value | |
| real(kind=krs), | private, | parameter | :: | fac | = | 0.5_krs |
Derived Types
type, public, extends(DeltaGeom_Vector_T) :: DeltaBeta_Vector_T
Beta truncation approximation of phase matrices for vector radiative transfer simulation
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=krs), | public | :: | fdc | ||||
| real(kind=krs), | public | :: | ftt | ||||
| real(kind=krs), | public | :: | qtf(4) | ||||
| real(kind=krs), | public | :: | gtc | ||||
| real(kind=krs), | public | :: | qscl(4) | ||||
| real(kind=krs), | public | :: | alph(4) | ||||
| real(kind=krs), | public | :: | beta(4) | ||||
| real(kind=krs), | public | :: | gamm(4) | ||||
| real(kind=krs), | public | :: | fu1 | ||||
| real(kind=krs), | public | :: | d(5) |
Type-Bound Procedures
| procedure , public , non_overridable :: setup_GeomParm Subroutine | |
| procedure , public , non_overridable :: calc_GeomFdmax Subroutine | |
| procedure , public :: pick_GeomAng => pick_BetaAng Subroutine | |
| procedure , public :: calc_GeomPhs => calc_BetaPhs Function | |
| procedure , public :: init_GeomParm => init_BetaParm Subroutine | |
| procedure , public :: make_GeomParm => make_BetaParm Subroutine |
Functions
private function calc_BetaPhs(DeltaGeom, q, istokes) result(phs)
calculate angular distribution function of Beta truncated phase matrices
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(DeltaBeta_Vector_T), | intent(in) | :: | DeltaGeom | |||
| real(kind=krs), | intent(in) | :: | q | |||
| integer(kind=kis), | intent(in) | :: | istokes |
Return Value real(kind=krs)
Subroutines
private subroutine pick_BetaAng(DeltaGeom, q, sinq, cosq)
pick scattering angle from Beta truncated phase matrices randomly using BB* algorithm and accept-reject methods.
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(DeltaBeta_Vector_T), | intent(in) | :: | DeltaGeom | |||
| real(kind=krs), | intent(out) | :: | q | |||
| real(kind=krs), | intent(out) | :: | sinq | |||
| real(kind=krs), | intent(out) | :: | cosq |
private subroutine init_BetaParm(geom, g1)
initialize necessary parameters of Beta truncated phase matrices for non-truncation case
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(DeltaBeta_Vector_T), | intent(out) | :: | geom | |||
| real(kind=krs), | intent(in) | :: | g1 |
private subroutine make_BetaParm(geom, g1, g0f, g1f, angf, cosf, phsf, dphf, fdel, is_save, istokes)
calculate truncation parameters of Beta truncated phase matrices
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(DeltaBeta_Vector_T), | intent(inout) | :: | geom | |||
| real(kind=krs), | intent(in) | :: | g1 | |||
| real(kind=krs), | intent(in) | :: | g0f | |||
| real(kind=krs), | intent(in) | :: | g1f | |||
| real(kind=krs), | intent(in) | :: | angf | |||
| real(kind=krs), | intent(in) | :: | cosf | |||
| real(kind=krs), | intent(in) | :: | phsf | |||
| real(kind=krs), | intent(in) | :: | dphf | |||
| real(kind=krs), | intent(out) | :: | fdel | |||
| logical, | intent(in) | :: | is_save | |||
| integer(kind=kis), | intent(in) | :: | istokes |