minor changes of qarray in short rod test cases

enrico-dev · Jul 12, 2023 · 36ed883 · 36ed883
1 parent 6502b81
commit 36ed883
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 12 deletions.
diff --git a/tests/singlerod/short/nekrs/rod_short.usr b/tests/singlerod/short/nekrs/rod_short.usr
@@ -125,17 +125,7 @@ c-----------------------------------------------------------------------
       zlen=0.0
 
       do i=1,n
-        xx=xm1(i,1,1,1)
-        yy=ym1(i,1,1,1)
-        zz=zm1(i,1,1,1)
-        rr=sqrt(xx**2+ yy**2)
-        qvol=0.0
-        if (rr.lt.0.406) then
-        if ((zz.gt.zlen).and.(zz.lt.(200.0-zlen))) then
-          qvol=161.0*(3.13/2.0)*cos(3.13*(zz-100.0)/200.0)
-        endif
-        endif
-        qarray(i,1,1,1)=qvol
+        qarray(i,1,1,1)=158.0
       enddo
 
       nrs_scptr(1) = loc(con_array)

diff --git a/tests/singlerod/short/openmc_nekrs/rod_short.usr b/tests/singlerod/short/openmc_nekrs/rod_short.usr
@@ -126,7 +126,7 @@ c-----------------------------------------------------------------------
       nrs_scptr(4) = loc(qarray1)
 
       Pow1 = glsc2(qarray1,bm1,n)
-      T_out1 = 531.15 + Pow1/(mdot*3.9)
+      T_out1 = 523.15 + Pow1/(mdot*3.9)
 
       if (nid.eq.0) then
        write(6,*)" > Balance:   ",Pow1," ", T_out1