Fix bug in precision specifier

Signed-off-by: Lizzie Lundgren <[email protected]>
geoschem · Aug 26, 2024 · 33011dd · 33011dd
1 parent 934dc7c
commit 33011dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/chemistry/geoschem/chemistry.F90 b/src/chemistry/geoschem/chemistry.F90
@@ -4692,7 +4692,7 @@ real(8) function erfc_num_recipes( x )
                                        t*(-1.13520398_r8 +   &
       t*(1.48851587_r8 + t*(-0.82215223_r8 + t*0.17087277_r8 )))))))))
     erfc_dbl = t * exp(dum)
-    if (x .lt. 0.0_f8) erfc_dbl = 2.0_r8 - erfc_dbl
+    if (x .lt. 0.0_r8) erfc_dbl = 2.0_r8 - erfc_dbl
     erfc_num_recipes = erfc_dbl
     return
   end function erfc_num_recipes