Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=*), | private, | parameter | :: | modName | = | 'Area_SRad_BLE_Mod' |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=512), | public | :: | OutFile | ||||
logical, | public | :: | PRNBat | = | .false. | ||
real(kind=krs), | public | :: | adfpmin | ||||
real(kind=krs), | public | :: | anxr | ||||
real(kind=krs), | public | :: | anyr | ||||
real(kind=krs), | public | :: | difr0 | ||||
real(kind=krs), | public | :: | difr1 | ||||
integer(kind=kis), | public | :: | ntgt | ||||
real(kind=krd), | public | :: | MeanTiming | ||||
integer(kind=kis), | public | :: | npx | ||||
integer(kind=kis), | public | :: | npy | ||||
integer(kind=kis), | public | :: | npr | ||||
integer(kind=kis), | public | :: | npgrd | ||||
real(kind=krs), | public | :: | fpx | ||||
real(kind=krs), | public | :: | fpy | ||||
real(kind=krs), | public | :: | dpx | ||||
real(kind=krs), | public | :: | dpy | ||||
real(kind=krs), | public, | allocatable | :: | PZps(:) | |||
real(kind=krs), | public, | allocatable | :: | PVec(:,:) | |||
real(kind=krs), | public, | allocatable | :: | Ppxy(:,:) | |||
integer(kind=kis), | public, | allocatable | :: | PXIdLUT(:) | |||
integer(kind=kis), | public, | allocatable | :: | PYIdLUT(:) | |||
integer(kind=kis), | public, | allocatable | :: | PZId(:) | |||
integer(kind=kis), | public | :: | IdPG(2) | ||||
integer(kind=kis), | public | :: | IdPR | ||||
real(kind=krd), | public, | allocatable | :: | PRad(:,:,:,:) | |||
real(kind=krd), | public, | allocatable | :: | MeanPRad(:,:,:,:) | |||
real(kind=krd), | public, | allocatable | :: | RMSEPRad(:,:,:,:) | |||
real(kind=krd), | public, | allocatable | :: | MeanPRadNth(:,:,:,:,:) | |||
real(kind=krd), | public, | allocatable | :: | RMSEPRadNth(:,:,:,:,:) |
procedure, public :: init_Rad_LE => init_Area_SRad_BLE | |
procedure, public :: free_Rad_LE => free_Area_SRad_BLE | |
procedure, public :: init_ncfile | |
procedure, public :: estm_RadPsi => estm_Area_SRadPsi | |
procedure, public :: sum_RadPsi_OneBatch => sum_Area_SRad_BLE_RadPsi_OneBatch | |
procedure, public :: sum_RadPsi_AllBatch => sum_Area_SRad_BLE_RadPsi_AllBatch | |
procedure, public :: reset_RadPsi_OneBatch => reset_Area_SRad_BLE_PadPsi_OneBatch | |
procedure, public :: reset_RadPsi_AllBatch => reset_Area_SRad_BLE_PadPsi_AllBatch | |
procedure, public :: write_Rad_LE_result => write_Area_SRad_BLE_result | |
procedure, public :: write_Rad_LE_census => write_Area_SRad_BLE_census | |
procedure, public :: birth_RadPho | |
procedure, public :: set_HGrdId | |
procedure, public :: set_DirHgtId | |
procedure, public :: get_HGrdNum | |
procedure, public :: get_DirHgtNum | |
procedure, public :: get_TgtDir |
initialize area-averaged radiance estimators for scalar radiative transfer simulation with backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
type(MSCART_Problem_T), | intent(in) | :: | prob | |||
class(GeomGrid_T), | intent(in) | :: | GeoGrd | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
character(len=*), | intent(in) | :: | OutFile | |||
type(erro_t), | intent(inout) | :: | err |
free memory of area-averaged radiance estimators for scalar radiative transfer simulation with backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
type(erro_t), | intent(inout) | :: | err |
initialize output results of area-averaged radiance estimators for scalar radiative transfer simulation with backward Monte Carlo algorithm in NETCDF format
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
class(GeomGrid_T), | intent(in) | :: | GeoGrd | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
integer(kind=kis), | intent(in) | :: | nbat | |||
type(erro_t), | intent(inout) | :: | err |
write area-averaged radiance results of each batch simulation of scalar radiative transfer using backward Monte Carlo algorithm in netcdf format
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
integer(kind=kis), | intent(in) | :: | ibat | |||
real(kind=krs), | intent(in) | :: | nPho | |||
real(kind=krs), | intent(in) | :: | Timing | |||
type(erro_t), | intent(inout) | :: | err |
write area-averaged radiance results of all batch simulations of scalar radiative transfer using backward Monte Carlo algorithm in netcdf format
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
integer(kind=kis), | intent(in) | :: | nbat | |||
real(kind=krs), | intent(in) | :: | nph | |||
type(erro_t), | intent(inout) | :: | err |
get total viewing horizontal grid number nx * ny
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this |
get total area-averaged radiance estimator number n_PRad
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this |
estimate area-averaged radiance contributions for scalar radiative transfer simulation using backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
integer(kind=kis), | intent(in) | :: | itgt | |||
type(photon_T), | intent(in) | :: | photon | |||
class(GeomGrid_T), | intent(in) | :: | GeoGrd | |||
class(AtmOPT_T), | intent(in) | :: | AtmOPT | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
integer(kind=kis), | intent(in) | :: | istat | |||
class(PhsMatTab_T), | intent(in), | optional | :: | PFunTab | ||
real(kind=krs), | intent(in), | optional | :: | ftdcf | ||
class(SfcOPT_T), | intent(in), | optional | :: | SfcOPT | ||
real(kind=krs), | intent(in), | optional | :: | pac(:) |
normalize and accumulate area-averaged radiance of each batch simulation of scalar radiative transfer using backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
real(kind=krs), | intent(in) | :: | nPho | |||
real(kind=krs), | intent(in) | :: | Timing |
accumulate area-averaged radiance of all batch simulations of scalar radiative transfer using backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
integer(kind=kis), | intent(in) | :: | nbat | |||
real(kind=krs), | intent(in) | :: | nph |
reset all variables of area-averaged radiance estimators zeros for scalar radiative transfer simulation with backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this |
reset all variables of area-averaged radiance estimators zeros for scalar radiative transfer simulation with backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this |
give birth of a new photon from area-averaged radiance estimators for scalar radiative transfer simulation with backward Monte Carlo algorithm
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
type(photon_T), | intent(inout) | :: | photon |
set a viewing horizontal grid index [ix,iy]
for current area-averaged radiance estimator
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
integer(kind=kis), | intent(in) | :: | igrd |
set current are-averaged radiance estimator index i_PRad
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(inout) | :: | this | |||
integer(kind=kis), | intent(in) | :: | IdPR |
get source direction of current area-averaged radiance estimator for backward Monte Carlo simulation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Area_SRad_BLE_T), | intent(in) | :: | this | |||
class(SrcOPT_T), | intent(in) | :: | SrcOPT | |||
type(photon_T), | intent(inout) | :: | photon |