Update CCPr_DryDep_Mod.F90

bbakernoaa · Oct 1, 2024 · adf702f · adf702f
1 parent 1dcaa4b
commit adf702f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/process/drydep/CCPr_DryDep_Mod.F90 b/src/process/drydep/CCPr_DryDep_Mod.F90
@@ -242,6 +242,8 @@ SUBROUTINE CCPr_DryDep_Run( MetState, DiagState, DryDepState, ChemState, RC )
                   !print *, "drydepf(1,1) = ", drydepf(1,1)
                   DryDepState%drydep_frequency(ChemState%DryDepIndex(i)) = drydepf(1,1)
                   DryDepState%drydep_vel(ChemState%DryDepIndex(i)) = MetState%ZMID(1) * drydepf(1,1)
+                  DiagState%drydep_frequency= DryDepState%drydep_frequency(ChemState%DryDepIndex(i))
+                  DiagState%drydep_vel = DryDepState%drydep_vel(ChemState%DryDepIndex(i))
 
                   ! apply drydep velocities/freq to chem species
                   dqa = 0.