radupdate()

subroutine gfs_rrtmg_setup::radupdate ( integer, dimension(:), intent(in)  idate, integer, dimension(:), intent(in)  jdate, real (kind=kind_phys), intent(in)  deltsw, real (kind=kind_phys), intent(in)  deltim, logical, intent(in)  lsswr, integer, intent(in)  me, integer, intent(in)  iaermdl, integer, intent(in)  iaerflg, integer, intent(in)  isol, character(len=26), intent(in)  aeros_file, real (kind=kind_phys), intent(out)  slag, real (kind=kind_phys), intent(out)  sdec, real (kind=kind_phys), intent(out)  cdec, real (kind=kind_phys), intent(out)  solcon, real (kind=kind_phys), intent(in)  con_pi, character(len=26), intent(in)  co2dat_file, character(len=26), intent(in)  co2gbl_file, integer, intent(in)  ictm, integer, intent(in)  ico2, integer, intent(in)  ntoz, integer, intent(out)  errflg, character(len=*), intent(out)  errmsg  )

private

Parameters

idate	NCEP absolute date and time of intial condition (year,month,day,time-zone,hour,minute,second, mil-second)
jdate	NCEP absolute date and time at forecast time (year,month,day,time-zone,hour,minute,second, mil-second)
deltsw	SW radiation calling time interval in seconds
deltim	model advancing time-step duration in seconds
lsswr	logical control flag for SW radiation calculations
me	print control flag
slag	equation of time in radians
sdec,cdec	sine and cosine of the solar declination angle
solcon	solar constant adjusted by sun-earth distance \((W/m^2)\)

General Algorithm

1. Set up time stamp at fcst time and that for green house gases (currently co2 only)
2. Call module_radiation_astronomy::sol_update(), yearly update, no time interpolation.
3. Call module_radiation_aerosols::aer_update(), monthly update, no time interpolation
4. Call co2 and other gases update routine: module_radiation_gases::gas_update()
5. Call surface update routine (currently not needed)
6. Call clouds update routine (currently not needed)

References module_radiation_gases::gas_update(), iyear0, loz1st, month0, monthd, and module_radiation_astronomy::sol_update().

Referenced by gfs_rrtmg_setup_timestep_init().

Here is the call graph for this function:

Here is the caller graph for this function: