Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:15 EDT 2024 |
get_foliage_profile | Module: CANOPYRAD | File: canopyradiation.f |
Author :
Version:
Declaration:
subroutine get_foliage_profile(gin, height_levels, fp, vz)
- gin :
type(gort_input)
- height_levels :
real*8, dimension(:), intent(in)
- fp :
real*8, dimension(:), intent(inout)
- vz :
real*8, dimension(:), intent(inout)
- h1 :
real*8
- h2 :
real*8
- vert_radius :
real*8
- tmp :
real*8
- tmpv :
real*8
- z :
real*8
- iz :
real*8
- jh11 :
real*8
- jh12 :
real*8
- jh21 :
real*8
- jh22 :
real*8
- hdif :
real*8
- maxv :
real*8
- n_levels :
integer
- i :
integer
- xx :
real*8, dimension(:), allocatable