clean up debugging code

NOAA-EMC · Dec 4, 2024 · ad772e3 · ad772e3
1 parent f88bf42
commit ad772e3
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/sorc/ncep_post.fd/COLLECT_LOC.f b/sorc/ncep_post.fd/COLLECT_LOC.f
@@ -84,7 +84,6 @@ SUBROUTINE COLLECT_LOC ( A, B )
       deallocate(buff)
       deallocate(rbufs)
 
-       tb=mpi_wtime()
        if(me .eq. 0) print 109,' GWVX COLLECT TIME ',im,jm,tb-ta
  109   format(a,2i10,f20.10)
       end               
@@ -110,7 +109,6 @@ SUBROUTINE COLLECT_ALL ( A, B )
       real, dimension(im,jm), intent(out) :: b
       integer ierr,n
       real, allocatable :: rbufs(:)
-      real*8 tb,ta
         ta=mpi_wtime()
       allocate(buff(im*jm))
       jj=( jexa(me)-jsxa(me)+1) * (iexa(me)-isxa(me)+1)