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