cepa_aqcc Function

public function cepa_aqcc(run)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: run

Return Value real(kind=dp)


Contents

Source Code

cepa_aqcc

Source Code

    real(dp) function cepa_aqcc(run)
        integer, intent(in) :: run

        cepa_aqcc = diagsft(run) * (1.0_dp - aqcc_factor)

    end function cepa_aqcc