Add commented-out code to run memory usage in GFS driver files for IP…

…D-only builds
NCAR · May 11, 2018 · 244620e · 244620e
1 parent 130018f
commit 244620e
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 9 deletions.
diff --git 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
@@ -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
@@ -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