Minor cleanup: remove prototyping from main program.

src/lbmocl.f90

@@ -51,7 +51,6 @@ program lbmocl
 ! VARS: Profiling
 integer(c_int64_t) :: collideTavg, boundariesTavg, streamTavg
 real(dp) :: Tupdate
-integer :: fh, i
 
 ! ------------------ END DECLARATIONS ------------------
 
@@ -115,7 +114,6 @@ program lbmocl
 ! Load and compile OpenCL source
 call fclGetKernelResource(programSource)
 prog = fclCompileProgram(programSource) !,'-cl-nv-verbose')
-
 ! call fclDumpBuildLog(prog,devices(1))
 
 ! Calculate global work size as multiple of desired block size
@@ -221,22 +219,4 @@ program lbmocl
 end if
 
 
-! open(newunit=fh,file='trace',status='unknown')
-
-! write(fh,*) '['
-! call fclDumpTracingData(fh,collideK)
-! write(fh,*) ','
-! call fclDumpTracingData(fh,boundariesK)
-! write(fh,*) ','
-! call fclDumpTracingData(fh,streamK)
-! write(fh,*) ','
-! call fclDumpTracingData(fh,calcVarsK)
-! write(fh,*) ','
-! call fclDumpTracingData(fh,rho_d)
-! write(fh,*) ','
-! call fclDumpTracingData(fh,u_d)
-! write(fh,*) ','
-! call fclDumpTracingData(fh,v_d)
-! write(fh,*) ']'
-
 end program lbmocl