From 656a39459d3957c004c535701c0373d5a9baf241 Mon Sep 17 00:00:00 2001
From: lholland-noaa <165287123+lholland-noaa@users.noreply.github.com>
Date: Tue, 1 Oct 2024 11:05:09 -0400
Subject: [PATCH] Update diagstate_mod.F90

more debugging
---
 src/core/diagstate_mod.F90 | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/core/diagstate_mod.F90 b/src/core/diagstate_mod.F90
index 9a9992a4..7a9a272a 100644
--- a/src/core/diagstate_mod.F90
+++ b/src/core/diagstate_mod.F90
@@ -109,17 +109,20 @@ subroutine Diag_Allocate(Config, DiagState, ChemState, RC)
       if (Config%drydep_activate) then
          Allocate(DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep), STAT=RC)
          IF ( RC /= CC_SUCCESS ) THEN
-            ErrMsg = 'Could not Allocate ChemState%ChemSpecies(i)%conc'
+            ErrMsg = 'Could not Allocate DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep)'
             CALL CC_Error( ErrMsg, RC, thisLoc )
+         else
+            print *, "Size(ChemState%nSpeciesAeroDryDep)=", Size(ChemState%nSpeciesAeroDryDep)
+            print *, "allocated DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep) "
          ENDIF
-         DiagState%drydep_frequency(1:ChemState%nSpeciesAeroDryDep)= ZERO
+         DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep)= ZERO
 
          Allocate(DiagState%drydep_vel(ChemState%nSpeciesAeroDryDep), STAT=RC)
          IF ( RC /= CC_SUCCESS ) THEN
             ErrMsg = 'Could not Allocate ChemState%ChemSpecies(i)%conc'
             CALL CC_Error( ErrMsg, RC, thisLoc )
          ENDIF
-         DiagState%drydep_vel(1:ChemState%nSpeciesAeroDryDep)= ZERO
+         DiagState%drydep_vel(ChemState%nSpeciesAeroDryDep)= ZERO
 
       endif