removed home-rolled memory checking code

jedwards4b · Jun 4, 2019 · 3a4af14 · 3a4af14
1 parent ba3e18d
commit 3a4af14
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 12 deletions.
diff --git a/src/flib/piodarray.F90.in b/src/flib/piodarray.F90.in
@@ -41,10 +41,6 @@ module piodarray
 
   character(len=*), parameter, private  :: modName='piodarray'
 
-#ifdef MEMCHK
-integer :: msize, rss, mshare, mtext, mstack, lastrss=0
-#endif
-
 interface
    integer(C_INT) function PIOc_write_darray(ncid, vid, ioid, arraylen, array, fillvalue) &
         bind(C,name="PIOc_write_darray")

diff --git a/src/flib/piolib_mod.F90 b/src/flib/piolib_mod.F90
@@ -99,14 +99,6 @@ module piolib_mod
        PIO_iotype_available, &
        PIO_set_rearr_opts
 
-#ifdef MEMCHK
-  !> this is an internal variable for memory leak debugging
-  !! it is used when macro memchk is defined and it causes each task to print the
-  !! memory resident set size anytime it changes within pio.
-  !<
-  integer :: lastrss=0
-#endif
-
   !-----------------------------------------------------------------------
   !
   !  module variables