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

1568_pebble_yuhsiang_E524k/peb1568.usr

@@ -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