get_data_file_dir Function

private function get_data_file_dir(me) result(dir)

Get the directory containing the data files.

Type Bound

trm_type

Arguments

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

Return Value character(len=:), allocatable


Called by

proc~~get_data_file_dir~2~~CalledByGraph proc~get_data_file_dir~2 trmfun_module::trm_type%get_data_file_dir proc~aep8 trmfun_module::trm_type%aep8 proc~aep8->proc~get_data_file_dir~2 proc~get_flux_c_ radbelt_module::radbelt_type%get_flux_c_ proc~get_flux_c_->proc~aep8 proc~get_flux_g_ radbelt_module::radbelt_type%get_flux_g_ proc~get_flux_g_->proc~aep8 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(trm_type), intent(in) :: me
        character(len=:), allocatable :: dir
        if (allocated(me%aep8_dir)) then
            dir = trim(me%aep8_dir)//'/'
        else
            dir = 'data/aep8/' ! default
        end if
    end function get_data_file_dir