!auto_modi:spll_avg_urban_fluxes.D MODULE MODI_AVG_URBAN_FLUXES INTERFACE SUBROUTINE AVG_URBAN_FLUXES(TOP, T, B, TPN, DMT, & PTS_TWN, PEMIS_TWN, PT_CAN, & PQ_CAN, PT_LOWCAN, PQ_LOWCAN, PTA, PQA, PRHOA, PPS,& PH_TRAFFIC, PLE_TRAFFIC, PWL_O_GRND, PESN_RF, & PEMIS_GR, PLW_RAD, PAC_RF, PAC_RF_WAT, PAC_WL, & PAC_RD, PAC_RD_WAT, PAC_TOP, PAC_GD, PQSAT_GD, & PAC_AGG_GD, PHU_AGG_GD, PQSAT_RF, PQSAT_RD, & PDELT_RF, PDELT_RD, PRF_FRAC, PWL_FRAC, PRD_FRAC, & PGD_FRAC, PTOTS_O_HORS, PDF_RF, PDN_RF, PDF_RD, & PDN_RD, PLE_WL_A, PLE_WL_B, PLEW_RF, PLESN_RF, & PLEW_RD, PLESN_RD, PHSN_RD, & PTSRAD_GD, PRN_GD, PH_GD, PLE_GD, PGFLUX_GD, PEVAP_GD,& PRUNOFF_GD, PEVAP_GR, PRUNOFF_GR, PDRAIN_GR, & PRN_GRND, PH_GRND, PLE_GRND, PGFLX_GRND, & PRN_TWN, PH_TWN, PLE_TWN, PGFLX_TWN, PEVAP_TWN, & PEMIT_LW_RD, PEMIT_LW_GD, PEMIT_LW_GRND, PEMIS_GD ) USE MODD_TEB_OPTION_n, ONLY : TEB_OPTIONS_t USE MODD_TEB_n, ONLY : TEB_t USE MODD_BEM_n, ONLY : BEM_t USE MODD_TEB_PANEL_n, ONLY : TEB_PANEL_t USE MODD_DIAG_MISC_TEB_n, ONLY : DIAG_MISC_TEB_t IMPLICIT NONE TYPE(TEB_OPTIONS_t), INTENT(INOUT) :: TOP TYPE(TEB_t), INTENT(INOUT) :: T TYPE(BEM_t), INTENT(INOUT) :: B TYPE(TEB_PANEL_t), INTENT(INOUT) :: TPN TYPE(DIAG_MISC_TEB_t), INTENT(INOUT) :: DMT REAL, DIMENSION(:), INTENT(OUT) :: PTS_TWN ! town surface temperature REAL, DIMENSION(:), INTENT(OUT) :: PEMIS_TWN ! town equivalent emissivity REAL, DIMENSION(:), INTENT(INOUT) :: PT_CAN ! canyon air temperature REAL, DIMENSION(:), INTENT(INOUT) :: PQ_CAN ! canyon air specific humidity REAL, DIMENSION(:), INTENT(IN) :: PT_LOWCAN ! low canyon air temperature REAL, DIMENSION(:), INTENT(IN) :: PQ_LOWCAN ! low canyon air specific humidity REAL, DIMENSION(:), INTENT(IN) :: PTA ! temperature at roof level REAL, DIMENSION(:), INTENT(IN) :: PQA ! specific humidity REAL, DIMENSION(:), INTENT(IN) :: PRHOA ! air density REAL, DIMENSION(:), INTENT(IN) :: PPS ! surface pressure REAL, DIMENSION(:), INTENT(IN) :: PH_TRAFFIC ! anthropogenic sensible REAL, DIMENSION(:), INTENT(IN) :: PLE_TRAFFIC ! anthropogenic latent REAL, DIMENSION(:), INTENT(IN) :: PWL_O_GRND ! wall Surf. / ground (road+green) Surf. REAL, DIMENSION(:), INTENT(IN) :: PESN_RF ! snow roof emissivity REAL, DIMENSION(:), INTENT(IN) :: PEMIS_GR ! green roof emissivity REAL, DIMENSION(:), INTENT(IN) :: PLW_RAD ! incoming longwave rad. REAL, DIMENSION(:), INTENT(IN) :: PAC_RF ! surface conductance REAL, DIMENSION(:), INTENT(IN) :: PAC_RF_WAT ! surface conductance REAL, DIMENSION(:), INTENT(IN) :: PAC_WL ! surface conductance REAL, DIMENSION(:), INTENT(IN) :: PAC_RD ! surface conductance REAL, DIMENSION(:), INTENT(IN) :: PAC_RD_WAT ! surface conductance REAL, DIMENSION(:), INTENT(IN) :: PAC_TOP ! aerodynamical conductance REAL, DIMENSION(:), INTENT(IN) :: PAC_GD ! aerodynamical conductance REAL, DIMENSION(:), INTENT(IN) :: PQSAT_GD ! q_sat(Ts) REAL, DIMENSION(:), INTENT(IN) :: PAC_AGG_GD ! aggregated aerodyn resistance for green areas REAL, DIMENSION(:), INTENT(IN) :: PHU_AGG_GD ! aggregated relative humidity for green areas REAL, DIMENSION(:), INTENT(IN) :: PQSAT_RF ! q_sat(Ts) REAL, DIMENSION(:), INTENT(IN) :: PQSAT_RD ! q_sat(Ts) REAL, DIMENSION(:), INTENT(IN) :: PDELT_RF ! water fraction on snow-free REAL, DIMENSION(:), INTENT(IN) :: PDELT_RD ! roof and roads REAL, DIMENSION(:), INTENT(IN) :: PRF_FRAC ! roof, wall, REAL, DIMENSION(:), INTENT(IN) :: PWL_FRAC ! road, and green area REAL, DIMENSION(:), INTENT(IN) :: PRD_FRAC ! fractions REAL, DIMENSION(:), INTENT(IN) :: PGD_FRAC ! of exchange surf. REAL, DIMENSION(:), INTENT(IN) :: PTOTS_O_HORS ! total canyon+roof surface REAL, DIMENSION(:), INTENT(IN) :: PDF_RF ! snow-free roof fraction REAL, DIMENSION(:), INTENT(IN) :: PDN_RF ! snow-covered roof fraction REAL, DIMENSION(:), INTENT(IN) :: PDF_RD ! snow-free road fraction REAL, DIMENSION(:), INTENT(IN) :: PDN_RD ! snow-covered road fraction REAL, DIMENSION(:), INTENT(IN) :: PLE_WL_A ! latent heat flux over wall REAL, DIMENSION(:), INTENT(IN) :: PLE_WL_B ! latent heat flux over wall REAL, DIMENSION(:), INTENT(IN) :: PLEW_RF ! latent heat flux of snowfree roof REAL, DIMENSION(:), INTENT(IN) :: PLESN_RF ! latent heat flux over snow REAL, DIMENSION(:), INTENT(IN) :: PLEW_RD ! latent heat flux of snowfree road REAL, DIMENSION(:), INTENT(IN) :: PLESN_RD ! latent heat flux over snow REAL, DIMENSION(:), INTENT(IN) :: PHSN_RD ! sensible heat flux over snow REAL, DIMENSION(:), INTENT(IN) :: PTSRAD_GD ! green area surface temperature REAL, DIMENSION(:), INTENT(IN) :: PRN_GD ! net radiation over green areas REAL, DIMENSION(:), INTENT(IN) :: PH_GD ! sensible heat flux over green areas REAL, DIMENSION(:), INTENT(IN) :: PLE_GD ! latent heat flux over green areas REAL, DIMENSION(:), INTENT(IN) :: PGFLUX_GD ! flux through the green areas REAL, DIMENSION(:), INTENT(IN) :: PEVAP_GD ! evaporation over gardens REAL, DIMENSION(:), INTENT(IN) :: PRUNOFF_GD ! surface runoff over green areas (kg/m2/s) REAL, DIMENSION(:), INTENT(IN) :: PEVAP_GR ! evaporation over green roofs REAL, DIMENSION(:), INTENT(IN) :: PRUNOFF_GR ! surface runoff over green roofs (kg/m2/s) REAL, DIMENSION(:), INTENT(IN) :: PDRAIN_GR ! outlet drainage at green roof base (kg/m2/s) REAL, DIMENSION(:), INTENT(OUT) :: PRN_GRND ! net radiation over ground REAL, DIMENSION(:), INTENT(OUT) :: PH_GRND ! sensible heat flux over ground REAL, DIMENSION(:), INTENT(OUT) :: PLE_GRND ! latent heat flux over ground REAL, DIMENSION(:), INTENT(OUT) :: PGFLX_GRND ! flux through the ground REAL, DIMENSION(:), INTENT(OUT) :: PRN_TWN ! net radiation over town REAL, DIMENSION(:), INTENT(OUT) :: PH_TWN ! sensible heat flux over town REAL, DIMENSION(:), INTENT(OUT) :: PLE_TWN ! latent heat flux over town REAL, DIMENSION(:), INTENT(OUT) :: PGFLX_TWN ! flux through the ground for town REAL, DIMENSION(:), INTENT(OUT) :: PEVAP_TWN ! evaporation (kg/m2/s) REAL, DIMENSION(:), INTENT(IN) :: PEMIT_LW_RD ! LW emitted by the road (W/m2 road) REAL, DIMENSION(:), INTENT(IN) :: PEMIT_LW_GD ! LW emitted by the garden (W/m2 garden) REAL, DIMENSION(:), INTENT(OUT) :: PEMIT_LW_GRND ! LW emitted by the ground (road+garden) (W/m2 ground) REAL, DIMENSION(:), INTENT(IN) :: PEMIS_GD ! garden emissivity END SUBROUTINE AVG_URBAN_FLUXES END INTERFACE END MODULE MODI_AVG_URBAN_FLUXES