diff --git a/dyn_em/start_em.F b/dyn_em/start_em.F
index 97a5bfcdcf..96057ebdfb 100644
--- a/dyn_em/start_em.F
+++ b/dyn_em/start_em.F
@@ -2001,6 +2001,7 @@ SUBROUTINE start_domain_em ( grid, allowed_to_read &
 #endif
 
 DEALLOCATE(z_at_q)
+DEALLOCATE(dz8w)
 
    IF (config_flags%p_lev_diags == PRESS_DIAGS ) THEN
     CALL wrf_debug ( 200 , ' PLD: pressure level diags' )
diff --git a/share/wrf_timeseries.F b/share/wrf_timeseries.F
index cab5a0aa10..9755ee45bc 100644
--- a/share/wrf_timeseries.F
+++ b/share/wrf_timeseries.F
@@ -356,10 +356,20 @@ SUBROUTINE calc_ts( grid )
    ALLOCATE ( earth_u_profile(grid%max_ts_level), earth_v_profile(grid%max_ts_level) )
 #endif
 
-   IF ( grid%ntsloc_domain .LE. 0 ) RETURN
+   IF ( grid%ntsloc_domain .LE. 0 ) THEN
+#if ( EM_CORE == 1 )
+       DEALLOCATE(earth_u_profile, earth_v_profile)
+#endif
+       RETURN
+   END IF
 
 #if ((EM_CORE == 1) && (DA_CORE != 1))
-   IF ( grid%dfi_opt /= DFI_NODFI .AND. grid%dfi_stage /= DFI_FST ) RETURN
+   IF ( grid%dfi_opt /= DFI_NODFI .AND. grid%dfi_stage /= DFI_FST ) THEN
+#if ( EM_CORE == 1 )
+       DEALLOCATE(earth_u_profile, earth_v_profile)
+#endif
+       RETURN
+   END IF
 #endif
 
    n = grid%next_ts_time