From 0c1d833e6c8678060325247a17cf668f59a75cb3 Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Wed, 23 Nov 2016 15:56:00 -0800 Subject: [PATCH] During the call to pass vectors to linked list, I had the seed_bank passing reversed. Fixed. --- main/FatesRestartInterfaceMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/main/FatesRestartInterfaceMod.F90 b/main/FatesRestartInterfaceMod.F90 index 85db6dec9c..197bcbdb70 100644 --- 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