Update Turbulence.f90

Fix the things gfortran doesnt like
loganoz · Jul 2, 2022 · 3c1d5c4 · 3c1d5c4
1 parent 2760884
commit 3c1d5c4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Solver/src/libs/physics/spallartalmaras/Turbulence.f90 b/Solver/src/libs/physics/spallartalmaras/Turbulence.f90
@@ -332,7 +332,7 @@ function Compute_g(self, theta, dwall, stilda) result(g)
          real(kind=RP)                        :: g
          real(kind=RP)                        :: r
 
-         if (stilda .eq. 0.0_RP) then
+         if (stilda .EQ. 0.0_RP) then
             r = self % rmax
          else 
             r = min(dimensionless % mu * theta/(stilda * POW2(self % kappa) * POW2(dwall)), self % rmax )