subroutine canopy_evol_neutral |
( |
integer, intent(in) |
KI, |
|
|
integer, intent(in) |
KLVL, |
|
|
real, intent(in) |
PTSTEP, |
|
|
integer, intent(in) |
KIMPL, |
|
|
real, dimension(ki), intent(in) |
PWIND, |
|
|
real, dimension(ki), intent(in) |
PRHOA, |
|
|
real, dimension(ki), intent(in) |
PSFLUX_U, |
|
|
real, dimension(ki,klvl), intent(in) |
PFORC_U, |
|
|
real, dimension(ki,klvl), intent(in) |
PDFORC_UDU, |
|
|
real, dimension(ki,klvl), intent(in) |
PFORC_E, |
|
|
real, dimension(ki,klvl), intent(in) |
PDFORC_EDE, |
|
|
real, dimension(ki,klvl), intent(inout) |
PZ, |
|
|
real, dimension(ki,klvl), intent(in) |
PZF, |
|
|
real, dimension(ki,klvl), intent(in) |
PDZ, |
|
|
real, dimension(ki,klvl), intent(in) |
PDZF, |
|
|
real, dimension(ki,klvl), intent(inout) |
PU, |
|
|
real, dimension(ki,klvl), intent(inout) |
PTKE, |
|
|
real, dimension(ki), intent(out) |
PUSTAR, |
|
|
real, dimension(ki), intent(out) |
PALFAU, |
|
|
real, dimension(ki), intent(out) |
PBETAU |
|
) |
| |