small error

efeab549 · Jérémy Baudry · b85b16f5 · efeab549
Commit efeab549 authored Mar 08, 2017 by Jérémy Baudry
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

src/BIO_LAGRANGE.f90 src/BIO_LAGRANGE.f90 +2 -2

No files found.
--- a/src/BIO_LAGRANGE.f90
+++ b/src/BIO_LAGRANGE.f90
@@ -37,13 +37,13 @@
        double precision                        :: Pdmax=1
        double precision                        :: Idark=50      
        double precision, dimension(100000)     :: Fi
-        double precision                        :: nb1
+        double precision,allocatable            :: nb1(:)

        allocate(light_level(Nlevel))
        allocate(dummy1(Nlevel))
        allocate(light_bin(Nbin))
        allocate(nb(Nbin))
-
+        allocate(nb1(Nbin))

        Fi(1:100000)=0
        div=0