subroutine, public module_radiation_astronomy::coszmn	(	real (kind=kind_phys), dimension(:), intent(in)	xlon,
		real (kind=kind_phys), dimension(:), intent(in)	sinlat,
		real (kind=kind_phys), dimension(:), intent(in)	coslat,
		real (kind=kind_phys), intent(in)	solhr,
		integer, intent(in)	IM,
		integer, intent(in)	me,
		real (kind=kind_phys), dimension(:), intent(out)	coszen,
		real (kind=kind_phys), dimension(:), intent(out)	coszdg
	)

Parameters

xlon	grids' longitudes in radians, work both on zonal, 0->2pi and -pi->+pi arrangements
sinlat	sine of the corresponding latitudes
coslat	cosine of the corresponding latitudes
solhr	time after 00z in hours
IM	num of grids in horizontal dimension
me	print message control flag
coszen	average of cosz for daytime only in sw call interval
coszdg	average of cosz over entire sw call interval

coszmn General Algorithm