diff --git a/src/biogeochem/DustEmisBase.F90 b/src/biogeochem/DustEmisBase.F90
index dbc5729403..ef509add06 100644
--- a/src/biogeochem/DustEmisBase.F90
+++ b/src/biogeochem/DustEmisBase.F90
@@ -184,9 +184,9 @@ subroutine InitAllocate(this, bounds)
     allocate(this%vlc_trb_3_patch           (begp:endp))        ; this%vlc_trb_3_patch           (:)   = nan
     allocate(this%vlc_trb_4_patch           (begp:endp))        ; this%vlc_trb_4_patch           (:)   = nan
 
-    allocate (this%ovr_src_snk_mss(dst_src_nbr,ndst))           ; this%ovr_src_snk_mss           (:,:) = nan
-    allocate (this%dmt_vwr(ndst))                               ; this%dmt_vwr                   (:)   = nan
-    allocate (this%stk_crc(ndst))                               ; this%stk_crc                   (:)   = nan
+    allocate (this%ovr_src_snk_mss(1:dst_src_nbr,1:ndst))       ; this%ovr_src_snk_mss           (:,:) = nan
+    allocate (this%dmt_vwr(1:ndst))                             ; this%dmt_vwr                   (:)   = nan
+    allocate (this%stk_crc(1:ndst))                             ; this%stk_crc                   (:)   = nan
 
   end subroutine InitAllocate