FV3 Bundle
Functions/Subroutines
sorad_ad Module Reference

Functions/Subroutines

subroutine, public sorad_b (m, np, nb, cosz_dev, pl_dev, ta_dev, ta_devb, wa_dev, wa_devb, oa_dev, oa_devb, co2, cwc_dev, cwc_devb, fcld_dev, fcld_devb, ict, icb, reff_dev, reff_devb, hk_uv, hk_ir, taua_dev, taua_devb, ssaa_dev, ssaa_devb, asya_dev, asya_devb, rsuvbm_dev, rsuvdf_dev, rsirbm_dev, rsirdf_dev, flx_dev, flx_devb, 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_b (tau1, tau1b, ssc1, ssc1b, g01, g01b, cza1, rr1, rr1b, tt1, tt1b, td1, td1b)
 
subroutine getvistau1_b (nlevs, cosz, dp, fcld, fcldb, reff, reffb, hydromets, hydrometsb, ict, icb, taubeam, taubeamb, taudiff, taudiffb, asycl, asyclb, 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_b (ib, nlevs, cosz, dp, fcld, fcldb, reff, reffb, hydromets, hydrometsb, ict, icb, taubeam, taubeamb, taudiff, taudiffb, asycl, asyclb, ssacl, ssaclb, 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_b()

subroutine sorad_ad::deledd_b ( real*8, intent(in)  tau1,
real*8  tau1b,
real*8, intent(in)  ssc1,
real*8  ssc1b,
real*8, intent(in)  g01,
real*8  g01b,
real*8, intent(in)  cza1,
real*8  rr1,
real*8  rr1b,
real*8  tt1,
real*8  tt1b,
real*8  td1,
real*8  td1b 
)
private

Definition at line 2657 of file sorad_ad.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ getnirtau1_b()

subroutine sorad_ad::getnirtau1_b ( 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)  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,
integer, intent(in)  ict,
integer, intent(in)  icb,
real*8, dimension(nlevs, 4)  taubeam,
real*8, dimension(nlevs, 4)  taubeamb,
real*8, dimension(nlevs, 4)  taudiff,
real*8, dimension(nlevs, 4)  taudiffb,
real*8, dimension(nlevs)  asycl,
real*8, dimension(nlevs)  asyclb,
real*8, dimension(nlevs)  ssacl,
real*8, dimension(nlevs)  ssaclb,
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 3430 of file sorad_ad.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ getvistau1_b()

subroutine sorad_ad::getvistau1_b ( 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)  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,
integer, intent(in)  ict,
integer, intent(in)  icb,
real*8, dimension(nlevs, 4)  taubeam,
real*8, dimension(nlevs, 4)  taubeamb,
real*8, dimension(nlevs, 4)  taudiff,
real*8, dimension(nlevs, 4)  taudiffb,
real*8, dimension(nlevs)  asycl,
real*8, dimension(nlevs)  asyclb,
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 2887 of file sorad_ad.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ sorad_b()

subroutine, public sorad_ad::sorad_b ( 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_devb,
real*8, dimension(m, np)  wa_dev,
real*8, dimension(m, np)  wa_devb,
real*8, dimension(m, np)  oa_dev,
real*8, dimension(m, np)  oa_devb,
real*8  co2,
real*8, dimension(m, np, 4)  cwc_dev,
real*8, dimension(m, np, 4)  cwc_devb,
real*8, dimension(m, np)  fcld_dev,
real*8, dimension(m, np)  fcld_devb,
integer  ict,
integer  icb,
real*8, dimension(m, np, 4)  reff_dev,
real*8, dimension(m, np, 4)  reff_devb,
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_devb,
real*8, dimension(m, np, nb)  ssaa_dev,
real*8, dimension(m, np, nb)  ssaa_devb,
real*8, dimension(m, np, nb)  asya_dev,
real*8, dimension(m, np, nb)  asya_devb,
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_devb,
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_ad.F90.

Here is the call graph for this function: