From d6e5d0bb8dfeaf1bc4e28e6f596cfc60bf9294af Mon Sep 17 00:00:00 2001
From: lholland-noaa <165287123+lholland-noaa@users.noreply.github.com>
Date: Wed, 2 Oct 2024 14:21:38 -0400
Subject: [PATCH] Update CCPr_DryDep_Mod.F90

change 0 to ZERO
---
 src/process/drydep/CCPr_DryDep_Mod.F90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/process/drydep/CCPr_DryDep_Mod.F90 b/src/process/drydep/CCPr_DryDep_Mod.F90
index 46ce0ec2..544d5913 100644
--- a/src/process/drydep/CCPr_DryDep_Mod.F90
+++ b/src/process/drydep/CCPr_DryDep_Mod.F90
@@ -117,14 +117,14 @@ SUBROUTINE CCPR_DryDep_Init( Config, DryDepState, ChemState, RC )
             ErrMsg = 'Could not Allocate DryDepState%drydep_frequency(ChemState%nSpeciesAeroDryDep)'
             CALL CC_Error( ErrMsg, RC, ThisLoc )
          ENDIF
-         DryDepState%drydep_frequency(1:ChemState%nSpeciesAeroDryDep)=0
+         DryDepState%drydep_frequency(1:ChemState%nSpeciesAeroDryDep)=ZERO
 
          allocate(DryDepState%drydep_vel(ChemState%nSpeciesAeroDryDep), STAT=RC)
          IF ( RC /= CC_SUCCESS ) THEN
             ErrMsg = 'Could not Allocate DryDepState%drydep_vel(ChemState%nSpeciesAeroDryDep)'
             CALL CC_Error( ErrMsg, RC, ThisLoc )
          ENDIF
-         DryDepState%drydep_vel(1:ChemState%nSpeciesAeroDryDep)=0
+         DryDepState%drydep_vel(1:ChemState%nSpeciesAeroDryDep)=ZERO
 
          ! Set scheme option
          !------------------