From 19702e3712a47796961b0e854392372e06519d58 Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Wed, 28 Oct 2020 15:32:59 -0700 Subject: [PATCH] adding soil_layer_index variable initialization --- biogeochem/EDPhysiologyMod.F90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/biogeochem/EDPhysiologyMod.F90 b/biogeochem/EDPhysiologyMod.F90 index 3a5cfde47a..fad5608346 100644 --- a/biogeochem/EDPhysiologyMod.F90 +++ b/biogeochem/EDPhysiologyMod.F90 @@ -2323,9 +2323,10 @@ subroutine CWDOut( litt, fragmentation_scaler, nlev_eff_decomp ) ! ! !LOCAL VARIABLES: - integer :: c - integer :: ilyr - integer :: dcmpy + integer :: c ! Fuel size class index + integer :: ilyr ! Soil layer index + integer :: dcmpy ! Decomposibility pool indexer + integer :: soil_layer_index = 1 ! Soil layer index associated with above ground litter !----------------------------------------------------------------------