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 |
|
) |
| |