get_data_file_dir Function

private function get_data_file_dir(me) result(dir)

Get the directory containing the data files.

Type Bound

shellig_type

Arguments

Type IntentOptional Attributes Name
class(shellig_type), intent(in) :: me

Return Value character(len=:), allocatable


Called by

proc~~get_data_file_dir~~CalledByGraph proc~get_data_file_dir shellig_module::shellig_type%get_data_file_dir proc~feldcof shellig_module::shellig_type%feldcof proc~feldcof->proc~get_data_file_dir proc~igrf shellig_module::shellig_type%igrf proc~igrf->proc~feldcof proc~igrfc shellig_module::shellig_type%igrfc proc~igrfc->proc~feldcof proc~get_flux_c_ radbelt_module::radbelt_type%get_flux_c_ proc~get_flux_c_->proc~igrfc proc~get_flux_g_ radbelt_module::radbelt_type%get_flux_g_ proc~get_flux_g_->proc~igrf none~get_flux radbelt_module::radbelt_type%get_flux none~get_flux->proc~get_flux_c_ none~get_flux->proc~get_flux_g_ proc~get_flux_c radbelt_module::get_flux_c proc~get_flux_c->none~get_flux proc~get_flux_g radbelt_module::get_flux_g proc~get_flux_g->none~get_flux proc~get_flux_g_c radbelt_c_module::get_flux_g_c proc~get_flux_g_c->none~get_flux interface~get_flux radbelt_module::get_flux interface~get_flux->proc~get_flux_c interface~get_flux->proc~get_flux_g

Source Code

    function get_data_file_dir(me) result(dir)
        class(shellig_type), intent(in) :: me
        character(len=:), allocatable :: dir
        if (allocated(me%igrf_dir)) then
            dir = trim(me%igrf_dir)//'/'
        else
            dir = 'data/igrf/' ! default
        end if
    end function get_data_file_dir