Index | Rundeck: P1SoM40 | Created: Mon May 20 03:30:14 EDT 2024 |
radiance_calc | Module: | File: radiance_calc.F90 |
Author :
Version:
Declaration:
subroutine radiance_calc(control, dimen, spectrum, atm, cld, aer, bound, radout)
- realk : used from realtype_rd
- strspecdata : used from def_spectrum
- strdim : used from def_dimen
- strctrl : used from def_control
- stratm : used from def_atm
- strcld : used from def_cld
- straer : used from def_aer
- strbound : used from def_bound
- strout : used from def_out
- allocate_out : used from def_out
- ip_h2o : used from gas_list_pcf
- ip_air : used from gas_list_pcf
- molar_weight : used from gas_list_pcf
- mol_weight_air : used from rad_ccf
- errormessagelength : used from errormessagelength_mod
- lhook : used from yomhook
- dr_hook : used from yomhook
- jprb : used from parkind1
- jpim : used from parkind1
- ereport : used from ereport_mod
- control :
type(strctrl), intent(in)
- dimen :
type(strdim), intent(in)
- spectrum :
type(strspecdata), intent(in)
- atm :
type(stratm), intent(in)
- cld :
type(strcld), intent(in)
- aer :
type(straer), intent(in)
- bound :
type(strbound), intent(in)
- radout :
type(strout), intent(out)
- ss_prop :
type(str_ss_prop)
- l_grey_cont :
logical
- nd_esft_max :
integer
- major_abs :
integer
- zhook_in :
integer(kind=jpim), parameter
- Initial Value
= 0
- zhook_out :
integer(kind=jpim), parameter
- Initial Value
= 1
- zhook_handle :
real(kind=jprb)
- ierr :
integer
- Initial Value
= i_normal
- cmessage :
character(len=errormessagelength)
- routinename :
character(len=*), parameter
- Initial Value
= 'RADIANCE_CALC'