subroutine ugwp_oro	(	integer	im,
		integer	levs,
		real(kind_phys)	dtp,
		integer	kdt,
		integer	me,
		logical	lprnt,
		real(kind_phys), dimension(im)	fcor,
		real(kind_phys), dimension(im)	c2f2,
		real(kind_phys), dimension(im, levs)	u,
		real(kind_phys), dimension(im, levs)	v,
		real(kind_phys), dimension(im, levs)	tkin,
		real(kind_phys), dimension(im, levs+1)	pint,
		real(kind_phys), dimension(im, levs)	delp,
		real(kind_phys), dimension(im, levs)	pmid,
		real(kind_phys), dimension(im, levs)	pexner,
		real(kind_phys), dimension(im, levs+1)	gzint,
		real(kind_phys), dimension(im, levs)	gzmid,
		real(kind_phys), dimension(im, 14)	orostat,
		real(kind_phys), dimension(im)	hpbl,
		real(kind_phys), dimension(im, levs)	axz,
		real(kind_phys), dimension(im, levs)	ayz,
		real(kind_phys), dimension(im, levs)	edis,
		real(kind_phys), dimension(im, levs)	kdis,
		real(kind_phys), dimension(im)	dusfc,
		real(kind_phys), dimension(im)	dvsfc,
		real(kind_phys), dimension(im)	dusfc_mb,
		real(kind_phys), dimension(im)	dvsfc_mb,
		real(kind_phys), dimension(im)	dusfc_ogw,
		real(kind_phys), dimension(im)	dvsfc_ogw,
		real(kind_phys), dimension(im)	dusfc_lwb,
		real(kind_phys), dimension(im)	dvsfc_lwb,
		real(kind_phys), dimension(im)	zmtb,
		real(kind_phys), dimension(im)	zlwb,
		real(kind_phys), dimension(im)	zogw,
		real(kind_phys), dimension(im)	tauf_ogw,
		real(kind_phys), dimension(im, levs)	tauz_ogw,
		real(kind_phys), dimension(im, levs)	axmtb,
		real(kind_phys), dimension(im, levs)	axlwb,
		real(kind_phys), dimension(im, levs)	axtms
	)

References cires_ugwp_module::kxw, cires_ugwp_module::max_axyz, cires_ugwp_module::max_kdis, ugwp_drag_mtb(), ugwp_oro_lsatdis(), ugwp_taub_oro(), and ugwp_tofd1d().

Referenced by cires_ugwp_module::cires_ugwp_driver().

Here is the call graph for this function: