diff --git a/src/turbulence/sa.F90 b/src/turbulence/sa.F90
index 94cf1dfbe..7ca15cd79 100644
--- a/src/turbulence/sa.F90
+++ b/src/turbulence/sa.F90
@@ -107,6 +107,7 @@ subroutine saSource
 
         ! Local variables.
         integer(kind=intType) :: i, j, k, nn, ii
+        real(kind=realType) :: cv13, kar2Inv, cw36, cb3Inv
         real(kind=realType) :: fv1, fv2, ft2
         real(kind=realType) :: ss, sst, nu, dist2Inv, chi, chi2, chi3
         real(kind=realType) :: rr, gg, gg6, termFw, fwSa, term1, term2
@@ -354,6 +355,7 @@ subroutine saViscous
         implicit none
         ! Local variables.
         integer(kind=intType) :: i, j, k, nn, ii
+        real(kind=realType) :: cv13, kar2Inv, cw36, cb3Inv
         real(kind=realType) :: nu
         real(kind=realType) :: fv1, fv2, ft2
         real(kind=realType) :: voli, volmi, volpi, xm, ym, zm, xp, yp, zp
@@ -720,6 +722,7 @@ subroutine saSolve
         !  original Spalart-Allmaras model in a decoupled manner using
         !  a diagonal dominant ADI-scheme.
         use blockPointers
+        use constants
         use inputIteration
         use inputPhysics
         use paramTurb
@@ -728,6 +731,7 @@ subroutine saSolve
         implicit none
 
         integer(kind=intType) :: i, j, k, nn, ii
+        real(kind=realType) :: cb3Inv
         real(kind=realType), dimension(2:max(kl, il, jl)) :: bb, cc, dd, ff
         real(kind=realType) :: voli, volmi, volpi, xm, ym, zm, xp, yp, zp
         real(kind=realType) :: xa, ya, za, ttm, ttp, cnud, cam, cap
@@ -740,6 +744,8 @@ subroutine saSolve
         logical, dimension(2:il, 2:jl), target :: flagK2, flagKl
         logical, dimension(:, :), pointer :: flag
 
+        ! Set model constant
+        cb3Inv = one / rsaCb3
 
         ! Initialize the wall function flags to .false.