Update CCPr_DryDep_Mod.F90

Adding drydep freq to DryDepState type as allocatable array
bbakernoaa · Oct 1, 2024 · 1dcaa4b · 1dcaa4b
1 parent 006b94a
commit 1dcaa4b
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/src/process/drydep/CCPr_DryDep_Mod.F90 b/src/process/drydep/CCPr_DryDep_Mod.F90
@@ -51,8 +51,8 @@ MODULE CCPR_DryDep_mod
       INTEGER                         :: SchemeOpt             ! Scheme Option (if there is only one SchemeOpt always = 1)
       real                            :: particleradius
       real                            :: particledensity
-      real                            :: drydep_frequency      ! could have one per chem species, revisit later
-      real                            :: drydep_vel            ! could have one per chem species, revisit later
+      real, allocatable               :: drydep_frequency(:)      ! could have one per chem species, revisit later
+      real, allocatable               :: drydep_vel(:)            ! could have one per chem species, revisit later
 
 
    END TYPE DryDepStateType
@@ -112,8 +112,10 @@ SUBROUTINE CCPR_DryDep_Init( Config, DryDepState, ChemState, RC )
          ! Activate Process
          !------------------
          DryDepState%Activate = .true.
-         DryDepState%drydep_frequency = 0
-         DryDepState%drydep_vel = 0
+         allocate(DryDepState%drydep_frequency(ChemState%nSpeciesAeroDryDep))
+         DryDepState%drydep_frequency(1:ChemState%nSpeciesAeroDryDep)=0
+         allocate(DryDepState%drydep_vel(ChemState%nSpeciesAeroDryDep))
+         DryDepState%drydep_vel(1:ChemState%nSpeciesAeroDryDep)=0
 
          ! Set scheme option
          !------------------