During the call to pass vectors to linked list, I had the seed_bank p…

…assing reversed. Fixed.
NGEET · Nov 23, 2016 · 0c1d833 · 0c1d833
1 parent 8aef388
commit 0c1d833
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/main/FatesRestartInterfaceMod.F90 b/main/FatesRestartInterfaceMod.F90
@@ -1551,7 +1551,7 @@ subroutine get_restart_vectors(this, nc, nsites, sites)
 
           ! read seed_bank info(site-level, but PFT-resolved)
           do i = 1,numpft_ed 
-             rio_seed_bank_sift(io_idx_co_1st+i-1) = sites(s)%seed_bank(i)
+             sites(s)%seed_bank(i) = rio_seed_bank_sift(io_idx_co_1st+i-1)
           enddo
 
           ! Perform a check on the number of patches per site