diff --git a/src/science/soilsnow/cbl_snowMelt.F90 b/src/science/soilsnow/cbl_snowMelt.F90
index 12ac79caa..03f13dd64 100644
--- a/src/science/soilsnow/cbl_snowMelt.F90
+++ b/src/science/soilsnow/cbl_snowMelt.F90
@@ -1,6 +1,7 @@
 MODULE snow_melting_mod
 
 USE cbl_ssnow_data_mod
+USE cable_common_module
 
 PUBLIC  snow_melting
 
@@ -8,12 +9,11 @@ MODULE snow_melting_mod
 
 SUBROUTINE snow_melting (dels, snowmlt, ssnow, soil )
 
-    USE cable_common_module
 IMPLICIT NONE
 
     REAL, INTENT(IN) :: dels   ! integration time step (s)
 
-    REAL, DIMENSION(mp), INTENT(OUT) :: snowmlt ! snow melt
+    REAL, DIMENSION(:), ALLOCATABLE, INTENT(OUT) :: snowmlt ! snow melt
 
     TYPE(soil_parameter_type), INTENT(INOUT) :: soil
     TYPE(soil_snow_type), INTENT(INOUT)   :: ssnow  ! soil+snow variables
@@ -27,6 +27,7 @@ SUBROUTINE snow_melting (dels, snowmlt, ssnow, soil )
 
     REAL, DIMENSION(mp,0:3) :: smelt1
 
+    ALLOCATE(snowmlt(SIZE(ssnow%smelt)))
     snowmlt= 0.0
     smelt1 = 0.0
 
diff --git a/src/science/soilsnow/cbl_thermal.F90 b/src/science/soilsnow/cbl_thermal.F90
index cb682df1f..07ea0ea7e 100644
--- a/src/science/soilsnow/cbl_thermal.F90
+++ b/src/science/soilsnow/cbl_thermal.F90
@@ -28,12 +28,10 @@ SUBROUTINE snow_processes_soil_thermal(dels,ssnow,soil,veg,canopy,met,bal)
     TYPE(veg_parameter_type), INTENT(INOUT)  :: veg
     TYPE(met_type), INTENT(INOUT)            :: met ! all met forcing
     TYPE (balances_type), INTENT(INOUT)      :: bal
-    REAL, DIMENSION(mp)                      :: snowmlt !track snow melt 
+    REAL, DIMENSION(:), ALLOCATABLE                      :: snowmlt !track snow melt 
 !    REAL, DIMENSION(:),  INTENT(INOUT)       :: snowmlt  ! replaced by rk4417 - phase2
     INTEGER             :: k,i
 
-    snowmlt = 0.0  ! inserted by rk4417 - phase2
-    
     CALL snowcheck (dels, ssnow, soil, met )
 
     CALL snowdensity (dels, ssnow, soil)