1d_fd_simple_shear

commit a67f2e6117b50d1dfaf0d35e91bc612fd65be6b2
parent d708a8788c52a444e398488a77f8e5776d17370a
Author: Anders Damsgaard <anders@adamsgaard.dk>
Date:   Thu,  9 Jul 2020 20:28:33 +0200

Fix calculation of skin depth with specified diffusivity

Diffstat:
M
max_depth_simple_shear.c
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/max_depth_simple_shear.c b/max_depth_simple_shear.c
@@ -49,7 +49,7 @@ static double
 skin_depth(const struct simulation *sim)
 {
 	if (sim->D > 0.0)
-		return sqrt(sim->D * M_PI * sim->p_f_mod_freq);
+		return sqrt(sim->D / (M_PI * sim->p_f_mod_freq));
 	else
 		return sqrt(sim->k[0] / (sim->mu_f * (sim->alpha + sim->phi[0] * sim->beta_f) * M_PI * sim->p_f_mod_freq));
 }