init Subroutine

private subroutine init(self)

初始化

Type Bound

eos_water

Arguments

Type IntentOptional Attributes Name
class(eos_water), intent(inout) :: self

Contents

Source Code


Source Code

    subroutine init(self)
        class(eos_water), intent(inout) :: self

        select case (spc_obj%eos_water)
        case ('tait')
            self%p_water => p_water_tait
        case ('monaghan')
            self%p_water => p_water_monaghan
        case ('morris')
            self%p_water => p_water_morris
        case default
            self%p_water => p_water_tait
        end select

    end subroutine init