URBAN_DRAG Interface

interface
public subroutine URBAN_DRAG(TOP, T, B, HIMPLICIT_WIND, PTSTEP, PT_CANYON, PQ_CANYON, PU_CANYON, PT_LOWCAN, PQ_LOWCAN, PU_LOWCAN, PZ_LOWCAN, PTS_ROOF, PTS_ROAD, PTS_WALL, PTS_GARDEN, PDELT_SNOW_ROOF, PDELT_SNOW_ROAD, PEXNS, PEXNA, PTA, PQA, PPS, PRHOA, PZREF, PUREF, PVMOD, PWS_ROOF_MAX, PWS_ROAD_MAX, PPEW_A_COEF, PPEW_B_COEF, PPEW_A_COEF_LOWCAN, PPEW_B_COEF_LOWCAN, PQSAT_ROOF, PQSAT_ROAD, PDELT_ROOF, PDELT_ROAD, PCD, PCDN, PAC_ROOF, PAC_ROOF_WAT, PAC_WALL, PAC_ROAD, PAC_ROAD_WAT, PAC_TOP, PAC_GARDEN, PRI, PUW_ROAD, PUW_ROOF, PDUWDU_ROAD, PDUWDU_ROOF, PUSTAR_TOWN, PAC_WIN)

Arguments

Type	Intent	Optional	Attributes		Name
type(TEB_OPTIONS_t),	intent(inout)			::	TOP
type(TEB_t),	intent(inout)			::	T
type(BEM_t),	intent(inout)			::	B
character(len=*),	intent(in)			::	HIMPLICIT_WIND
real,	intent(in)			::	PTSTEP
real,	intent(in),		DIMENSION(:)	::	PT_CANYON
real,	intent(in),		DIMENSION(:)	::	PQ_CANYON
real,	intent(in),		DIMENSION(:)	::	PU_CANYON
real,	intent(in),		DIMENSION(:)	::	PT_LOWCAN
real,	intent(in),		DIMENSION(:)	::	PQ_LOWCAN
real,	intent(in),		DIMENSION(:)	::	PU_LOWCAN
real,	intent(in),		DIMENSION(:)	::	PZ_LOWCAN
real,	intent(in),		DIMENSION(:)	::	PTS_ROOF
real,	intent(in),		DIMENSION(:)	::	PTS_ROAD
real,	intent(in),		DIMENSION(:)	::	PTS_WALL
real,	intent(in),		DIMENSION(:)	::	PTS_GARDEN
real,	intent(in),		DIMENSION(:)	::	PDELT_SNOW_ROOF
real,	intent(in),		DIMENSION(:)	::	PDELT_SNOW_ROAD
real,	intent(in),		DIMENSION(:)	::	PEXNS
real,	intent(in),		DIMENSION(:)	::	PEXNA
real,	intent(in),		DIMENSION(:)	::	PTA
real,	intent(in),		DIMENSION(:)	::	PQA
real,	intent(in),		DIMENSION(:)	::	PPS
real,	intent(in),		DIMENSION(:)	::	PRHOA
real,	intent(in),		DIMENSION(:)	::	PZREF
real,	intent(in),		DIMENSION(:)	::	PUREF
real,	intent(in),		DIMENSION(:)	::	PVMOD
real,	intent(in),		DIMENSION(:)	::	PWS_ROOF_MAX
real,	intent(in),		DIMENSION(:)	::	PWS_ROAD_MAX
real,	intent(in),		DIMENSION(:)	::	PPEW_A_COEF
real,	intent(in),		DIMENSION(:)	::	PPEW_B_COEF
real,	intent(in),		DIMENSION(:)	::	PPEW_A_COEF_LOWCAN
real,	intent(in),		DIMENSION(:)	::	PPEW_B_COEF_LOWCAN
real,	intent(out),		DIMENSION(:)	::	PQSAT_ROOF
real,	intent(out),		DIMENSION(:)	::	PQSAT_ROAD
real,	intent(out),		DIMENSION(:)	::	PDELT_ROOF
real,	intent(out),		DIMENSION(:)	::	PDELT_ROAD
real,	intent(out),		DIMENSION(:)	::	PCD
real,	intent(out),		DIMENSION(:)	::	PCDN
real,	intent(out),		DIMENSION(:)	::	PAC_ROOF
real,	intent(out),		DIMENSION(:)	::	PAC_ROOF_WAT
real,	intent(out),		DIMENSION(:)	::	PAC_WALL
real,	intent(out),		DIMENSION(:)	::	PAC_ROAD
real,	intent(out),		DIMENSION(:)	::	PAC_ROAD_WAT
real,	intent(out),		DIMENSION(:)	::	PAC_TOP
real,	intent(in),		DIMENSION(:)	::	PAC_GARDEN
real,	intent(out),		DIMENSION(:)	::	PRI
real,	intent(out),		DIMENSION(:)	::	PUW_ROAD
real,	intent(out),		DIMENSION(:)	::	PUW_ROOF
real,	intent(out),		DIMENSION(:)	::	PDUWDU_ROAD
real,	intent(out),		DIMENSION(:)	::	PDUWDU_ROOF
real,	intent(out),		DIMENSION(:)	::	PUSTAR_TOWN
real,	intent(out),		DIMENSION(:)	::	PAC_WIN