Loading [MathJax]/extensions/tex2jax.js
CCPP SciDoc  v6.0.0
Common Community Physics Package Developed at DTC
v6.0.0
All Classes Namespaces Functions Variables Modules Pages

◆ dcyc2t3_run()

subroutine, public dcyc2t3::dcyc2t3_run ( real(kind=kind_phys), intent(in)  solhr,
real(kind=kind_phys), intent(in)  slag,
real(kind=kind_phys), intent(in)  sdec,
real(kind=kind_phys), intent(in)  cdec,
real(kind=kind_phys), dimension(:), intent(in)  sinlat,
real(kind=kind_phys), dimension(:), intent(in)  coslat,
real(kind_phys), intent(in)  con_g,
real(kind_phys), intent(in)  con_cp,
real(kind_phys), intent(in)  con_pi,
real(kind_phys), intent(in)  con_sbc,
real(kind=kind_phys), dimension(:), intent(in)  xlon,
real(kind=kind_phys), dimension(:), intent(in)  coszen,
real(kind=kind_phys), dimension(:), intent(in)  tsfc_lnd,
real(kind=kind_phys), dimension(:), intent(in)  tsfc_ice,
real(kind=kind_phys), dimension(:), intent(in)  tsfc_wat,
real(kind=kind_phys), dimension(:), intent(in)  tf,
real(kind=kind_phys), dimension(:), intent(in)  tsflw,
real(kind=kind_phys), dimension(:), intent(in)  tsfc,
real(kind=kind_phys), dimension(:), intent(in)  sfcemis_lnd,
real(kind=kind_phys), dimension(:), intent(in)  sfcemis_ice,
real(kind=kind_phys), dimension(:), intent(in)  sfcemis_wat,
real(kind=kind_phys), dimension(:), intent(in)  sfcdsw,
real(kind=kind_phys), dimension(:), intent(in)  sfcnsw,
real(kind=kind_phys), dimension(:), intent(in)  sfcdlw,
real(kind=kind_phys), dimension(:,:), intent(in)  swh,
real(kind=kind_phys), dimension(:,:), intent(in)  swhc,
real(kind=kind_phys), dimension(:,:), intent(in)  hlw,
real(kind=kind_phys), dimension(:,:), intent(in)  hlwc,
real(kind=kind_phys), dimension(:), intent(in)  sfcnirbmu,
real(kind=kind_phys), dimension(:), intent(in)  sfcnirdfu,
real(kind=kind_phys), dimension(:), intent(in)  sfcvisbmu,
real(kind=kind_phys), dimension(:), intent(in)  sfcvisdfu,
real(kind=kind_phys), dimension(:), intent(in)  sfcnirbmd,
real(kind=kind_phys), dimension(:), intent(in)  sfcnirdfd,
real(kind=kind_phys), dimension(:), intent(in)  sfcvisbmd,
real(kind=kind_phys), dimension(:), intent(in)  sfcvisdfd,
integer, intent(in)  im,
integer, intent(in)  levs,
real(kind=kind_phys), intent(in)  deltim,
real(kind=kind_phys), intent(in)  fhswr,
logical, dimension(:), intent(in)  dry,
logical, dimension(:), intent(in)  icy,
logical, dimension(:), intent(in)  wet,
logical, intent(in)  damp_LW_fluxadj,
real(kind=kind_phys), intent(in)  lfnc_k,
real(kind=kind_phys), intent(in)  lfnc_p0,
logical, intent(in)  use_LW_jacobian,
real(kind=kind_phys), dimension(:), intent(in)  sfculw,
real(kind=kind_phys), dimension(:,:), intent(in)  fluxlwUP_jac,
real(kind=kind_phys), dimension(:,:), intent(in)  t_lay,
real(kind=kind_phys), dimension(:,:), intent(in)  p_lay,
real(kind=kind_phys), dimension(:,:), intent(in)  p_lev,
real(kind=kind_phys), dimension(:,:), intent(in)  flux2D_lwUP,
real(kind=kind_phys), dimension(:,:), intent(in)  flux2D_lwDOWN,
logical, intent(in)  pert_radtend,
logical, intent(in)  do_sppt,
logical, intent(in)  ca_global,
real(kind=kind_phys), dimension(:), intent(in)  tsfc_radtime,
real(kind=kind_phys), dimension(:,:), intent(inout)  dtdt,
real(kind=kind_phys), dimension(:,:), intent(inout)  dtdtnp,
real(kind=kind_phys), dimension(:,:), intent(inout)  htrlw,
real(kind=kind_phys), dimension(:), intent(out)  adjsfcdsw,
real(kind=kind_phys), dimension(:), intent(out)  adjsfcnsw,
real(kind=kind_phys), dimension(:), intent(out)  adjsfcdlw,
real(kind=kind_phys), dimension(:), intent(out)  adjsfculw,
real(kind=kind_phys), dimension(:), intent(out)  adjsfculw_lnd,
real(kind=kind_phys), dimension(:), intent(out)  adjsfculw_ice,
real(kind=kind_phys), dimension(:), intent(out)  adjsfculw_wat,
real(kind=kind_phys), dimension(:), intent(out)  xmu,
real(kind=kind_phys), dimension(:), intent(out)  xcosz,
real(kind=kind_phys), dimension(:), intent(out)  adjnirbmu,
real(kind=kind_phys), dimension(:), intent(out)  adjnirdfu,
real(kind=kind_phys), dimension(:), intent(out)  adjvisbmu,
real(kind=kind_phys), dimension(:), intent(out)  adjvisdfu,
real(kind=kind_phys), dimension(:), intent(out)  adjnirbmd,
real(kind=kind_phys), dimension(:), intent(out)  adjnirdfd,
real(kind=kind_phys), dimension(:), intent(out)  adjvisbmd,
real(kind=kind_phys), dimension(:), intent(out)  adjvisdfd,
character(len=*), intent(out)  errmsg,
integer, intent(out)  errflg 
)
  • LW time-step adjustment:
  • normalize by average value over radiation period for daytime.
  • adjust sfc net and downward SW fluxes for zenith angle changes.