004_cosmicfish_types.f90

Go to the documentation of this file.

!----------------------------------------------------------------------------------------
!
! This file is part of CosmicFish.
!
! Copyright (C) 2015-2016 by the CosmicFish authors
!
! The CosmicFish code is free software;
! You can use it, redistribute it, and/or modify it under the terms
! of the GNU General Public License as published by the Free Software Foundation;
! either version 3 of the License, or (at your option) any later version.
! The full text of the license can be found in the file LICENSE at
! the top level of the CosmicFish distribution.
!
!----------------------------------------------------------------------------------------


!----------------------------------------------------------------------------------------


module cosmicfish_types

    use precision

    implicit none

    !----------------------------------------------------------------------------------------
    type cosmicfish_param_fisher

        ! base parameters selection flags:
        logical   :: want_ombh2
        logical   :: want_omch2
        logical   :: want_omnuh2
        logical   :: want_hubble
        logical   :: want_helium_fraction
        logical   :: want_massless
        ! primordial spectrum selection flags:
        logical   :: want_scalar_amp
        logical   :: want_scalar_spectral_index
        logical   :: want_scalar_nrun
        logical   :: want_tensor_spectral_index
        logical   :: want_initial_ratio
        ! reionization:
        logical   :: want_re_optical_depth
        ! LSS nuissance parameters::
        logical   :: want_bias
        ! SN nuissance parameters:
        logical   :: want_alpha_sn
        logical   :: want_beta_sn
        logical   :: want_m0_sn
        ! ppf parameters (only with camb):
#ifdef COSMICFISH_CAMB
        logical   :: want_w0_ppf
        logical   :: want_wa_ppf
        logical   :: want_cs_ppf
#endif

    end type cosmicfish_param_fisher

    !----------------------------------------------------------------------------------------
    type cosmicfish_fisher_cls

        ! selection flags:
        logical   :: fisher_want_cmb_t
        logical   :: fisher_want_cmb_e
        logical   :: fisher_want_cmb_b
        logical   :: fisher_want_cmb_lensing
        logical   :: fisher_want_lss_lensing
        logical   :: fisher_want_lss_counts
        logical   :: fisher_want_xc

        ! CMB noise specifications:
        integer   :: cmb_n_channels
        real(dl)  :: cmb_tt_fsky
        real(dl)  :: cmb_ee_fsky
        real(dl)  :: cmb_bb_fsky

        integer   :: l_max_tt
        integer   :: l_max_ee
        integer   :: l_max_bb

        real(dl), dimension(:), allocatable :: cmb_temp_sens
        real(dl), dimension(:), allocatable :: cmb_pol_sens
        real(dl), dimension(:), allocatable :: cmb_fwhm

        ! LSS windows specifications:
        integer   :: lss_number_windows

        real(dl), dimension(:), allocatable :: lss_num_galaxies
        real(dl), dimension(:), allocatable :: lss_intrinsic_ellipticity
        real(dl), dimension(:), allocatable :: lss_fsky
        integer , dimension(:), allocatable :: lss_lmax

        ! other window specifications:
        integer  :: window_type
        ! window parameters:
        real(dl) :: window_alpha
        real(dl) :: window_beta
        real(dl) :: redshift_zero
        real(dl) :: photoz_error

        real(dl), dimension(:), allocatable :: bias

    end type cosmicfish_fisher_cls

    !----------------------------------------------------------------------------------------
    type cosmicfish_fisher_sn

        ! SN windows:
        integer  :: number_sn_windows
        integer , dimension(:), allocatable :: sn_number
        real(dl), dimension(:), allocatable :: sn_redshift_start
        real(dl), dimension(:), allocatable :: sn_redshift_end
        integer  :: total_sn_number

        ! SN Fisher Monte Carlo average:
        integer  :: sn_fisher_mc_samples

        ! fiducial SN parameters:
        real(dl) :: alpha_sn
        real(dl) :: beta_sn
        real(dl) :: m0_sn

        ! parameters to generate the SN mock data:
        real(dl) :: color_dispersion
        real(dl) :: stretch_dispersion

        ! parameters to generate the mock SN covariance:
        real(dl) :: magnitude_sigma
        real(dl) :: c_sigmaz
        real(dl) :: sigma_lens_0

        real(dl) :: dcolor_offset
        real(dl) :: dcolor_zcorr
        real(dl) :: dshape_offset
        real(dl) :: dshape_zcorr

        real(dl) :: cov_ms_offset
        real(dl) :: cov_ms_zcorr
        real(dl) :: cov_mc_offset
        real(dl) :: cov_mc_zcorr
        real(dl) :: cov_sc_offset
        real(dl) :: cov_sc_zcorr

    end type cosmicfish_fisher_sn

    !----------------------------------------------------------------------------------------
    type cosmicfish_fisher_rd

        !RD specifications
        integer :: number_rd_redshifts
        integer, dimension(:), allocatable  :: rd_number
        real(dl), dimension(:), allocatable :: rd_redshift
        integer                             :: exptype
        real(dl)                            :: obs_time
        real(dl)                            :: signoise


    end type cosmicfish_fisher_rd

    !----------------------------------------------------------------------------------------
    type cosmicfish_fisher_derived

        ! base derived parameters selection flags:
        logical   :: want_omegab
        logical   :: want_omegac
        logical   :: want_omegan
        logical   :: want_omegav
        logical   :: want_omegak
        logical   :: want_omegam
        logical   :: want_theta
        logical   :: want_mnu
        logical   :: want_zre
        logical   :: want_neff

        ! derived parameters in addition to the standard derived:
        logical   :: want_sigma8
        logical   :: want_loghubble
        logical   :: want_logda

        ! derived parameters tomography:
        integer                             :: fd_num_redshift
        real(dl), dimension(:), allocatable :: fd_redshift

    end type cosmicfish_fisher_derived

    !----------------------------------------------------------------------------------------
    type cosmicfish_params

        ! General cosmicfish flags:
        logical   :: adaptivity

        integer   :: cosmicfish_feedback

        logical   :: cosmicfish_want_cls
        logical   :: cosmicfish_want_sn
        logical   :: cosmicfish_want_mpk
        logical   :: cosmicfish_want_rd
        logical   :: cosmicfish_want_derived

        ! other parameters:
        real(dl)  :: output_factor

        ! Specifications for the Cls Fisher matrix:
        type(cosmicfish_param_fisher)   :: fisher_par
        type(cosmicfish_fisher_cls)     :: fisher_cls
        type(cosmicfish_fisher_sn)      :: fisher_sn
        type(cosmicfish_fisher_rd)      :: fisher_rd
        type(cosmicfish_fisher_derived) :: fisher_der

        ! Output root:
        character(len=:), allocatable :: outroot

    end type cosmicfish_params

end module cosmicfish_types