Update diagstate_mod.F90

more debugging
bbakernoaa · Oct 1, 2024 · 656a394 · 656a394
1 parent 7b8eeb9
commit 656a394
Showing 1 changed file with 6 additions and 3 deletions.
diff --git 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