Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
CANOPYRAD | File: canopyradiation.f |
Author : W.Ni-Meister
Version:
Subroutines:
- calc_canopy_rad
- Get incident light profiles in canopy and return in pptr%crad
- check_inputs
- convolute
- geo_to_gin
- note in calculating clumping indices, dbh is not needed
- get_analytical_clump
- calculate clumping index from canopy geometry
- get_canopy_rad
- get_convolute_height_level
- get_foliage_profile
- get_height_level
- get_k
- G function comes from Sellers, 1985
- get_k2
- get_K2 here is actually G for single or multiple layers
- get_patchalbedo
- !* Return albedo for patch.
- gort_clumping
- variable ppt%crad
- height_function1
- from Ni-Meister et al., 2001
- height_function2
- height_function3
- height_function4
- interpolate_profile
- layering
- cohort heights, and save to variable ppt%crad
- recalc_radpar
- changes. At patch level.
- recalc_radpar_cell
- changes. At patch level.
- recalc_radpar_old
- changes. At entcell level.
- run_convolute_gort
- run_single_gort
- t
- twostream
Global Variables:
- patch_print : used from patches
- k :
real*8
- ang_dif :
real*8, parameter
- Initial Value
= 1.0071
- numrad :
integer, parameter
- Initial Value
= 2
- lbp :
integer, parameter
- Initial Value
= 1
- ubp :
integer, parameter
- Initial Value
= 1
- num_vegsol :
integer, parameter
- Initial Value
= ubp - lbp + 1
- num_pft :
integer, parameter
- Initial Value
= 16