Skip to content
Snippets Groups Projects
Commit 874ee040 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann 🌱
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
......@@ -33,6 +33,7 @@ SUBROUTINE set_closure_model
dmax = MIN(pmax,2*jmax+1)
! set the evolve mom array
ALLOCATE(evolve_mom(local_np+ngp,local_nj+ngj))
evolve_mom = 0
SELECT CASE(hierarchy_closure)
CASE('truncation')
DO ip = 1,local_np+ngp
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment