Added dp

oerc0122 · Apr 20, 2020 · ba42c5e · ba42c5e
1 parent 1ae654a
commit ba42c5e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Units/units.f90 b/Units/units.f90
@@ -74,7 +74,7 @@ Subroutine initialise_units()
 
     Real(kind=dp), Parameter :: newton = 1.0_dp
 
-    Real(kind=dp), Parameter :: gravity = metre/second**2/9.81
+    Real(kind=dp), Parameter :: gravity = metre/second**2/9.81_dp
 
     call units_table%init(100)