initialize_holder_wrfs Module Subroutine

module subroutine initialize_holder_wrfs(self, input, i_material)

Arguments

Type IntentOptional Attributes Name
class(holder_wrfs), intent(inout) :: self
type(type_input), intent(in) :: input
integer(kind=int32), intent(in) :: i_material

Calls

proc~~initialize_holder_wrfs~~CallsGraph proc~initialize_holder_wrfs initialize_holder_wrfs materials materials proc~initialize_holder_wrfs->materials type_wrf_bc type_wrf_bc proc~initialize_holder_wrfs->type_wrf_bc type_wrf_durner type_wrf_durner proc~initialize_holder_wrfs->type_wrf_durner type_wrf_dvgch type_wrf_dvgch proc~initialize_holder_wrfs->type_wrf_dvgch type_wrf_ko type_wrf_ko proc~initialize_holder_wrfs->type_wrf_ko type_wrf_mvg type_wrf_mvg proc~initialize_holder_wrfs->type_wrf_mvg type_wrf_vg type_wrf_vg proc~initialize_holder_wrfs->type_wrf_vg

Source Code

    module subroutine initialize_holder_wrfs(self, input, i_material)
        implicit none
        class(holder_wrfs), intent(inout) :: self
        type(type_input), intent(in) :: input
        integer(int32), intent(in) :: i_material

        select case (input%basic%materials(i_material)%thermal%phase_change%wrf%model_number)
        case (1)
            self%p = type_wrf_bc(input%basic%materials(i_material)%thermal%phase_change%wrf)
        case (2)
            self%p = type_wrf_vg(input%basic%materials(i_material)%thermal%phase_change%wrf)
        case (3)
            self%p = type_wrf_ko(input%basic%materials(i_material)%thermal%phase_change%wrf)
        case (4)
            self%p = type_wrf_mvg(input%basic%materials(i_material)%thermal%phase_change%wrf)
        case (5)
            self%p = type_wrf_durner(input%basic%materials(i_material)%thermal%phase_change%wrf)
        case (6)
            self%p = type_wrf_dvgch(input%basic%materials(i_material)%thermal%phase_change%wrf)
        end select

    end subroutine initialize_holder_wrfs