nusselt_init Subroutine

public subroutine nusselt_init(me, cfg)

Arguments

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

Calls

proc~~nusselt_init~~CallsGraph proc~nusselt_init nusselt_init proc~input_str input_t%input_str proc~nusselt_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~~nusselt_init~~CalledByGraph proc~nusselt_init nusselt_init proc~channel_init_part1 channel_init_part1 proc~channel_init_part1->proc~nusselt_init proc~ffsrclink_init_part2 FFsrcLink_init_part2 proc~ffsrclink_init_part2->proc~nusselt_init proc~fslink_init_part2 FSlink_init_part2 proc~fslink_init_part2->proc~nusselt_init program~reims_p reims_p program~reims_p->proc~channel_init_part1 program~reims_p->proc~ffsrclink_init_part2 program~reims_p->proc~fslink_init_part2

Source Code

    subroutine nusselt_init(me,cfg)
        class(nusselt_t), pointer, intent(inout) :: me
        class(input_t), target, intent(in) :: cfg
    
        integer :: i
        character(:), allocatable :: nss   
        
        nss=cfg%str('nusselt','')
        do i=1,size(nusselts)
            if(nss==nusselts(i)%nusselt_corr) me => nusselts(i)
        enddo
    end subroutine nusselt_init