sorad_tl Module Reference

Functions/Subroutines
subroutine, public	sorad_d (m, np, nb, cosz_dev, pl_dev, ta_dev, ta_devd, wa_dev, wa_devd, oa_dev, oa_devd, co2, cwc_dev, cwc_devd, fcld_dev, fcld_devd, ict, icb, reff_dev, reff_devd, hk_uv, hk_ir, taua_dev, taua_devd, ssaa_dev, ssaa_devd, asya_dev, asya_devd, rsuvbm_dev, rsuvdf_dev, rsirbm_dev, rsirdf_dev, flx_dev, flx_devd, cons_grav, wk_uv, zk_uv, ry_uv, xk_ir, ry_ir, cah, coa, aig_uv, awg_uv, arg_uv, aib_uv, awb_uv, arb_uv, aib_nir, awb_nir, arb_nir, aia_nir, awa_nir, ara_nir, aig_nir, awg_nir, arg_nir, caib, caif)
subroutine	deledd_d (tau1, tau1d, ssc1, ssc1d, g01, g01d, cza1, rr1, rr1d, tt1, tt1d, td1, td1d)
subroutine	getvistau1_d (nlevs, cosz, dp, fcld, fcldd, reff, reffd, hydromets, hydrometsd, ict, icb, taubeam, taubeamd, taudiff, taudiffd, asycl, asycld, aig_uv, awg_uv, arg_uv, aib_uv, awb_uv, arb_uv, aib_nir, awb_nir, arb_nir, aia_nir, awa_nir, ara_nir, aig_nir, awg_nir, arg_nir, caib, caif, cons_grav)
subroutine	getnirtau1_d (ib, nlevs, cosz, dp, fcld, fcldd, reff, reffd, hydromets, hydrometsd, ict, icb, taubeam, taubeamd, taudiff, taudiffd, asycl, asycld, ssacl, ssacld, aig_uv, awg_uv, arg_uv, aib_uv, awb_uv, arb_uv, aib_nir, awb_nir, arb_nir, aia_nir, awa_nir, ara_nir, aig_nir, awg_nir, arg_nir, caib, caif, cons_grav)

Function/Subroutine Documentation

deledd_d()

subroutine sorad_tl::deledd_d ( real*8, intent(in)  tau1, real*8, intent(in)  tau1d, real*8, intent(in)  ssc1, real*8, intent(in)  ssc1d, real*8, intent(in)  g01, real*8, intent(in)  g01d, real*8, intent(in)  cza1, real*8, intent(out)  rr1, real*8, intent(out)  rr1d, real*8, intent(out)  tt1, real*8, intent(out)  tt1d, real*8, intent(out)  td1, real*8, intent(out)  td1d  )

private

Definition at line 1808 of file sorad_tl.F90.

Here is the caller graph for this function:

getnirtau1_d()

subroutine sorad_tl::getnirtau1_d ( integer, intent(in)  ib, integer, intent(in)  nlevs, real*8, intent(in)  cosz, real*8, dimension(nlevs), intent(in)  dp, real*8, dimension(nlevs), intent(in)  fcld, real*8, dimension(nlevs), intent(in)  fcldd, real*8, dimension(nlevs, 4), intent(in)  reff, real*8, dimension(nlevs, 4), intent(in)  reffd, real*8, dimension(nlevs, 4), intent(in)  hydromets, real*8, dimension(nlevs, 4), intent(in)  hydrometsd, integer, intent(in)  ict, integer, intent(in)  icb, real*8, dimension(nlevs, 4), intent(out)  taubeam, real*8, dimension(nlevs, 4), intent(out)  taubeamd, real*8, dimension(nlevs, 4), intent(out)  taudiff, real*8, dimension(nlevs, 4), intent(out)  taudiffd, real*8, dimension(nlevs), intent(out)  asycl, real*8, dimension(nlevs), intent(out)  asycld, real*8, dimension(nlevs), intent(out)  ssacl, real*8, dimension(nlevs), intent(out)  ssacld, real*8, dimension(3), intent(in)  aig_uv, real*8, dimension(3), intent(in)  awg_uv, real*8, dimension(3), intent(in)  arg_uv, real*8, intent(in)  aib_uv, real*8, dimension(2), intent(in)  awb_uv, real*8, dimension(2), intent(in)  arb_uv, real*8, intent(in)  aib_nir, real*8, dimension(3, 2), intent(in)  awb_nir, real*8, dimension(3, 2), intent(in)  arb_nir, real*8, dimension(3, 3), intent(in)  aia_nir, real*8, dimension(3, 3), intent(in)  awa_nir, real*8, dimension(3, 3), intent(in)  ara_nir, real*8, dimension(3, 3), intent(in)  aig_nir, real*8, dimension(3, 3), intent(in)  awg_nir, real*8, dimension(3, 3), intent(in)  arg_nir, real*8, dimension(11, 9, 11), intent(in)  caib, real*8, dimension(9, 11), intent(in)  caif, real*8, intent(in)  cons_grav  )

private

Definition at line 2358 of file sorad_tl.F90.

Here is the caller graph for this function:

getvistau1_d()

