Update CCPr_DryDep_Mod.F90

debugging the diagstate
bbakernoaa · Oct 1, 2024 · 81238d8 · 81238d8
1 parent 6e177db
commit 81238d8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/process/drydep/CCPr_DryDep_Mod.F90 b/src/process/drydep/CCPr_DryDep_Mod.F90
@@ -233,7 +233,9 @@ SUBROUTINE CCPr_DryDep_Run( MetState, DiagState, DryDepState, ChemState, RC )
                   ! Fill Diagnostic Variables
                   !--------------------------
                   !!!!FIXME: COME BACK TO THIS LATER
-                  DiagState%drydep_frequency(ChemState%DryDepIndex(i)) = drydepf(1,1)
+                  print *, "DiagState%drydep_frequency(ChemState%DryDepIndex(i))=", DiagState%drydep_frequency(ChemState%DryDepIndex(i))
+                  print *, "drydepf(1,1) = ", drydepf(1,1)
+                  !DiagState%drydep_frequency(ChemState%DryDepIndex(i)) = drydepf(1,1)
                   DiagState%drydep_vel(ChemState%DryDepIndex(i)) = MetState%ZMID(1) * drydepf(1,1)
 
                   ! apply drydep velocities/freq to chem species