From 3c1d5c46883a9b061249e28b3b45f29625d8809b Mon Sep 17 00:00:00 2001
From: Jerryntk <77860395+Jerryntk@users.noreply.github.com>
Date: Sat, 2 Jul 2022 14:49:19 +0200
Subject: [PATCH] Update Turbulence.f90

Fix the things gfortran doesnt like
---
 Solver/src/libs/physics/spallartalmaras/Turbulence.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Solver/src/libs/physics/spallartalmaras/Turbulence.f90 b/Solver/src/libs/physics/spallartalmaras/Turbulence.f90
index c775fb539..735d31cbe 100644
--- 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 )