subroutine sorad_tl::getvistau1_d ( integer, intent(in)  nlevs, real*8, intent(in)  cosz, real*8, dimension(nlevs), intent(in)  dp, real*8, dimension(nlevs), intent(in)  fcld, real*8, dimension(nlevs), intent(in)  fcldd, real*8, dimension(nlevs, 4), intent(in)  reff, real*8, dimension(nlevs, 4), intent(in)  reffd, real*8, dimension(nlevs, 4), intent(in)  hydromets, real*8, dimension(nlevs, 4), intent(in)  hydrometsd, integer, intent(in)  ict, integer, intent(in)  icb, real*8, dimension(nlevs, 4), intent(out)  taubeam, real*8, dimension(nlevs, 4), intent(out)  taubeamd, real*8, dimension(nlevs, 4), intent(out)  taudiff, real*8, dimension(nlevs, 4), intent(out)  taudiffd, real*8, dimension(nlevs), intent(out)  asycl, real*8, dimension(nlevs), intent(out)  asycld, real*8, dimension(3), intent(in)  aig_uv, real*8, dimension(3), intent(in)  awg_uv, real*8, dimension(3), intent(in)  arg_uv, real*8, intent(in)  aib_uv, real*8, dimension(2), intent(in)  awb_uv, real*8, dimension(2), intent(in)  arb_uv, real*8, intent(in)  aib_nir, real*8, dimension(3, 2), intent(in)  awb_nir, real*8, dimension(3, 2), intent(in)  arb_nir, real*8, dimension(3, 3), intent(in)  aia_nir, real*8, dimension(3, 3), intent(in)  awa_nir, real*8, dimension(3, 3), intent(in)  ara_nir, real*8, dimension(3, 3), intent(in)  aig_nir, real*8, dimension(3, 3), intent(in)  awg_nir, real*8, dimension(3, 3), intent(in)  arg_nir, real*8, dimension(11, 9, 11), intent(in)  caib, real*8, dimension(9, 11), intent(in)  caif, real*8, intent(in)  cons_grav  )

private

Definition at line 1982 of file sorad_tl.F90.

Here is the caller graph for this function:

sorad_d()

subroutine, public sorad_tl::sorad_d	(	integer	m,
		integer	np,
		integer	nb,
		real*8, dimension(m)	cosz_dev,
		real*8, dimension(m, np+1)	pl_dev,
		real*8, dimension(m, np)	ta_dev,
		real*8, dimension(m, np)	ta_devd,
		real*8, dimension(m, np)	wa_dev,
		real*8, dimension(m, np)	wa_devd,
		real*8, dimension(m, np)	oa_dev,
		real*8, dimension(m, np)	oa_devd,
		real*8	co2,
		real*8, dimension(m, np, 4)	cwc_dev,
		real*8, dimension(m, np, 4)	cwc_devd,
		real*8, dimension(m, np)	fcld_dev,
		real*8, dimension(m, np)	fcld_devd,
		integer	ict,
		integer	icb,
		real*8, dimension(m, np, 4)	reff_dev,
		real*8, dimension(m, np, 4)	reff_devd,
		real*8, dimension(5)	hk_uv,
		real*8, dimension(3, 10)	hk_ir,
		real*8, dimension(m, np, nb)	taua_dev,
		real*8, dimension(m, np, nb)	taua_devd,
		real*8, dimension(m, np, nb)	ssaa_dev,
		real*8, dimension(m, np, nb)	ssaa_devd,
		real*8, dimension(m, np, nb)	asya_dev,
		real*8, dimension(m, np, nb)	asya_devd,
		real*8	rsuvbm_dev,
		real*8	rsuvdf_dev,
		real*8	rsirbm_dev,
		real*8	rsirdf_dev,
		real*8, dimension(m, np+1)	flx_dev,
		real*8, dimension(m, np+1)	flx_devd,
		real*8, intent(in)	cons_grav,
		real*8, dimension(5), intent(in)	wk_uv,
		real*8, dimension(5), intent(in)	zk_uv,
		real*8, dimension(5), intent(in)	ry_uv,
		real*8, dimension(10), intent(in)	xk_ir,
		real*8, dimension(3), intent(in)	ry_ir,
		real*8, dimension(43, 37), intent(in)	cah,
		real*8, dimension(62, 101), intent(in)	coa,
		real*8, dimension(3), intent(in)	aig_uv,
		real*8, dimension(3), intent(in)	awg_uv,
		real*8, dimension(3), intent(in)	arg_uv,
		real*8, intent(in)	aib_uv,
		real*8, dimension(2), intent(in)	awb_uv,
		real*8, dimension(2), intent(in)	arb_uv,
		real*8, intent(in)	aib_nir,
		real*8, dimension(3, 2), intent(in)	awb_nir,
		real*8, dimension(3, 2), intent(in)	arb_nir,
		real*8, dimension(3, 3), intent(in)	aia_nir,
		real*8, dimension(3, 3), intent(in)	awa_nir,
		real*8, dimension(3, 3), intent(in)	ara_nir,
		real*8, dimension(3, 3), intent(in)	aig_nir,
		real*8, dimension(3, 3), intent(in)	awg_nir,
		real*8, dimension(3, 3), intent(in)	arg_nir,
		real*8, dimension(11, 9, 11), intent(in)	caib,
		real*8, dimension(9, 11), intent(in)	caif
	)

Definition at line 20 of file sorad_tl.F90.

Here is the call graph for this function: