From 83cb6988a3aa7b4b160b75217e31e4e05f0de4c0 Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Thu, 4 Apr 2024 17:42:02 -0600 Subject: [PATCH] Add a print each iteration through the driver --- src/main/clm_driver.F90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/main/clm_driver.F90 b/src/main/clm_driver.F90 index 00a98e61b4..dc1b5a2533 100644 --- a/src/main/clm_driver.F90 +++ b/src/main/clm_driver.F90 @@ -19,7 +19,7 @@ module clm_driver use clm_time_manager , only : get_prev_date, is_first_step use clm_varpar , only : nlevsno, nlevgrnd use clm_varorb , only : obliqr - use spmdMod , only : masterproc, mpicom + use spmdMod , only : masterproc, mpicom, iam use decompMod , only : get_proc_clumps, get_clump_bounds, get_proc_bounds, bounds_type use filterMod , only : filter, filter_inactive_and_active use filterMod , only : setExposedvegpFilter @@ -167,6 +167,12 @@ subroutine clm_drv(doalb, nextsw_cday, declinp1, declin, rstwr, nlend, rdate, ro ! Determine processor bounds and clumps for this processor + if (iam == 20) then + nstep = get_nstep() + + write(iulog,*) 'WJS: driver loop: nstep, snocan(24) = ', nstep, water_inst%waterstatebulk_inst%snocan_patch(24) + end if + call get_proc_bounds(bounds_proc) nclumps = get_proc_clumps()