From dd49d861e5e950442c89da5bbf17fce107e83db1 Mon Sep 17 00:00:00 2001
From: scottcoughlin2014 <scottcoughlin2014@u.northwestern.edu>
Date: Thu, 10 Oct 2019 13:39:08 -0500
Subject: [PATCH] No point in allowing bpp array to have 1000 rows when jp is
 80

---
 cosmic/src/bpp_array.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cosmic/src/bpp_array.f b/cosmic/src/bpp_array.f
index 09d51975..b4f888e6 100644
--- a/cosmic/src/bpp_array.f
+++ b/cosmic/src/bpp_array.f
@@ -20,7 +20,7 @@ SUBROUTINE WRITEBPP(jp,tphys,evolve_type,
         REAL*8 yeardy
         PARAMETER(yeardy=365.24d0)
 
-        jp = MIN(80,jp + 1)
+        jp = MIN(900,jp + 1)
         bpp(jp,1) = tphys
         bpp(jp,2) = mass1
         bpp(jp,3) = mass2