fixed a bug where DP numbers were given to a SP array

MintonGroup · Jun 26, 2023 · 3b69dbd · 3b69dbd
1 parent 32df869
commit 3b69dbd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/regolith/regolith_mix.f90 b/src/regolith/regolith_mix.f90
@@ -45,7 +45,7 @@ subroutine regolith_mix(user,surfi,mixing_depth,domain)
 
    newlayer%thickness = 0.0_DP
    newlayer%comp      = 0.0_DP
-   newlayer%age(:)    = 0.0_DP
+   newlayer%age(:)    = 0.0_SP
    allocate(newlayer%distvol(1+domain%rcnum))
    newlayer%distvol(:) = 0.0_DP
    newlayer%ejm       = 0.0_DP