Add more prints

billsacks · Apr 5, 2024 · e7831d4 · e7831d4
1 parent 83cb698
commit e7831d4
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/biogeophys/CanopyHydrologyMod.F90 b/src/biogeophys/CanopyHydrologyMod.F90
@@ -34,6 +34,7 @@ module CanopyHydrologyMod
   use ColumnType      , only : col, column_type
   use PatchType       , only : patch, patch_type
   use NumericsMod     , only : truncate_small_values
+  use spmdMod, only : iam
   !
   ! !PUBLIC TYPES:
   implicit none
@@ -232,6 +233,9 @@ subroutine CanopyInterceptionAndThroughfall(bounds, &
      ! needed for all non-lake points. So a few routines use the nolake filter to ensure
      ! that these fluxes are set correctly for all patches.
 
+     if (iam == 20) then
+      write(iulog,*) 'WJS: CanopyInterceptionAndThroughfall: ', b_waterstate_inst%snocan_patch(24)
+     end if
 
      ! Compute canopy interception and throughfall for bulk water
      !
@@ -313,6 +317,10 @@ subroutine CanopyInterceptionAndThroughfall(bounds, &
         end associate
      end do
 
+     if (iam == 20) then
+      write(iulog,*) 'WJS: After AddIntercptionToCanopy: ', b_waterstate_inst%snocan_patch(24)
+     end if
+
      ! Compute runoff from canopy due to exceeding maximum storage, for bulk
      call BulkFlux_CanopyExcess(bounds, num_soilp, filter_soilp, &
           ! Inputs
@@ -357,6 +365,10 @@ subroutine CanopyInterceptionAndThroughfall(bounds, &
         end associate
      end do
 
+     if (iam == 20) then
+      write(iulog,*) 'WJS: After RemoveCanfallFromCanopy: ', b_waterstate_inst%snocan_patch(24)
+     end if
+
      ! Compute snow unloading for bulk
      call BulkFlux_SnowUnloading(bounds, num_soilp, filter_soilp, &
           ! Inputs
@@ -396,6 +408,10 @@ subroutine CanopyInterceptionAndThroughfall(bounds, &
         end associate
      end do
 
+     if (iam == 20) then
+      write(iulog,*) 'WJS: After RemoveSnowUnloading: ', b_waterstate_inst%snocan_patch(24)
+     end if
+
      ! Compute summed fluxes onto ground, for bulk water and each tracer
      !
      ! Note use of nolake filter: We need qflx_snow_grnd_col and qflx_liq_grnd_col for