Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
twostream | Module: CANOPYRAD | File: canopyradiation.f |
Author :
Version:
Declaration:
subroutine twostream(lbp, ubp, filter_vegsol, num_vegsol, pcolumn, coszen, id, height_levels, rdfp, rifp, rho, tau, sout)
- pptr :
type(patch), pointer
- lbp :
integer, intent(in)
- ubp :
integer, intent(in)
- filter_vegsol :
integer, intent(in), dimension(ubp-lbp+1)
- num_vegsol :
integer, intent(in)
- pcolumn :
integer, dimension(num_vegsol)
- coszen :
real*8, dimension(num_vegsol)
- id :
real*8, intent(in)
- height_levels :
real*8, intent(in), dimension(:)
- rdfp :
real*8, intent(in), dimension(:)
- rifp :
real*8, intent(in), dimension(:)
- rho :
real*8, intent(in), dimension(lbp:ubp, numrad)
- tau :
real*8, intent(in), dimension(lbp:ubp, numrad)
- sout :
type(pft_pstate_type)
- betads :
real*8, parameter
- Initial Value
= 0.5
- betais :
real*8, parameter
- Initial Value
= 0.5
- omegas :
real*8, dimension(numrad)
- i :
integer
- shr_const_tkfrz :
real*8, parameter
- Initial Value
= 273.15
- tfrz :
real*8, parameter
- Initial Value
= SHR_CONST_TKFRZ
- albgrd :
real*8, dimension(2, numrad)
- albgri :
real*8, dimension(2, numrad)
- ii :
real*8
- albd :
real*8, pointer, dimension(:, :)
- albi :
real*8, pointer, dimension(:, :)
- fabd :
real*8, pointer, dimension(:, :)
- fabi :
real*8, pointer, dimension(:, :)
- ftdd :
real*8, pointer, dimension(:, :)
- ftid :
real*8, pointer, dimension(:, :)
- ftii :
real*8, pointer, dimension(:, :)
- frid :
real*8, pointer, dimension(:, :)
- frii :
real*8, pointer, dimension(:, :)
- gdir :
real*8, pointer, dimension(:)
- omega :
real*8, pointer, dimension(:, :)
- isha :
real*8, pointer, dimension(:, :)
- isun :
real*8, pointer, dimension(:, :)
- fp :
integer
- p :
integer
- c :
integer
- ib :
integer
- cosz :
real*8
- asu :
real*8
- chil :
real*8, dimension(lbp:ubp)
- twostext :
real*8, dimension(lbp:ubp)
- avmu :
real*8, dimension(lbp:ubp)
- omegal :
real*8
- betai :
real*8
- betail :
real*8
- betad :
real*8
- betadl :
real*8
- tmp0 :
real*8
- tmp1 :
real*8
- tmp2 :
real*8
- tmp3 :
real*8
- tmp4 :
real*8
- tmp5 :
real*8
- tmp6 :
real*8
- tmp7 :
real*8
- tmp8 :
real*8
- tmp9 :
real*8
- p1 :
real*8
- p2 :
real*8
- p3 :
real*8
- p4 :
real*8
- s1 :
real*8
- s2 :
real*8
- u1 :
real*8
- u2 :
real*8
- u3 :
real*8
- b :
real*8
- c1 :
real*8
- d :
real*8
- d1 :
real*8
- d2 :
real*8
- f :
real*8
- h :
real*8
- h1 :
real*8
- h2 :
real*8
- h3 :
real*8
- h4 :
real*8
- h5 :
real*8
- h6 :
real*8
- h7 :
real*8
- h8 :
real*8
- h9 :
real*8
- h10 :
real*8
- phi1 :
real*8
- phi2 :
real*8
- sigma :
real*8
- temp0 :
real*8, dimension(lbp:ubp)
- temp1 :
real*8
- temp2 :
real*8, dimension(lbp:ubp)
- t1 :
real*8
- evai :
real*8, pointer, dimension(:)
- delta_z :
real*8
- vai :
real*8, dimension(lbp:ubp)
- n_height_level :
integer
- ilevel :
integer