set_data_files_paths Subroutine

public subroutine set_data_files_paths(me, aep8_dir, igrf_dir)

Set the paths to the data files. If not used or blank, the folder data/aep8 and data/igrf in the current working directory is assumed

Type Bound

radbelt_type

Arguments

Type IntentOptional Attributes Name
class(radbelt_type), intent(inout) :: me
character(len=*), intent(in) :: aep8_dir
character(len=*), intent(in) :: igrf_dir

Calls

proc~~set_data_files_paths~~CallsGraph proc~set_data_files_paths radbelt_module::radbelt_type%set_data_files_paths proc~set_igrf_file_path radbelt_module::radbelt_type%set_igrf_file_path proc~set_data_files_paths->proc~set_igrf_file_path proc~set_trm_file_path radbelt_module::radbelt_type%set_trm_file_path proc~set_data_files_paths->proc~set_trm_file_path proc~set_data_file_dir shellig_module::shellig_type%set_data_file_dir proc~set_igrf_file_path->proc~set_data_file_dir proc~set_data_file_dir~2 trmfun_module::trm_type%set_data_file_dir proc~set_trm_file_path->proc~set_data_file_dir~2

Called by

proc~~set_data_files_paths~~CalledByGraph proc~set_data_files_paths radbelt_module::radbelt_type%set_data_files_paths proc~set_data_files_paths_c radbelt_c_module::set_data_files_paths_c proc~set_data_files_paths_c->proc~set_data_files_paths

Source Code

    subroutine set_data_files_paths(me, aep8_dir, igrf_dir)

        class(radbelt_type), intent(inout) :: me
        character(len=*), intent(in) :: aep8_dir
        character(len=*), intent(in) :: igrf_dir

        call me%set_trm_file_path(trim(aep8_dir))
        call me%set_igrf_file_path(trim(igrf_dir))

    end subroutine set_data_files_paths