Go to the source code of this file.
Functions/Subroutines | |
subroutine | teb_canopy (KI, KLVL, PZ, PZF, PDZ, PDZF, PBLD, PBLD_HEIGHT, PWALL_O_HOR, PPA, PRHOA, PU, PDUWDU_ROAD, PUW_ROOF, PDUWDU_ROOF, PH_WALL, PH_ROOF, PE_ROOF, PAC_ROAD, PAC_ROAD_WAT, PFORC_U, PDFORC_UDU, PFORC_E, PDFORC_EDE, PFORC_T, PDFORC_TDT, PFORC_Q, PDFORC_QDQ) |
subroutine teb_canopy | ( | integer, intent(in) | KI, |
integer, intent(in) | KLVL, | ||
real, dimension(ki,klvl), intent(in) | 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), intent(in) | PBLD, | ||
real, dimension(ki), intent(in) | PBLD_HEIGHT, | ||
real, dimension(ki), intent(in) | PWALL_O_HOR, | ||
real, dimension(ki), intent(in) | PPA, | ||
real, dimension(ki), intent(in) | PRHOA, | ||
real, dimension(ki,klvl), intent(in) | PU, | ||
real, dimension(ki), intent(in) | PDUWDU_ROAD, | ||
real, dimension(ki), intent(in) | PUW_ROOF, | ||
real, dimension(ki), intent(in) | PDUWDU_ROOF, | ||
real, dimension(ki), intent(in) | PH_WALL, | ||
real, dimension(ki), intent(in) | PH_ROOF, | ||
real, dimension(ki), intent(in) | PE_ROOF, | ||
real, dimension(ki), intent(in) | PAC_ROAD, | ||
real, dimension(ki), intent(in) | PAC_ROAD_WAT, | ||
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, | ||
real, dimension(ki,klvl), intent(out) | PFORC_T, | ||
real, dimension(ki,klvl), intent(out) | PDFORC_TDT, | ||
real, dimension(ki,klvl), intent(out) | PFORC_Q, | ||
real, dimension(ki,klvl), intent(out) | PDFORC_QDQ | ||
) |
Definition at line 6 of file teb_canopy.F90.