CAM
|
Functions/Subroutines | |
subroutine, public | jeuv_init (euvacdat_file, photon_file, electron_file, indexer) |
subroutine, public | jeuv (nlev, zen, occ, o2cc, n2cc, zkm, euv_prates) |
subroutine, public | heuv (nlev, zen, occ, o2cc, n2cc, o_vmr, o2_vmr, n2_vmr, cparg, mw, zkm, euv_hrates, kbot) |
Variables | |
integer, parameter, public | neuv = 26 |
integer, parameter, public | nionrates = 11 |
integer, parameter | nmaj = 3 |
integer, parameter | nspecies = 5 |
integer, parameter | nstat = 6 |
integer, parameter | lmax = 23 |
real(r8), parameter | heat_eff_fac = .05_r8 |
real(r8), parameter | hc = 6.62608e-34_r8 * 2.9979e8_r8 / 1.e-9_r8 |
real(r8) | d2r |
real(r8), dimension(lmax, nspecies) | sigabs |
real(r8), dimension(lmax, nstat, nmaj) | branch_p = 0._r8 |
real(r8), dimension(lmax, nstat, nmaj) | branch_e = 0._r8 |
real(r8), dimension(lmax) | energy |
subroutine, public mo_jeuv::heuv | ( | integer, intent(in) | nlev, |
real(r8), intent(in) | zen, | ||
real(r8), dimension(nlev), intent(in) | occ, | ||
real(r8), dimension(nlev), intent(in) | o2cc, | ||
real(r8), dimension(nlev), intent(in) | n2cc, | ||
real(r8), dimension(nlev), intent(in) | o_vmr, | ||
real(r8), dimension(nlev), intent(in) | o2_vmr, | ||
real(r8), dimension(nlev), intent(in) | n2_vmr, | ||
real(r8), dimension(nlev), intent(in) | cparg, | ||
real(r8), dimension(nlev), intent(in) | mw, | ||
real(r8), dimension(nlev), intent(in) | zkm, | ||
real(r8), dimension(:), intent(out) | euv_hrates, | ||
integer, intent(in) | kbot | ||
) |
subroutine, public mo_jeuv::jeuv | ( | integer, intent(in) | nlev, |
real(r8), intent(in) | zen, | ||
real(r8), dimension(nlev), intent(in) | occ, | ||
real(r8), dimension(nlev), intent(in) | o2cc, | ||
real(r8), dimension(nlev), intent(in) | n2cc, | ||
real(r8), dimension(nlev), intent(in) | zkm, | ||
real(r8), dimension(:,:), intent(out) | euv_prates | ||
) |
subroutine, public mo_jeuv::jeuv_init | ( | character(len=*), intent(in) | euvacdat_file, |
character(len=*), intent(in) | photon_file, | ||
character(len=*), intent(in) | electron_file, | ||
integer, dimension(:), intent(inout), optional | indexer | ||
) |
|
private |
|
private |
|
private |
|
private |
|
private |
integer, parameter, public mo_jeuv::neuv = 26 |
integer, parameter, public mo_jeuv::nionrates = 11 |
|
private |
|
private |
|
private |