irrad_tl Module Reference

Functions/Subroutines
subroutine, public	irrad_d (np, ple_dev, ta_dev, ta_devd, wa_dev, wa_devd, oa_dev, oa_devd, tb_dev, tb_devd, co2, trace, n2o_dev, ch4_dev, cfc11_dev, cfc12_dev, cfc22_dev, cwc_dev, cwc_devd, fcld_dev, fcld_devd, ict, icb, reff_dev, reff_devd, ns, fs_dev, tg_dev, eg_dev, tv_dev, ev_dev, rv_dev, na, nb, taua_dev, taua_devd, ssaa_dev, ssaa_devd, asya_dev, asya_devd, flxu_dev, flxu_devd, flxd_dev, flxd_devd, dfdts_dev, dfdts_devd, aib_ir, awb_ir, aiw_ir, aww_ir, aig_ir, awg_ir, xkw, xke, mw, aw, bw, pm, fkw, gkw, cb, dcb, w11, w12, w13, p11, p12, p13, dwe, dpe, c1, c2, c3, oo1, oo2, oo3, h11, h12, h13, h21, h22, h23, h81, h82, h83)
subroutine	planck_d (ibn, cb, t, td, xlayer, xlayerd)
subroutine	h2oexps_d (ib, np, dh2o, dh2od, pa, dt, dtd, xkw, aw, bw, pm, mw, h2oexp, h2oexpd)
subroutine	conexps_d (ib, np, dcont, dcontd, xke, conexp, conexpd)
subroutine	n2oexps_d (ib, np, dn2o, pa, dt, dtd, n2oexp, n2oexpd)
subroutine	ch4exps_d (ib, np, dch4, pa, dt, dtd, ch4exp, ch4expd)
subroutine	comexps_d (ib, np, dcom, dt, dtd, comexp, comexpd)
subroutine	cfcexps_d (ib, np, a1, b1, fk1, a2, b2, fk2, dcfc, dt, dtd, cfcexp, cfcexpd)
subroutine	b10exps_d (np, dh2o, dh2od, dcont, dcontd, dco2, dn2o, pa, dt, dtd, h2oexp, h2oexpd, conexp, conexpd, co2exp, co2expd, n2oexp, n2oexpd)
subroutine	tablup_d (nx1, nh1, dw, dwd, p, dt, dtd, s1, s1d, s2, s2d, s3, s3d, w1, p1, dwe, dpe, coef1, coef2, coef3, tran, trand)
subroutine	h2okdis_d (ib, np, k, fkw, gkw, ne, h2oexp, h2oexpd, conexp, conexpd, th2o, th2od, tcon, tcond, tran, trand)
subroutine	n2okdis_d (ib, np, k, n2oexp, n2oexpd, tn2o, tn2od, tran, trand)
subroutine	ch4kdis_d (ib, np, k, ch4exp, ch4expd, tch4, tch4d, tran, trand)
subroutine	comkdis_d (ib, np, k, comexp, comexpd, tcom, tcomd, tran, trand)
subroutine	cfckdis_d (np, k, cfcexp, cfcexpd, tcfc, tcfcd, tran, trand)
subroutine	b10kdis_d (np, k, h2oexp, h2oexpd, conexp, conexpd, co2exp, co2expd, n2oexp, n2oexpd, th2o, th2od, tcon, tcond, tco2, tco2d, tn2o, tn2od, tran, trand)
subroutine	cldovlp_d (np, k1, k2, ict, icb, icx, ncld, enn, ennd, ett, ettd, cldhi, cldhid, cldmd, cldmdd, cldlw, cldlwd)
subroutine	getirtau1_d (ib, nlevs, dp, fcld, fcldd, reff, reffd, hydromets, hydrometsd, tcldlyr, tcldlyrd, enn, ennd, aib_ir1, awb_ir1, aiw_ir1, aww_ir1, aig_ir1, awg_ir1, cons_grav)

Function/Subroutine Documentation

b10exps_d()

subroutine irrad_tl::b10exps_d ( integer  np, real*8, dimension(0:np)  dh2o, real*8, dimension(0:np)  dh2od, real*8, dimension(0:np)  dcont, real*8, dimension(0:np)  dcontd, real*8, dimension(0:np)  dco2, real*8, dimension(0:np)  dn2o, real*8, dimension(0:np)  pa, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtd, real*8, dimension(0:np, 5)  h2oexp, real*8, dimension(0:np, 5)  h2oexpd, real*8, dimension(0:np)  conexp, real*8, dimension(0:np)  conexpd, real*8, dimension(0:np, 6)  co2exp, real*8, dimension(0:np, 6)  co2expd, real*8, dimension(0:np , 2)  n2oexp, real*8, dimension(0 :np, 2)  n2oexpd  )

private

Definition at line 1297 of file irrad_tl.F90.

Here is the caller graph for this function:

b10kdis_d()

subroutine irrad_tl::b10kdis_d ( integer  np, integer  k, real*8, dimension(0:np, 5)  h2oexp, real*8, dimension(0:np, 5)  h2oexpd, real*8, dimension(0:np)  conexp, real*8, dimension(0:np)  conexpd, real*8, dimension(0:np, 6)  co2exp, real*8, dimension(0:np, 6)  co2expd, real*8, dimension(0:np , 2)  n2oexp, real*8, dimension(0 :np, 2)  n2oexpd, real*8, dimension(6)  th2o, real*8, dimension(6)  th2od, real*8, dimension(3)  tcon, real*8, dimension(3)  tcond, real*8, dimension(6)  tco2, real*8, dimension(6)  tco2d, real*8, dimension(4)  tn2o, real*8, dimension(4)  tn2od, real*8  tran, real*8  trand  )

private

Definition at line 1847 of file irrad_tl.F90.

Here is the caller graph for this function:

cfcexps_d()

subroutine irrad_tl::cfcexps_d ( integer  ib, integer  np, real*8  a1, real*8  b1, real*8  fk1, real*8  a2, real*8  b2, real*8  fk2, real*8, dimension(0:np)  dcfc, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtd, real*8, dimension(0:np)  cfcexp, real*8, dimension(0:np)  cfcexpd  )

private

Definition at line 1258 of file irrad_tl.F90.

Here is the caller graph for this function:

cfckdis_d()

subroutine irrad_tl::cfckdis_d ( integer  np, integer  k, real*8, dimension(0:np)  cfcexp, real*8, dimension(0:np)  cfcexpd, real*8  tcfc, real*8  tcfcd, real*8  tran, real*8  trand  )

private

Definition at line 1824 of file irrad_tl.F90.

Here is the caller graph for this function:

ch4exps_d()

subroutine irrad_tl::ch4exps_d ( integer  ib, integer  np, real*8, dimension(0:np)  dch4, real*8, dimension(0:np)  pa, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtd, real*8, dimension(0:np, 4)  ch4exp, real*8, dimension(0:np, 4)  ch4expd  )

private

Definition at line 1154 of file irrad_tl.F90.

Here is the caller graph for this function:

ch4kdis_d()

subroutine irrad_tl::ch4kdis_d ( integer  ib, integer  np, integer  k, real*8, dimension(0:np, 4)  ch4exp, real*8, dimension(0:np, 4)  ch4expd, real*8, dimension(4)  tch4, real*8, dimension(4)  tch4d, real*8  tran, real*8  trand  )

private

Definition at line 1699 of file irrad_tl.F90.

Here is the caller graph for this function:

cldovlp_d()

subroutine irrad_tl::cldovlp_d ( integer, intent(in)  np, integer, intent(in)  k1, integer, intent(in)  k2, integer, intent(in)  ict, integer, intent(in)  icb, integer, dimension(0:np), intent(in)  icx, integer, dimension(3), intent(in)  ncld, real*8, dimension(0:np), intent(in)  enn, real*8, dimension(0:np), intent(in)  ennd, real*8, dimension(0:np), intent(in)  ett, real*8, dimension(0:np), intent(in)  ettd, real*8, intent(inout)  cldhi, real*8, intent(inout)  cldhid, real*8, intent(inout)  cldmd, real*8, intent(inout)  cldmdd, real*8, intent(inout)  cldlw, real*8, intent(inout)  cldlwd  )

private

Definition at line 1935 of file irrad_tl.F90.

Here is the caller graph for this function:

comexps_d()

subroutine irrad_tl::comexps_d ( integer  ib, integer  np, real*8, dimension(0:np)  dcom, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtd, real*8, dimension(0:np, 6)  comexp, real*8, dimension(0:np, 6)  comexpd  )

private

Definition at line 1213 of file irrad_tl.F90.

Here is the caller graph for this function:

comkdis_d()

subroutine irrad_tl::comkdis_d ( integer  ib, integer  np, integer  k, real*8, dimension(0:np, 6)  comexp, real*8, dimension(0:np, 6)  comexpd, real*8, dimension(6)  tcom, real*8, dimension(6)  tcomd, real*8  tran, real*8  trand  )

private

Definition at line 1748 of file irrad_tl.F90.

Here is the caller graph for this function:

conexps_d()

subroutine irrad_tl::conexps_d ( integer  ib, integer  np, real*8, dimension(0:np)  dcont, real*8, dimension(0:np)  dcontd, real*8, dimension(9)  xke, real*8, dimension(0:np, 3)  conexp, real*8, dimension(0:np, 3)  conexpd  )

