Fix typo.

ElmerCSC · Aug 28, 2024 · 0ab8882 · 0ab8882
1 parent b21af83
commit 0ab8882
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/fem/tests/HydrostaticNSVec-ISMIP-HOM-C/ismip_c.F90 b/fem/tests/HydrostaticNSVec-ISMIP-HOM-C/ismip_c.F90
@@ -74,7 +74,7 @@ FUNCTION wSIAB ( Model, nodenumber, x) RESULT(v)
      S = -tanalpha*x
      H = 1000.0_dp 
      B = S-H
-     dHx = 0.0  _dp                                         
+     dHx = 0.0_dp                                         
 
      v = -9.45699d-14 * (tanalpha * ( (S-z)**4.0_dp - H**4.0_dp) + 4.0_dp*dHx*(z-B)*H**3.0_dp)