subroutine canopy |
( |
integer, intent(in) |
KI, |
|
|
integer, intent(in) |
KLVL, |
|
|
real, dimension(ki,klvl), intent(in) |
PZF, |
|
|
real, dimension(ki,klvl), intent(in) |
PDZ, |
|
|
real, dimension(ki), intent(in) |
PHEIGHT, |
|
|
real, dimension(ki,klvl), intent(in) |
PDENSITY, |
|
|
real, dimension(ki,klvl), intent(in) |
PCDRAG, |
|
|
real, dimension(ki,klvl), intent(in) |
PU, |
|
|
real, dimension(ki,klvl), intent(in) |
PAIRVOL, |
|
|
real, dimension(ki,klvl), intent(out) |
PSV, |
|
|
real, dimension(ki,klvl), intent(out) |
PFORC, |
|
|
real, dimension(ki,klvl), intent(out) |
PFORC_U, |
|
|
real, dimension(ki,klvl), intent(out) |
PDFORC_UDU, |
|
|
real, dimension(ki,klvl), intent(out) |
PFORC_E, |
|
|
real, dimension(ki,klvl), intent(out) |
PDFORC_EDE |
|
) |
| |