Remove two disused lines of code.

2021-01-07 13:37:12 -05:00 · 2021-01-07 13:37:12 -05:00 · 3b54196206
parent f003ae653c
commit 3b54196206
1 changed files with 0 additions and 5 deletions
--- a/lib/blanker.f90
+++ b/lib/blanker.f90
@ -48,10 +48,5 @@ subroutine blanker(iwave,nz,ndropmax,npct,c_bigfft)
     endif
  enddo

-  fblanked=fblanked + 0.1*(float(ndropped)/nz - fblanked)
-  fblanked=float(ndropped)/nz
-!  write(*,3001) npct,nthresh,fblanked
-!3001 format(2i5,f7.3)
-
  return
 end subroutine blanker