CAM
Functions/Subroutines | Variables
radsw Module Reference

Functions/Subroutines

subroutine, public rad_rrtmg_sw (lchnk, ncol, rrtmg_levs, r_state, E_pmid, E_cld, E_aer_tau, E_aer_tau_w, E_aer_tau_w_g, E_aer_tau_w_f, eccf, E_coszrs, solin, sfac, E_asdir, E_asdif, E_aldir, E_aldif, qrs, qrsc, fsnt, fsntc, fsntoa, fsutoa, fsntoac, fsnirtoa, fsnrtoac, fsnrtoaq, fsns, fsnsc, fsdsc, fsds, sols, soll, solsd, solld, fns, fcns, Nday, Nnite, IdxDay, IdxNite, clm_rand_seed, su, sd, E_cld_tau, E_cld_tau_w, E_cld_tau_w_g, E_cld_tau_w_f, old_convert)
 
subroutine, public radsw_init ()
 
subroutine, public radcswmx (lchnk, ncol, E_pint, E_pmid, E_h2ommr, E_o3mmr, E_o2mmr, E_cld, E_cicewp, E_cliqwp, E_rel, E_rei, eccf, E_coszrs, solin, E_asdir, E_asdif, E_aldir, E_aldif, nmxrgn, pmxrgn, qrs, qrsc, fsnt, fsntc, fsdtoa, fsntoa, fsutoa, fsntoac, fsnirtoa, fsnrtoac, fsnrtoaq, fsns, fsnsc, fsdsc, fsds, sols, soll, solsd, solld, fns, fcns, Nday, Nnite, IdxDay, IdxNite, E_co2mmr, E_aer_tau, E_aer_tau_w, E_aer_tau_w_g, E_aer_tau_w_f, tauxcl_out, tauxci_out)
 
subroutine raddedmx (coszrs, ndayc, abh2o, abo3, abco2, abo2, uh2o, uo3, uco2, uo2, trayoslp, pflx, ns, tauxcl, wcl, gcl, fcl, tauxci, wci, gci, fci, aer_tau, aer_tau_w, aer_tau_w_g, aer_tau_w_f, rdir, rdif, tdir, tdif, explay, rdirc, rdifc, tdirc, tdifc, explayc)
 
subroutine, public radsw_init (gravx)
 

Variables

real(r8), dimension(1:nbndsw) fractional_solar_irradiance
 
real(r8), dimension(1:nbndsw) solar_band_irrad
 
logical pergro_mods = .false.
 
real(r8) gravit
 
real(r8) rga
 
real(r8) sslp
 

Function/Subroutine Documentation

◆ rad_rrtmg_sw()

