Skip to content
Snippets Groups Projects
Commit 874ee040 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

declare evolve_mom to 0 

-this resolves the seg fault in Brenno's computer
parent 33e666c1
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 0 deletions
src/closure_mod.F90
+ 1
− 0
View file @ 874ee040
...@@ -33,6 +33,7 @@ SUBROUTINE set_closure_model ...@@ -33,6 +33,7 @@ SUBROUTINE set_closure_model
dmax = MIN(pmax,2*jmax+1) dmax = MIN(pmax,2*jmax+1)
! set the evolve mom array ! set the evolve mom array
ALLOCATE(evolve_mom(local_np+ngp,local_nj+ngj)) ALLOCATE(evolve_mom(local_np+ngp,local_nj+ngj))
evolve_mom = 0
SELECT CASE(hierarchy_closure) SELECT CASE(hierarchy_closure)
CASE('truncation') CASE('truncation')
DO ip = 1,local_np+ngp DO ip = 1,local_np+ngp
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment