enable_viscous_heating Subroutine

private pure subroutine enable_viscous_heating(this)

Type Bound

viscosity_settings_t

Arguments

Type	Intent	Optional	Attributes		Name
class(viscosity_settings_t),	intent(inout)			::	this