From 3a4af14826efc2eaf8f20af54a968b33dea9c6cf Mon Sep 17 00:00:00 2001
From: Ed Hartnett <edwardjameshartnett@gmail.com>
Date: Tue, 4 Jun 2019 16:05:15 -0600
Subject: [PATCH] removed home-rolled memory checking code

---
 src/flib/piodarray.F90.in | 4 ----
 src/flib/piolib_mod.F90   | 8 --------
 2 files changed, 12 deletions(-)

diff --git a/src/flib/piodarray.F90.in b/src/flib/piodarray.F90.in
index db38e500d68..3fe4e8904c1 100644
--- 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
index feb06c83bf5..58828879afa 100644
--- 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