user_routines_galaxy.f90 File Reference

Modules
module	user_routines_galaxy
	Contains the subroutines to specify the stellar emission and dust density distribution for the analytical galaxy geometry.

Functions/Subroutines
subroutine	user_routines_galaxy::read_input_galaxy
	Reads input file for the grid creation for the galaxy 2D model. More...
subroutine	user_routines_galaxy::initialize_input_galaxy
	Initialize variables specific for the galaxy grid creation program. More...
subroutine	user_routines_galaxy::check_lambda_list_galaxy
	Checks that lambda_arr contains at least two wavelengths of which one is equal to 0.443 um (B-band). This wavelength is necessary for calc_scaling_factors_dust() to work properly. More...
subroutine	user_routines_galaxy::check_grid_type
subroutine	user_routines_galaxy::calc_luminosities_pt11
	Calculates luminosity of the different stellar components depending on wavelength and intensity parameters old and sfr. The unit luminosities are those from Popescu et al. 2011. More...
subroutine	user_routines_galaxy::calc_luminosities
	Calculates luminosity of the different stellar components depending on wavelength and intensity parameters old and sfr. The unit luminosities are those from the input files file_old_star_sed() and file_young_star_sed(). More...
subroutine	user_routines_galaxy::calc_scaling_factors_stars
subroutine	user_routines_galaxy::calc_scaling_factors_dust
subroutine	user_routines_galaxy::interpolate_kext
	Interpolates value of kext given wavelength lambda. More...
real(kind=real64) function	user_routines_galaxy::av_disk (x, y, z, cellsize, disk_comp, disk_type_ID)
real(kind=real64) function	user_routines_galaxy::av_star_bulge (x, y, z, cellsize)
subroutine	user_routines_galaxy::create_grid_arrays_galaxy
subroutine	user_routines_galaxy::fix_dens_stars_arrays
subroutine	user_routines_galaxy::print_3d_grid_file_galaxy
subroutine	user_routines_galaxy::print_profiles_stars
subroutine	user_routines_galaxy::set_galaxy_input
subroutine	user_routines_galaxy::assign_dens_to_parent
subroutine	user_routines_galaxy::read_stellar_sed
	Reads the input stellar emission SEDs in unit luminosities from the input files file_old_star_sed() and file_young_star_sed(). More...
subroutine	user_routines_galaxy::assign_disk_type_id (disk_type, disk_type_ID)
	Assigns the right value of the disk_type_ID() depending on the input disk_type(). Using numbers instead of character variables is more efficient in IF statement and less error prone while modifying the code. More...

Variables
real(kind=real64)	user_routines_galaxy::lambda_in
real(kind=real64)	user_routines_galaxy::lambda_min
real(kind=real64)	user_routines_galaxy::lambda_max
real(kind=real64)	user_routines_galaxy::old
real(kind=real64)	user_routines_galaxy::lnu_old
real(kind=real64)	user_routines_galaxy::hs_disk_b
real(kind=real64)	user_routines_galaxy::zs_disk
real(kind=real64)	user_routines_galaxy::zs_disk_r1
real(kind=real64)	user_routines_galaxy::zs_disk_rsun
real(kind=real64)	user_routines_galaxy::hsin
real(kind=real64)	user_routines_galaxy::hs_disk
real(kind=real64)	user_routines_galaxy::hs_disk2
real(kind=real64)	user_routines_galaxy::eta_disk0
real(kind=real64)	user_routines_galaxy::chi_disk
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::hs_disk_arr
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::hs_disk2_arr
integer, dimension(:), allocatable	user_routines_galaxy::id_hs_disk_arr
integer, parameter	user_routines_galaxy::maxsize_hs_disk_arr = 1000
real(kind=real64)	user_routines_galaxy::theta_disk_ellipt
real(kind=real64)	user_routines_galaxy::sfr
real(kind=real64)	user_routines_galaxy::lnu_sf
real(kind=real64)	user_routines_galaxy::hs_tdisk
real(kind=real64)	user_routines_galaxy::hs_tdisk2
real(kind=real64)	user_routines_galaxy::zs_tdisk
real(kind=real64)	user_routines_galaxy::hs1in
real(kind=real64)	user_routines_galaxy::eta_tdisk0
real(kind=real64)	user_routines_galaxy::zs_tdisk_r1
real(kind=real64)	user_routines_galaxy::zs_tdisk_rsun
real(kind=real64)	user_routines_galaxy::chi_tdisk
real(kind=real64)	user_routines_galaxy::theta_tdisk_ellipt
real(kind=real64)	user_routines_galaxy::reff
real(kind=real64)	user_routines_galaxy::lnu_bulge
real(kind=real64)	user_routines_galaxy::acap_bulge
real(kind=real64)	user_routines_galaxy::ellipt
real(kind=real64)	user_routines_galaxy::ellipt_xy
real(kind=real64)	user_routines_galaxy::mtrunc
real(kind=real64)	user_routines_galaxy::bd_ratio
real(kind=real64)	user_routines_galaxy::eta_bulge0
integer	user_routines_galaxy::nsersic
real(kind=real64)	user_routines_galaxy::theta_bulge
real(kind=real64)	user_routines_galaxy::lnu_tot
real(kind=real64)	user_routines_galaxy::hd_disk
real(kind=real64)	user_routines_galaxy::hd_disk2
real(kind=real64)	user_routines_galaxy::zd_disk
real(kind=real64)	user_routines_galaxy::zd_disk_r1
real(kind=real64)	user_routines_galaxy::zd_disk_rsun
real(kind=real64)	user_routines_galaxy::hdin
real(kind=real64)	user_routines_galaxy::tau1
real(kind=real64)	user_routines_galaxy::kext_disk0
real(kind=real64)	user_routines_galaxy::chi_dust_disk
real(kind=real64)	user_routines_galaxy::theta_dust_disk_ellipt
real(kind=real64)	user_routines_galaxy::hd_tdisk
real(kind=real64)	user_routines_galaxy::hd_tdisk2
real(kind=real64)	user_routines_galaxy::zd_tdisk
real(kind=real64)	user_routines_galaxy::hd1in
real(kind=real64)	user_routines_galaxy::tau2
real(kind=real64)	user_routines_galaxy::kext_tdisk0
real(kind=real64)	user_routines_galaxy::zd_tdisk_r1
real(kind=real64)	user_routines_galaxy::zd_tdisk_rsun
real(kind=real64)	user_routines_galaxy::chi_dust_tdisk
real(kind=real64)	user_routines_galaxy::theta_dust_tdisk_ellipt
real(kind=real64)	user_routines_galaxy::rtrun
real(kind=real64)	user_routines_galaxy::rsun
real(kind=real64)	user_routines_galaxy::max_z
real(kind=real64)	user_routines_galaxy::max_rad
real(kind=real64)	user_routines_galaxy::sha
real(kind=real64)	user_routines_galaxy::sha1
real(kind=real64)	user_routines_galaxy::omega_max
integer, parameter	user_routines_galaxy::lcar_type =30
character(len=lcar_type)	user_routines_galaxy::old_disk_type
integer	user_routines_galaxy::old_disk_type_id
character(len=lcar_type)	user_routines_galaxy::young_disk_type
integer	user_routines_galaxy::young_disk_type_id
character(len=lcar_type)	user_routines_galaxy::thick_disk_type
integer	user_routines_galaxy::thick_disk_type_id
character(len=lcar_type)	user_routines_galaxy::thin_disk_type
integer	user_routines_galaxy::thin_disk_type_id
character(len=lcar_type)	user_routines_galaxy::grid_type
integer, parameter	user_routines_galaxy::expr_expz_id = 0
integer, parameter	user_routines_galaxy::expr_sech2z_id = 1
integer, parameter	user_routines_galaxy::flared_expz_id = 2
integer, parameter	user_routines_galaxy::flared_sech2z_id = 3
integer, parameter	user_routines_galaxy::ellipt_expr_expz_id = 4
integer, parameter	user_routines_galaxy::ellipt_expr_sech2z_id = 5
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::dens_disk
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::dens_tdisk
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::dens_bulge
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::dens_dust_disk
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::dens_dust_tdisk
real(kind=real64)	user_routines_galaxy::omega_cell
integer, parameter	user_routines_galaxy::step_int =10
character(len=lcar)	user_routines_galaxy::file_old_star_sed
character(len=lcar)	user_routines_galaxy::file_young_star_sed
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::lambda_arr_old_sed
integer	user_routines_galaxy::nlambda_old_sed
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::lambda_arr_sf_sed
integer	user_routines_galaxy::nlambda_sf_sed
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::lnu_old_unit
real(kind=real64), dimension(:), allocatable	user_routines_galaxy::lnu_sf_unit
real(kind=real64)	user_routines_galaxy::z_subd_lim
real(kind=real64)	user_routines_galaxy::z_subd_lim2
real(kind=real64)	user_routines_galaxy::r_subd_lim
character(len=lcar_type)	user_routines_galaxy::subdivision_criteria