Update CCPr_DryDep_Mod.F90

change 0 to ZERO
bbakernoaa · Oct 2, 2024 · d6e5d0b · d6e5d0b
1 parent 60f2264
commit d6e5d0b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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
          !------------------