irrad_ad Module Reference

Functions/Subroutines
subroutine, public	irrad_b (np, ple_dev, ta_dev, ta_devb, wa_dev, wa_devb, oa_dev, oa_devb, tb_dev, tb_devb, co2, trace, n2o_dev, ch4_dev, cfc11_dev, cfc12_dev, cfc22_dev, cwc_dev, cwc_devb, fcld_dev, fcld_devb, ict, icb, reff_dev, reff_devb, ns, fs_dev, tg_dev, eg_dev, tv_dev, ev_dev, rv_dev, na, nb, taua_dev, taua_devb, ssaa_dev, ssaa_devb, asya_dev, asya_devb, flxu_dev, flxu_devb, flxd_dev, flxd_devb, dfdts_dev, dfdts_devb, 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_b (ibn, cb, t, tb, xlayer, xlayerb)
subroutine	h2oexps_b (ib, np, dh2o, dh2ob, pa, dt, dtb, xkw, aw, bw, pm, mw, h2oexp, h2oexpb)
subroutine	conexps_b (ib, np, dcont, dcontb, xke, conexp, conexpb)
subroutine	n2oexps_b (ib, np, dn2o, pa, dt, dtb, n2oexp, n2oexpb)
subroutine	ch4exps_b (ib, np, dch4, pa, dt, dtb, ch4exp, ch4expb)
subroutine	comexps_b (ib, np, dcom, dt, dtb, comexp, comexpb)
subroutine	cfcexps_b (ib, np, a1, b1, fk1, a2, b2, fk2, dcfc, dt, dtb, cfcexp, cfcexpb)
subroutine	b10exps_b (np, dh2o, dh2ob, dcont, dcontb, dco2, dn2o, pa, dt, dtb, h2oexp, h2oexpb, conexp, conexpb, co2exp, co2expb, n2oexp, n2oexpb)
subroutine	tablup_b (nx1, nh1, dw, dwb, p, dt, dtb, s1, s1b, s2, s2b, s3, s3b, w1, p1, dwe, dpe, coef1, coef2, coef3, tran, tranb)
subroutine	h2okdis_b (ib, np, k, fkw, gkw, ne, h2oexp, h2oexpb, conexp, conexpb, th2o, th2ob, tcon, tconb, tran, tranb)
subroutine	n2okdis_b (ib, np, k, n2oexp, n2oexpb, tn2o, tn2ob, tran, tranb)
subroutine	ch4kdis_b (ib, np, k, ch4exp, ch4expb, tch4, tch4b, tran, tranb)
subroutine	comkdis_b (ib, np, k, comexp, comexpb, tcom, tcomb, tran, tranb)
subroutine	cfckdis_b (np, k, cfcexp, cfcexpb, tcfc, tcfcb, tran, tranb)
subroutine	b10kdis_b (np, k, h2oexp, h2oexpb, conexp, conexpb, co2exp, co2expb, n2oexp, n2oexpb, th2o, th2ob, tcon, tconb, tco2, tco2b, tn2o, tn2ob, tran, tranb)
subroutine	cldovlp_b (np, k1, k2, ict, icb, icx, ncld, enn, ennb, ett, ettb, cldhi, cldhib, cldmd, cldmdb, cldlw, cldlwb)
subroutine	getirtau1_b (ib, nlevs, dp, fcld, fcldb, reff, reffb, hydromets, hydrometsb, tcldlyr, tcldlyrb, enn, ennb, aib_ir1, awb_ir1, aiw_ir1, aww_ir1, aig_ir1, awg_ir1, cons_grav)

Function/Subroutine Documentation

b10exps_b()

subroutine irrad_ad::b10exps_b ( integer  np, real*8, dimension(0:np)  dh2o, real*8, dimension(0:np)  dh2ob, real*8, dimension(0:np)  dcont, real*8, dimension(0:np)  dcontb, 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)  dtb, real*8, dimension(0:np, 5)  h2oexp, real*8, dimension(0:np, 5)  h2oexpb, real*8, dimension(0:np)  conexp, real*8, dimension(0:np)  conexpb, real*8, dimension(0:np, 6)  co2exp, real*8, dimension(0:np, 6)  co2expb, real*8, dimension(0:np , 2)  n2oexp, real*8, dimension(0 :np, 2)  n2oexpb  )

