sigma0_traffic_func Function

private function sigma0_traffic_func(speed)

Arguments

Type IntentOptional Attributes Name
real :: speed

Return Value real


Called by

proc~~sigma0_traffic_func~~CalledByGraph proc~sigma0_traffic_func sigma0_traffic_func proc~uemep_grid_roads uEMEP_grid_roads proc~uemep_grid_roads->proc~sigma0_traffic_func proc~uemep_calculate_emissions_for_emep uEMEP_calculate_emissions_for_EMEP proc~uemep_calculate_emissions_for_emep->proc~uemep_grid_roads program~uemep uEMEP program~uemep->proc~uemep_grid_roads program~uemep->proc~uemep_calculate_emissions_for_emep

Source Code

    function sigma0_traffic_func(speed)
        implicit none
        real:: speed
        real:: sigma0_traffic_func
        real :: min_sigma=0.5
        real :: max_sigma=3.
        real :: min_speed=40.
        real :: max_speed=100.
        real :: gradient

        gradient=(max_sigma-min_sigma)/(max_speed-min_speed)
        sigma0_traffic_func=min(max(min_sigma+(speed-min_speed)*gradient,min_sigma),max_sigma)

    end function sigma0_traffic_func