From 3b69dbdabd8b4bcb3324162889f6d8b6da2cfe0a Mon Sep 17 00:00:00 2001
From: Austin Blevins <blevinsaustinm@gmail.com>
Date: Mon, 26 Jun 2023 11:52:08 -0400
Subject: [PATCH] fixed a bug where DP numbers were given to a SP array

---
 src/regolith/regolith_mix.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/regolith/regolith_mix.f90 b/src/regolith/regolith_mix.f90
index 38aed0a1..ab132ae8 100644
--- 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