|
IPIM
|
Functions/Subroutines | |
| subroutine | densig_90 (nalt, e, Eth, denion, densneut, ind_flux, densig) |
| Dans ce module on regroupe les routines de trans.f avec des appels aux nouvelles matrices construites dans init_kinetic. More... | |
| subroutine | normal_1nrj_step_90 (nalt, Ne_supra, ve_supra, Tep_supra, Tet_supra, denelc, Eth, e, densig, qprim, fluxprim, ctot, nlayer, densneut, Qeflux, chaleur_supra, elosse, nbren, nbralt, nbrango2) |
| subroutine | energy_loop1_90 (colden, nalt, n, dtau) |
| subroutine | energy_loop2_90 (n, nalt, densneut, ctot, ssalb) |
| subroutine | energy_loop3_90 (nalt, densig, elosse, n, engdd, e, E_cross, qprim, fluxprim, ctot, densneut, nlayer, nbren, nbralt, nbrango2) |
| subroutine | qmstr (n, mmax, engdd, densneut, ctot, elosse, qint, qntsty, omdeg, omsec, weitang, nbren, nbralt, nbrsp, nbrango2) |
| subroutine | production_ions_90 (nalt, qntsty, densneut, prodionsec_90, nbren, nbralt, nbrango2, prodion, prodionprim_90, prodiontot_90) |
| real *8 function | f_surface (x) |
| subroutine densig_90 | ( | integer, intent(in) | nalt, |
| real, dimension(:), intent(in) | e, | ||
| real*8, dimension(:), intent(in) | Eth, | ||
| real, dimension(:,:), intent(in) | denion, | ||
| real, dimension(:,:), intent(in) | densneut, | ||
| logical, dimension(:,:), intent(out) | ind_flux, | ||
| real*8, dimension(:,:), intent(out) | densig | ||
| ) |
Dans ce module on regroupe les routines de trans.f avec des appels aux nouvelles matrices construites dans init_kinetic.
| subroutine energy_loop1_90 | ( | real*8, dimension(:,:), intent(in) | colden, |
| integer, intent(in) | nalt, | ||
| integer, intent(in) | n, | ||
| real*8, dimension(:), intent(inout) | dtau | ||
| ) |
| subroutine energy_loop2_90 | ( | integer, intent(in) | n, |
| integer, intent(in) | nalt, | ||
| real, dimension(:,:), intent(in) | densneut, | ||
| real*8, dimension(:), intent(inout) | ctot, | ||
| real*8, dimension(:), intent(inout) | ssalb | ||
| ) |
| subroutine energy_loop3_90 | ( | integer, intent(in) | nalt, |
| real*8, dimension(:,:), intent(inout) | densig, | ||
| real*8, dimension(:,:), intent(in) | elosse, | ||
| integer, intent(in) | n, | ||
| real, dimension(:), intent(in) | engdd, | ||
| real, dimension(:), intent(in) | e, | ||
| real, dimension(:), intent(in) | E_cross, | ||
| real*8, dimension(nbren,nbralt,-nbrango2:nbrango2), intent(out) | qprim, | ||
| real*8, dimension(:,:), intent(in) | fluxprim, | ||
| real*8, dimension(:), intent(inout) | ctot, | ||
| real, dimension(:,:), intent(in) | densneut, | ||
| integer, intent(in) | nlayer, | ||
| integer, intent(in) | nbren, | ||
| integer, intent(in) | nbralt, | ||
| integer, intent(in) | nbrango2 | ||
| ) |
| subroutine normal_1nrj_step_90 | ( | integer, intent(in) | nalt, |
| real, dimension(:), intent(out) | Ne_supra, | ||
| real, dimension(:), intent(out) | ve_supra, | ||
| real, dimension(:), intent(out) | Tep_supra, | ||
| real, dimension(:), intent(out) | Tet_supra, | ||
| real, dimension(:), intent(in) | denelc, | ||
| real*8, dimension(:), intent(in) | Eth, | ||
| real, dimension(:), intent(in) | e, | ||
| real*8, dimension(:,:), intent(inout) | densig, | ||
| real*8, dimension(nbren,nbralt,-nbrango2:nbrango2), intent(inout) | qprim, | ||
| real*8, dimension(:,:), intent(in) | fluxprim, | ||
| real*8, dimension(:), intent(inout) | ctot, | ||
| integer, intent(in) | nlayer, | ||
| real, dimension(:,:), intent(in) | densneut, | ||
| real, dimension(:), intent(out) | Qeflux, | ||
| real, dimension(:), intent(out) | chaleur_supra, | ||
| real*8, dimension(:,:), intent(inout) | elosse, | ||
| integer, intent(in) | nbren, | ||
| integer, intent(in) | nbralt, | ||
| integer, intent(in) | nbrango2 | ||
| ) |
| subroutine qmstr | ( | integer, intent(in) | n, |
| integer, intent(in) | mmax, | ||
| real, dimension(nbren), intent(in) | engdd, | ||
| real, dimension(8,nbralt), intent(in) | densneut, | ||
| real*8, dimension(2*nbralt-1), intent(in) | ctot, | ||
| real*8, dimension(nbren,nbralt), intent(in) | elosse, | ||
| real*8, dimension(2*nbralt-1,-nbrango2:nbrango2), intent(out) | qint, | ||
| real*8, dimension(nbren,2*nbralt-1,-nbrango2:nbrango2), intent(in) | qntsty, | ||
| real, dimension(nbren,nbrsp), intent(inout) | omdeg, | ||
| real, dimension(nbren,nbrsp), intent(inout) | omsec, | ||
| real, dimension(nbrango2), intent(in) | weitang, | ||
| integer, intent(in) | nbren, | ||
| integer, intent(in) | nbralt, | ||
| integer, intent(in) | nbrsp, | ||
| integer, intent(in) | nbrango2 | ||
| ) |
1.8.5
