spc_print Subroutine

private subroutine spc_print(self)

打印sph参数

Type Bound

sph_configuration

Arguments

Type IntentOptional Attributes Name
class(sph_configuration), intent(in) :: self

Contents

Source Code

spc_print

Source Code

    subroutine spc_print(self)
        class(sph_configuration), intent(in) :: self

        write (lgr_obj%unit, lgr_obj%fmt) 'eos_water', trim(self%eos_water)
        write (lgr_obj%unit, lgr_obj%fmt) 'eos_air', trim(self%eos_air)
        write (lgr_obj%unit, lgr_obj%fmt) 'has_gravity', self%has_gravity
        write (lgr_obj%unit, lgr_obj%fmt) 'has_viscosity', self%has_viscosity
        write (lgr_obj%unit, lgr_obj%fmt) 'has_surface_tension', self%has_surface_tension
        write (lgr_obj%unit, lgr_obj%fmt) 'has_artificial_viscosity', self%has_artificial_viscosity
        write (lgr_obj%unit, lgr_obj%fmt) 'smoothed_kernel_function', trim(self%smoothed_kernel_function)
        write (lgr_obj%unit, lgr_obj%fmt) 'density_summation_method', trim(self%density_summation_method)
        write (lgr_obj%unit, lgr_obj%fmt) 'c0', self%c0
        write (lgr_obj%unit, lgr_obj%fmt) 'k', self%k

    end subroutine spc_print