subroutine, public radsw::rad_rrtmg_sw ( integer, intent(in)  lchnk,
integer, intent(in)  ncol,
integer, intent(in)  rrtmg_levs,
type(rrtmg_state_t), intent(in)  r_state,
real(r8), dimension(pcols,pver), intent(in)  E_pmid,
real(r8), dimension(pcols,pver), intent(in)  E_cld,
real(r8), dimension (pcols, 0:pver, nbndsw), intent(in)  E_aer_tau,
real(r8), dimension (pcols, 0:pver, nbndsw), intent(in)  E_aer_tau_w,
real(r8), dimension(pcols, 0:pver, nbndsw), intent(in)  E_aer_tau_w_g,
real(r8), dimension(pcols, 0:pver, nbndsw), intent(in)  E_aer_tau_w_f,
real(r8), intent(in)  eccf,
real(r8), dimension(pcols), intent(in)  E_coszrs,
real(r8), dimension(pcols), intent(out)  solin,
real(r8), dimension(nbndsw), intent(in)  sfac,
real(r8), dimension(pcols), intent(in)  E_asdir,
real(r8), dimension(pcols), intent(in)  E_asdif,
real(r8), dimension(pcols), intent(in)  E_aldir,
real(r8), dimension(pcols), intent(in)  E_aldif,
real(r8), dimension (pcols,pver), intent(out)  qrs,
real(r8), dimension(pcols,pver), intent(out)  qrsc,
real(r8), dimension(pcols), intent(out)  fsnt,
real(r8), dimension(pcols), intent(out)  fsntc,
real(r8), dimension(pcols), intent(out)  fsntoa,
real(r8), dimension(pcols), intent(out)  fsutoa,
real(r8), dimension(pcols), intent(out)  fsntoac,
real(r8), dimension(pcols), intent(out)  fsnirtoa,
real(r8), dimension(pcols), intent(out)  fsnrtoac,
real(r8), dimension(pcols), intent(out)  fsnrtoaq,
real(r8), dimension(pcols), intent(out)  fsns,
real(r8), dimension(pcols), intent(out)  fsnsc,
real(r8), dimension(pcols), intent(out)  fsdsc,
real(r8), dimension(pcols), intent(out)  fsds,
real(r8), dimension(pcols), intent(out)  sols,
real(r8), dimension(pcols), intent(out)  soll,
real(r8), dimension(pcols), intent(out)  solsd,
real(r8), dimension(pcols), intent(out)  solld,
real(r8), dimension(pcols,pverp), intent(out)  fns,
real(r8), dimension(pcols,pverp), intent(out)  fcns,
integer, intent(in)  Nday,
integer, intent(in)  Nnite,
integer, dimension(pcols), intent(in)  IdxDay,
integer, dimension(pcols), intent(in)  IdxNite,
integer, dimension(pcols,4), intent(inout)  clm_rand_seed,
real(r8), dimension(:,:,:), pointer  su,
real(r8), dimension(:,:,:), pointer  sd,
real(r8), dimension (nbndsw, pcols, pver), intent(in), optional  E_cld_tau,
real(r8), dimension (nbndsw, pcols, pver), intent(in), optional  E_cld_tau_w,
real(r8), dimension(nbndsw, pcols, pver), intent(in), optional  E_cld_tau_w_g,
real(r8), dimension(nbndsw, pcols, pver), intent(in), optional  E_cld_tau_w_f,
logical, intent(in), optional  old_convert 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ radcswmx()

subroutine, public radsw::radcswmx ( integer, intent(in)  lchnk,
integer, intent(in)  ncol,
real(r8), dimension(pcols,pverp), intent(in)  E_pint,
real(r8), dimension(pcols,pver), intent(in)  E_pmid,
real(r8), dimension(pcols,pver), intent(in)  E_h2ommr,
real(r8), dimension(pcols,pver), intent(in)  E_o3mmr,
real(r8), dimension(pcols), intent(in)  E_o2mmr,
real(r8), dimension(pcols,pver), intent(in)  E_cld,
real(r8), dimension(pcols,pver), intent(in)  E_cicewp,
real(r8), dimension(pcols,pver), intent(in)  E_cliqwp,
real(r8), dimension(pcols,pver), intent(in)  E_rel,
real(r8), dimension(pcols,pver), intent(in)  E_rei,
real(r8), intent(in)  eccf,
real(r8), dimension(pcols), intent(in)  E_coszrs,
real(r8), dimension(pcols), intent(out)  solin,
real(r8), dimension(pcols), intent(in)  E_asdir,
real(r8), dimension(pcols), intent(in)  E_asdif,
real(r8), dimension(pcols), intent(in)  E_aldir,
real(r8), dimension(pcols), intent(in)  E_aldif,
integer, dimension(pcols), intent(inout)  nmxrgn,
real(r8), dimension(pcols,pverp), intent(inout)  pmxrgn,
real(r8), dimension (pcols,pver), intent(out)  qrs,
real(r8), dimension(pcols,pver), intent(out)  qrsc,
real(r8), dimension(pcols), intent(out)  fsnt,
real(r8), dimension(pcols), intent(out)  fsntc,
real(r8), dimension(pcols), intent(out)  fsdtoa,
real(r8), dimension(pcols), intent(out)  fsntoa,
real(r8), dimension(pcols), intent(out)  fsutoa,
real(r8), dimension(pcols), intent(out)  fsntoac,
real(r8), dimension(pcols), intent(out)  fsnirtoa,
real(r8), dimension(pcols), intent(out)  fsnrtoac,
real(r8), dimension(pcols), intent(out)  fsnrtoaq,
real(r8), dimension(pcols), intent(out)  fsns,
real(r8), dimension(pcols), intent(out)  fsnsc,
real(r8), dimension(pcols), intent(out)  fsdsc,
real(r8), dimension(pcols), intent(out)  fsds,
real(r8), dimension(pcols), intent(out)  sols,
real(r8), dimension(pcols), intent(out)  soll,
real(r8), dimension(pcols), intent(out)  solsd,
real(r8), dimension(pcols), intent(out)  solld,
real(r8), dimension(pcols,pverp), intent(out)  fns,
real(r8), dimension(pcols,pverp), intent(out)  fcns,
integer, intent(in)  Nday,
integer, intent(in)  Nnite,
integer, dimension(pcols), intent(in)  IdxDay,
integer, dimension(pcols), intent(in)  IdxNite,
real(r8), dimension(pcols), intent(in)  E_co2mmr,
real(r8), dimension (pcols,0:pver,nswbands), intent(in)  E_aer_tau,
real(r8), dimension (pcols,0:pver,nswbands), intent(in)  E_aer_tau_w,
real(r8), dimension(pcols,0:pver,nswbands), intent(in)  E_aer_tau_w_g,
real(r8), dimension(pcols,0:pver,nswbands), intent(in)  E_aer_tau_w_f,
real(r8), dimension(pcols,pver), intent(out)  tauxcl_out,
real(r8), dimension(pcols,pver), intent(out)  tauxci_out 
)
Here is the call graph for this function:
Here is the caller graph for this function:

◆ raddedmx()

subroutine radsw::raddedmx ( real(r8), dimension(pcols), intent(in)  coszrs,
integer, intent(in)  ndayc,
real(r8), intent(in)  abh2o,
real(r8), intent(in)  abo3,
real(r8), intent(in)  abco2,
real(r8), intent(in)  abo2,
real(r8), dimension(pcols,0:pver), intent(in)  uh2o,
real(r8), dimension(pcols,0:pver), intent(in)  uo3,
real(r8), dimension(pcols,0:pver), intent(in)  uco2,
real(r8), dimension(pcols,0:pver), intent(in)  uo2,
real(r8), intent(in)  trayoslp,
real(r8), dimension(pcols,0:pverp), intent(in)  pflx,
integer, intent(in)  ns,
real(r8), dimension(pcols,0:pver), intent(in)  tauxcl,
real(r8), dimension(pcols,0:pver), intent(in)  wcl,
real(r8), dimension(pcols,0:pver), intent(in)  gcl,
real(r8), dimension(pcols,0:pver), intent(in)  fcl,
real(r8), dimension(pcols,0:pver), intent(in)  tauxci,
real(r8), dimension(pcols,0:pver), intent(in)  wci,
real(r8), dimension(pcols,0:pver), intent(in)  gci,
real(r8), dimension(pcols,0:pver), intent(in)  fci,
real(r8), dimension(pcols,0:pver), intent(inout)  aer_tau,
real(r8), dimension(pcols,0:pver), intent(inout)  aer_tau_w,
real(r8), dimension(pcols,0:pver), intent(inout)  aer_tau_w_g,
real(r8), dimension(pcols,0:pver), intent(inout)  aer_tau_w_f,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  rdir,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  rdif,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  tdir,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  tdif,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  explay,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  rdirc,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  rdifc,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  tdirc,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  tdifc,
real(r8), dimension(nswbands,pcols,0:pver), intent(inout)  explayc 
)
Here is the caller graph for this function:

◆ radsw_init() [1/2]

subroutine, public radsw::radsw_init ( )
Here is the call graph for this function:
Here is the caller graph for this function:

◆ radsw_init() [2/2]

subroutine, public radsw::radsw_init ( real(r8), intent(in)  gravx)

Variable Documentation

◆ fractional_solar_irradiance

real(r8), dimension(1:nbndsw) radsw::fractional_solar_irradiance
private

◆ gravit

real(r8) radsw::gravit
private

◆ pergro_mods

logical radsw::pergro_mods = .false.
private

◆ rga

real(r8) radsw::rga
private

◆ solar_band_irrad

real(r8), dimension(1:nbndsw) radsw::solar_band_irrad
private

◆ sslp

real(r8) radsw::sslp
private