private

Definition at line 2378 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

b10kdis_b()

subroutine irrad_ad::b10kdis_b ( integer  np, integer  k, real*8, dimension(0:np, 5)  h2oexp, real*8, dimension(0:np, 5)  h2oexpb, real*8, dimension(0:np)  conexp, real*8, dimension(0:np)  conexpb, real*8, dimension(0:np, 6)  co2exp, real*8, dimension(0:np, 6)  co2expb, real*8, dimension(0:np , 2)  n2oexp, real*8, dimension(0 :np, 2)  n2oexpb, real*8, dimension(6)  th2o, real*8, dimension(6)  th2ob, real*8, dimension(3)  tcon, real*8, dimension(3)  tconb, real*8, dimension(6)  tco2, real*8, dimension(6)  tco2b, real*8, dimension(4)  tn2o, real*8, dimension(4)  tn2ob, real*8  tran, real*8  tranb  )

private

Definition at line 3163 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

cfcexps_b()

subroutine irrad_ad::cfcexps_b ( 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)  dtb, real*8, dimension(0:np)  cfcexp, real*8, dimension(0:np)  cfcexpb  )

private

Definition at line 2329 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

cfckdis_b()

subroutine irrad_ad::cfckdis_b ( integer  np, integer  k, real*8, dimension(0:np)  cfcexp, real*8, dimension(0:np)  cfcexpb, real*8  tcfc, real*8  tcfcb, real*8  tran, real*8  tranb  )

private

Definition at line 3136 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

ch4exps_b()

subroutine irrad_ad::ch4exps_b ( 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)  dtb, real*8, dimension(0:np, 4)  ch4exp, real*8, dimension(0:np, 4)  ch4expb  )

private

Definition at line 2162 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

ch4kdis_b()

subroutine irrad_ad::ch4kdis_b ( integer  ib, integer  np, integer  k, real*8, dimension(0:np, 4)  ch4exp, real*8, dimension(0:np, 4)  ch4expb, real*8, dimension(4)  tch4, real*8, dimension(4)  tch4b, real*8  tran, real*8  tranb  )

private

Definition at line 2946 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

cldovlp_b()

subroutine irrad_ad::cldovlp_b ( 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)  ennb, real*8, dimension(0:np), intent(in)  ett, real*8, dimension(0:np)  ettb, real*8, intent(inout)  cldhi, real*8  cldhib, real*8, intent(inout)  cldmd, real*8  cldmdb, real*8, intent(inout)  cldlw, real*8  cldlwb  )

private

Definition at line 3301 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

comexps_b()

subroutine irrad_ad::comexps_b ( integer  ib, integer  np, real*8, dimension(0:np)  dcom, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtb, real*8, dimension(0:np, 6)  comexp, real*8, dimension(0:np, 6)  comexpb  )

private

Definition at line 2252 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

comkdis_b()

subroutine irrad_ad::comkdis_b ( integer  ib, integer  np, integer  k, real*8, dimension(0:np, 6)  comexp, real*8, dimension(0:np, 6)  comexpb, real*8, dimension(6)  tcom, real*8, dimension(6)  tcomb, real*8  tran, real*8  tranb  )

private

Definition at line 3017 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

conexps_b()

subroutine irrad_ad::conexps_b ( integer  ib, integer  np, real*8, dimension(0:np)  dcont, real*8, dimension(0:np)  dcontb, real*8, dimension(9)  xke, real*8, dimension(0:np, 3)  conexp, real*8, dimension(0:np, 3)  conexpb  )

private

Definition at line 2015 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

getirtau1_b()

subroutine irrad_ad::getirtau1_b ( 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)  fcldb, real*8, dimension(nlevs, 4), intent(in)  reff, real*8, dimension(nlevs, 4)  reffb, real*8, dimension(nlevs, 4), intent(in)  hydromets, real*8, dimension(nlevs, 4)  hydrometsb, real*8, dimension(0:nlevs)  tcldlyr, real*8, dimension(0:nlevs)  tcldlyrb, real*8, dimension(0:nlevs)  enn, real*8, dimension(0:nlevs)  ennb, 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 3423 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

h2oexps_b()

subroutine irrad_ad::h2oexps_b ( integer  ib, integer  np, real*8, dimension(0:np)  dh2o, real*8, dimension(0:np)  dh2ob, real*8, dimension(0:np)  pa, real*8, dimension(0:np)  dt, real*8, dimension(0:np)  dtb, 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)  h2oexpb  )

private

Definition at line 1898 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

h2okdis_b()

subroutine irrad_ad::h2okdis_b ( 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)  h2oexpb, real*8, dimension(0:np, 3)  conexp, real*8, dimension(0:np, 3)  conexpb, real*8, dimension(6)  th2o, real*8, dimension(6)  th2ob, real*8, dimension(3)  tcon, real*8, dimension(3)  tconb, real*8  tran, real*8  tranb  )

private

Definition at line 2735 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

irrad_b()

subroutine, public irrad_ad::irrad_b	(	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)	ta_devb,
		real*8, dimension(np), intent(in)	wa_dev,
		real*8, dimension(np)	wa_devb,
		real*8, dimension(np), intent(in)	oa_dev,
		real*8, dimension(np)	oa_devb,
		real*8, intent(in)	tb_dev,
		real*8	tb_devb,
		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)	cwc_devb,
		real*8, dimension(np), intent(in)	fcld_dev,
		real*8, dimension(np)	fcld_devb,
		integer, intent(in)	ict,
		integer, intent(in)	icb,
		real*8, dimension(np, 4), intent(in)	reff_dev,
		real*8, dimension(np, 4)	reff_devb,
		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_devb,
		real*8, dimension(np, nb), intent(inout)	ssaa_dev,
		real*8, dimension(np, nb), intent(inout)	ssaa_devb,
		real*8, dimension(np, nb), intent(inout)	asya_dev,
		real*8, dimension(np, nb), intent(inout)	asya_devb,
		real*8, dimension(np + 1)	flxu_dev,
		real*8, dimension(np+1)	flxu_devb,
		real*8, dimension(np + 1)	flxd_dev,
		real*8, dimension(np+1)	flxd_devb,
		real*8, dimension(np + 1)	dfdts_dev,
		real*8, dimension(np+1)	dfdts_devb,
		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_ad.F90.

Here is the call graph for this function:

n2oexps_b()

subroutine irrad_ad::n2oexps_b ( 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)  dtb, real*8, dimension(0:np, 4)  n2oexp, real*8, dimension(0:np, 4)  n2oexpb  )

private

Definition at line 2061 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

n2okdis_b()

subroutine irrad_ad::n2okdis_b ( integer  ib, integer  np, integer  k, real*8, dimension(0:np, 4)  n2oexp, real*8, dimension(0:np, 4)  n2oexpb, real*8, dimension(4)  tn2o, real*8, dimension(4)  tn2ob, real*8  tran, real*8  tranb  )

private

Definition at line 2868 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

planck_b()

subroutine irrad_ad::planck_b ( integer, intent(in)  ibn, real*8, dimension(6, 10), intent(in)  cb, real*8, intent(in)  t, real*8  tb, real*8  xlayer, real*8  xlayerb  )

private

Definition at line 1869 of file irrad_ad.F90.

Here is the caller graph for this function:

tablup_b()

subroutine irrad_ad::tablup_b ( integer  nx1, integer  nh1, real*8  dw, real*8  dwb, real*8  p, real*8  dt, real*8  dtb, real*8  s1, real*8  s1b, real*8  s2, real*8  s2b, real*8  s3, real*8  s3b, 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  tranb  )

private

Definition at line 2575 of file irrad_ad.F90.

Here is the call graph for this function:

Here is the caller graph for this function: