Commit c71cea29 authored by Patrick Shriwise's avatar Patrick Shriwise
Browse files

Merge remote-tracking branch 'origin/1k_openmc_model' into 1k_openmc_model

parents 509c2a7c 922e5819
......@@ -95,7 +95,7 @@ c-----------------------------------------------------------------------
include 'TOTAL'
include 'NEKMOOSE'
c implicit none
COMMON /SCNRS/ SC_NRS(LX1*LY1*LZ1*LELT*7)
COMMON /SCNRS/ SC_NRS(LX1*LY1*LZ1*LELT*7*5)
real SC_NRS
common /flux_reconstructed/flux_recon(lx1,ly1,lz1,lelt)
......@@ -159,7 +159,7 @@ c call comp_Reynolds
! The first call is at time step zero
if ((1+1+nw_bdt*4*5+n).gt.(7*n)) then
if ((1+1+nw_bdt*4*5+n).gt.(7*5*n)) then
if (nid.eq.0) write(6,*) "> Insufficient scratch memory"
call exitt()
endif
......
Markdown is supported
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