Commit 04b8d143 authored by Ron Rahaman's avatar Ron Rahaman
Browse files

Added lpmax parameter to NEKMOOSE

parent b45859d2
......@@ -11,4 +11,5 @@
common /test_passing/ flux_moose, temp_nek
real pc_x, pc_y, pc_z, pc_flag, pc_t, pc_f
integer plmask, pflmask, pllist, offset, nw_bd1, nw_bdt
parameter (lpmax=50000)
......@@ -3,7 +3,11 @@
include 'TOTAL'
include 'NEKMOOSE'
integer e,f
integer tots_np(lp), iwk(lp)
integer tots_np(lpmax), iwk(lpmax)
if (np > lpmax) then
call err_chk('In nek_moose.f, np > lpmax')
endif
nxyz=lx1*ly1*lz1
......@@ -25,7 +29,7 @@
enddo
! Local TOTAL number of surfaces per processor
do i=1,lp
do i=1,lpmax
tots_np(i)=0.0
enddo
tots_np(nid+1)=nw_bd1
......
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