Update zeroing of C array in _Initialize #2

In the prior commit, we had removed the old code but did not commit the new code to zero the C array. Now fixed. Signed-off-by: Bob Yantosca <[email protected]>
KineticPreProcessor · Apr 27, 2022 · 7a27924 · 7a27924
1 parent 864c866
commit 7a27924
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/gen.c b/src/gen.c
@@ -2844,6 +2844,11 @@ int INITVAL;
     //
     // Fortran-90
     //
+    WriteComment("~~~ Zero C array");
+    if ( useDouble )
+      F90_Inline( "  C = 0.0_dp" );
+    else
+      F90_Inline( "  C = 0.0" );
     NewLines(1);
 
     WriteComment("~~~ Set initial species concentrations");