rad_sw_pre_run()

subroutine rad_sw_pre::rad_sw_pre_run	(	integer, intent(in)	im,
		logical, intent(in)	lsswr,
		real(kind_phys), dimension(:), intent(in)	coszen,
		integer, intent(out)	nday,
		integer, dimension(:), intent(out)	idxday,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)