Skip to content

Commit

Permalink
Remove superfluous extra element of numll
Browse files Browse the repository at this point in the history
This confused me when reading it. This value is never accessed so we don't need it.
  • Loading branch information
samhatfield authored Nov 29, 2023
1 parent 8d13aa3 commit 376ad91
Showing 1 changed file with 2 additions and 6 deletions.
8 changes: 2 additions & 6 deletions src/programs/ectrans-benchmark.F90
Original file line number Diff line number Diff line change
Expand Up @@ -346,11 +346,8 @@ program transform_test
call mpl_buffer_method(kmp_type=mp_type, kmbx_size=mbx_size, kprocids=nprcids, ldinfo=(verbosity>=1))
endif

! Determine number of local levels for fourier and legendre calculations
! based on the values of nflevg and nprtrv
allocate(numll(nprtrv+1))

! Calculate remainder
! Determine the number of levels attributed to each member of the V set
allocate(numll(nprtrv))
iprused = min(nflevg+1, nprtrv)
ilevpp = nflevg/nprtrv
irest = nflevg -ilevpp*nprtrv
Expand All @@ -361,7 +358,6 @@ program transform_test
numll(jroc) = ilevpp
endif
enddo
numll(iprused+1:nprtrv+1) = 0

nflevl = numll(mysetv)

Expand Down

0 comments on commit 376ad91

Please sign in to comment.