From 244620e007e6ab470b016ea9dbe3d7e29483ee52 Mon Sep 17 00:00:00 2001
From: Dom Heinzeller <dom.heinzeller@noaa.gov>
Date: Fri, 11 May 2018 14:16:47 -0600
Subject: [PATCH] Add commented-out code to run memory usage in GFS driver
 files for IPD-only builds

---
 GFS_layer/GFS_driver.F90           |  4 ++++
 GFS_layer/GFS_physics_driver.F90   |  8 ++++----
 GFS_layer/GFS_radiation_driver.F90 | 11 ++++++-----
 3 files changed, 14 insertions(+), 9 deletions(-)

diff --git a/GFS_layer/GFS_driver.F90 b/GFS_layer/GFS_driver.F90
index f6722d075..86508e4ee 100644
--- a/GFS_layer/GFS_driver.F90
+++ b/GFS_layer/GFS_driver.F90
@@ -314,6 +314,7 @@ subroutine GFS_stochastic_driver (Model, Statein, Stateout, Sfcprop, Coupling, &
                                     Grid, Tbd, Cldprop, Radtend, Diag)
 
     use GFS_stochastics, only: GFS_stochastics_run
+    !use memcheck, only: memcheck_run
 
     implicit none
 
@@ -336,6 +337,9 @@ subroutine GFS_stochastic_driver (Model, Statein, Stateout, Sfcprop, Coupling, &
     call GFS_stochastics_run(Model, Statein, Stateout, Sfcprop, Coupling, &
                              Grid, Tbd, Cldprop, Radtend, Diag, errmsg, errflg)
 
+    !errmsg = 'end of GFS_stochastic_driver'
+    !call memcheck_run(Model%sec, Tbd%blkno, errmsg, errflg)
+
   end subroutine GFS_stochastic_driver
 #endif
 
diff --git a/GFS_layer/GFS_physics_driver.F90 b/GFS_layer/GFS_physics_driver.F90
index 3888abe77..f1f8e9528 100644
--- a/GFS_layer/GFS_physics_driver.F90
+++ b/GFS_layer/GFS_physics_driver.F90
@@ -66,9 +66,8 @@ module module_physics_driver
   use GFS_surface_generic_pre,   only: GFS_surface_generic_pre_run
   use GFS_surface_generic_post,  only: GFS_surface_generic_post_run
 
-! DH*
 !  use GFS_diagtoscreen, only: GFS_diagtoscreen_run
-! *DH
+!  use memcheck, only: memcheck_run
 
   implicit none
 
@@ -2849,10 +2848,11 @@ subroutine GFS_physics_driver                         &
         deallocate (qrn, qsnw, ncpr, ncps)
       endif
 
-      ! DH*
       !call GFS_diagtoscreen_run(Model, Statein, Stateout, Sfcprop, Coupling, &
       !                          Grid, Tbd, Cldprop, Radtend, Diag, errmsg, errflg)
-      ! *DH
+      !errmsg = 'end of GFS_physics_driver'
+      !call memcheck_run(Model%sec, Tbd%blkno, errmsg, errflg)
+
       return
 !...................................
       end subroutine GFS_physics_driver
diff --git a/GFS_layer/GFS_radiation_driver.F90 b/GFS_layer/GFS_radiation_driver.F90
index f57bda244..2d31d64cd 100644
--- a/GFS_layer/GFS_radiation_driver.F90
+++ b/GFS_layer/GFS_radiation_driver.F90
@@ -348,10 +348,10 @@ module module_radiation_driver        !
                                            GFS_cldprop_type,             &
                                            GFS_radtend_type,             &
                                            GFS_diag_type
-!
-! DH*
+
 !      use GFS_diagtoscreen, only: GFS_diagtoscreen_run
-! *DH
+!      use memcheck, only: memcheck_run
+
       implicit   none
 !
       private
@@ -1301,10 +1301,11 @@ subroutine GFS_radiation_driver                       &
           Coupling, scmpsw, im, lm, LTP, kt, kb, kd, raddt, aerodp,    &
           cldsa, mtopa, mbota, clouds(:,:,1), errmsg, errflg)
 
-      ! DH*
       !call GFS_diagtoscreen_run(Model, Statein, Stateout, Sfcprop, Coupling, &
       !                          Grid, Tbd, Cldprop, Radtend, Diag, errmsg, errflg)
-      ! *DH
+      !errmsg = 'end of GFS_radiation_driver'
+      !call memcheck_run(Model%sec, Tbd%blkno, errmsg, errflg)
+
       end subroutine GFS_radiation_driver
 #endif
 ! End of block commented out for CCXX