Skip to content

Commit

Permalink
Merge pull request #326 from COSMIC-PopSynth/jp-int-needs-to-be-bigger
Browse files Browse the repository at this point in the history
No point in allowing bpp array to have 1000 rows when jp is 80
  • Loading branch information
Katie Breivik committed Oct 10, 2019
2 parents 992210e + dd49d86 commit f2f41c1
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion cosmic/src/bpp_array.f
Expand Up @@ -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
Expand Down

0 comments on commit f2f41c1

Please sign in to comment.