friction_init Subroutine

public subroutine friction_init(me, cfg)

Arguments

Type IntentOptional Attributes Name
class(friction_t), intent(inout), pointer :: me
class(input_t), intent(in), target :: cfg

Calls

proc~~friction_init~~CallsGraph proc~friction_init friction_init proc~input_str input_t%input_str proc~friction_init->proc~input_str proc~input_has_key input_t%input_has_key proc~input_str->proc~input_has_key proc~input_node input_t%input_node proc~input_str->proc~input_node proc~select_scalar select_scalar proc~input_str->proc~select_scalar get get proc~input_has_key->get proc~select_dict select_dict proc~input_has_key->proc~select_dict proc~input_node->get proc~dictionary_traverse dictionary_traverse proc~input_node->proc~dictionary_traverse proc~input_node->proc~select_dict proc~dictionary_traverse->proc~dictionary_traverse get_dictionary get_dictionary proc~dictionary_traverse->get_dictionary proc~abort_if abort_if proc~dictionary_traverse->proc~abort_if

Called by

proc~~friction_init~~CalledByGraph proc~friction_init friction_init proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~friction_init program~reims_p reims_p program~reims_p->proc~channel_init_part1

Source Code

   subroutine friction_init(me,cfg)
        class(friction_t), pointer, intent(inout) :: me
        class(input_t), target, intent(in) :: cfg
    
        integer :: i
        character(:), allocatable :: fct   
        
        fct=cfg%str('friction')
        do i=1,size(frictions)
            if(fct==frictions(i)%friction_corr) me => frictions(i)
        enddo
        if(.NOT.associated(me)) error stop fct//'friction does not exist'
   end subroutine friction_init