Update diagstate_mod.F90

more debugging
bbakernoaa · Oct 1, 2024 · d674bca · d674bca
1 parent 656a394
commit d674bca
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/diagstate_mod.F90 b/src/core/diagstate_mod.F90
@@ -112,7 +112,7 @@ subroutine Diag_Allocate(Config, DiagState, ChemState, RC)
             ErrMsg = 'Could not Allocate DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep)'
             CALL CC_Error( ErrMsg, RC, thisLoc )
          else
-            print *, "Size(ChemState%nSpeciesAeroDryDep)=", Size(ChemState%nSpeciesAeroDryDep)
+            print *, "ChemState%nSpeciesAeroDryDep=", ChemState%nSpeciesAeroDryDep
             print *, "allocated DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep) "
          ENDIF
          DiagState%drydep_frequency(ChemState%nSpeciesAeroDryDep)= ZERO