private

Definition at line 1054 of file irrad_tl.F90.

Here is the caller graph for this function:

getirtau1_d()

subroutine irrad_tl::getirtau1_d ( integer, intent(in)  ib, integer, intent(in)  nlevs, 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, real*8, dimension(0:nlevs), intent(out)  tcldlyr, real*8, dimension(0:nlevs), intent(out)  tcldlyrd, real*8, dimension(0:nlevs), intent(out)  enn, real*8, dimension(0:nlevs), intent(out)  ennd, real*8, dimension(3, 10), intent(in)  aib_ir1, real*8, dimension(4, 10), intent(in)  awb_ir1, real*8, dimension(4, 10), intent(in)  aiw_ir1, real*8, dimension(4, 10), intent(in)  aww_ir1, real*8, dimension(4, 10), intent(in)  aig_ir1, real*8, dimension(4, 10), intent(in)  awg_ir1, real*8, intent(in)  cons_grav  )

private

Definition at line 2019 of file irrad_tl.F90.

Here is the caller graph for this function:

h2oexps_d()

subroutine irrad_tl::h2oexps_d ( integer  ib, integer  np, real*8, dimension(0:np)  dh2o, real*8, dimension(0:np)  dh2od, real*8, dimension(0:np)  pa, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtd, real*8, dimension(9)  xkw, real*8, dimension(9)  aw, real*8, dimension(9)  bw, real*8, dimension(9)  pm, integer, dimension(9)  mw, real*8, dimension(0:np, 6)  h2oexp, real*8, dimension(0:np, 6)  h2oexpd  )

private

Definition at line 977 of file irrad_tl.F90.

Here is the caller graph for this function:

h2okdis_d()

subroutine irrad_tl::h2okdis_d ( integer  ib, integer  np, integer  k, real*8, dimension(6, 9)  fkw, real*8, dimension(6, 3)  gkw, integer  ne, real*8, dimension(0:np, 6)  h2oexp, real*8, dimension(0:np, 6)  h2oexpd, real*8, dimension(0:np, 3)  conexp, real*8, dimension(0:np, 3)  conexpd, real*8, dimension(6)  th2o, real*8, dimension(6)  th2od, real*8, dimension(3)  tcon, real*8, dimension(3)  tcond, real*8  tran, real*8  trand  )

private

Definition at line 1553 of file irrad_tl.F90.

Here is the caller graph for this function:

irrad_d()

subroutine, public irrad_tl::irrad_d	(	integer, intent(in)	np,
		real*8, dimension(np + 1), intent(in)	ple_dev,
		real*8, dimension(np), intent(in)	ta_dev,
		real*8, dimension(np), intent(in)	ta_devd,
		real*8, dimension(np), intent(in)	wa_dev,
		real*8, dimension(np), intent(in)	wa_devd,
		real*8, dimension(np), intent(in)	oa_dev,
		real*8, dimension(np), intent(in)	oa_devd,
		real*8, intent(in)	tb_dev,
		real*8, intent(in)	tb_devd,
		real*8, intent(in)	co2,
		logical, intent(in)	trace,
		real*8, dimension(np), intent(in)	n2o_dev,
		real*8, dimension(np), intent(in)	ch4_dev,
		real*8, dimension(np), intent(in)	cfc11_dev,
		real*8, dimension(np), intent(in)	cfc12_dev,
		real*8, dimension(np), intent(in)	cfc22_dev,
		real*8, dimension(np, 4), intent(in)	cwc_dev,
		real*8, dimension(np, 4), intent(in)	cwc_devd,
		real*8, dimension(np), intent(in)	fcld_dev,
		real*8, dimension(np), intent(in)	fcld_devd,
		integer, intent(in)	ict,
		integer, intent(in)	icb,
		real*8, dimension(np, 4), intent(in)	reff_dev,
		real*8, dimension(np, 4), intent(in)	reff_devd,
		integer, intent(in)	ns,
		real*8, dimension(ns), intent(in)	fs_dev,
		real*8, dimension(ns), intent(in)	tg_dev,
		real*8, dimension(ns, 10), intent(in)	eg_dev,
		real*8, dimension(ns), intent(in)	tv_dev,
		real*8, dimension(ns, 10), intent(in)	ev_dev,
		real*8, dimension(ns, 10), intent(in)	rv_dev,
		integer, intent(in)	na,
		integer, intent(in)	nb,
		real*8, dimension(np, nb), intent(inout)	taua_dev,
		real*8, dimension(np, nb), intent(inout)	taua_devd,
		real*8, dimension(np, nb), intent(inout)	ssaa_dev,
		real*8, dimension(np, nb), intent(inout)	ssaa_devd,
		real*8, dimension(np, nb), intent(inout)	asya_dev,
		real*8, dimension(np, nb), intent(inout)	asya_devd,
		real*8, dimension(np + 1), intent(out)	flxu_dev,
		real*8, dimension(np+1), intent(out)	flxu_devd,
		real*8, dimension(np + 1), intent(out)	flxd_dev,
		real*8, dimension(np+1), intent(out)	flxd_devd,
		real*8, dimension(np + 1), intent(out)	dfdts_dev,
		real*8, dimension(np+1), intent(out)	dfdts_devd,
		real*8, dimension(3, 10), intent(in)	aib_ir,
		real*8, dimension(4, 10), intent(in)	awb_ir,
		real*8, dimension(4, 10), intent(in)	aiw_ir,
		real*8, dimension(4, 10), intent(in)	aww_ir,
		real*8, dimension(4, 10), intent(in)	aig_ir,
		real*8, dimension(4, 10), intent(in)	awg_ir,
		real*8, dimension(9), intent(in)	xkw,
		real*8, dimension(9), intent(in)	xke,
		integer, dimension(9), intent(in)	mw,
		real*8, dimension(9), intent(in)	aw,
		real*8, dimension(9), intent(in)	bw,
		real*8, dimension(9), intent(in)	pm,
		real*8, dimension(6, 9), intent(in)	fkw,
		real*8, dimension(6, 3), intent(in)	gkw,
		real*8, dimension(6, 10), intent(in)	cb,
		real*8, dimension(5, 10), intent(in)	dcb,
		real*8, intent(in)	w11,
		real*8, intent(in)	w12,
		real*8, intent(in)	w13,
		real*8, intent(in)	p11,
		real*8, intent(in)	p12,
		real*8, intent(in)	p13,
		real*8, intent(in)	dwe,
		real*8, intent(in)	dpe,
		real*8, dimension(26, 30), intent(in)	c1,
		real*8, dimension(26, 30), intent(in)	c2,
		real*8, dimension(26, 30), intent(in)	c3,
		real*8, dimension(26, 21), intent(in)	oo1,
		real*8, dimension(26, 21), intent(in)	oo2,
		real*8, dimension(26, 21), intent(in)	oo3,
		real*8, dimension(26, 31), intent(in)	h11,
		real*8, dimension(26, 31), intent(in)	h12,
		real*8, dimension(26, 31), intent(in)	h13,
		real*8, dimension(26, 31), intent(in)	h21,
		real*8, dimension(26, 31), intent(in)	h22,
		real*8, dimension(26, 31), intent(in)	h23,
		real*8, dimension(26, 31), intent(in)	h81,
		real*8, dimension(26, 31), intent(in)	h82,
		real*8, dimension(26, 31), intent(in)	h83
	)

Definition at line 22 of file irrad_tl.F90.

Here is the call graph for this function:

n2oexps_d()

subroutine irrad_tl::n2oexps_d ( integer  ib, integer  np, real*8, dimension(0:np)  dn2o, real*8, dimension(0:np)  pa, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtd, real*8, dimension(0:np, 4)  n2oexp, real*8, dimension(0:np, 4)  n2oexpd  )

private

Definition at line 1088 of file irrad_tl.F90.

Here is the caller graph for this function:

n2okdis_d()

subroutine irrad_tl::n2okdis_d ( integer  ib, integer  np, integer  k, real*8, dimension(0:np, 4)  n2oexp, real*8, dimension(0:np, 4)  n2oexpd, real*8, dimension(4)  tn2o, real*8, dimension(4)  tn2od, real*8  tran, real*8  trand  )

private

Definition at line 1646 of file irrad_tl.F90.

Here is the caller graph for this function:

planck_d()

subroutine irrad_tl::planck_d ( integer, intent(in)  ibn, real*8, dimension(6, 10), intent(in)  cb, real*8, intent(in)  t, real*8, intent(in)  td, real*8, intent(out)  xlayer, real*8, intent(out)  xlayerd  )

private

Definition at line 952 of file irrad_tl.F90.

Here is the caller graph for this function:

tablup_d()

subroutine irrad_tl::tablup_d ( integer  nx1, integer  nh1, real*8  dw, real*8  dwd, real*8  p, real*8  dt, real*8  dtd, real*8  s1, real*8  s1d, real*8  s2, real*8  s2d, real*8  s3, real*8  s3d, real*8  w1, real*8  p1, real*8  dwe, real*8  dpe, real*8, dimension(nx1, nh1)  coef1, real*8, dimension(nx1, nh1)  coef2, real*8, dimension(nx1, nh1)  coef3, real*8  tran, real*8  trand  )

private

Definition at line 1415 of file irrad_tl.F90.

Here is the caller graph for this function: