Skip to content

Commit 7a27924

Browse files
committed
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]>
1 parent 864c866 commit 7a27924

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

src/gen.c

+5
Original file line numberDiff line numberDiff line change
@@ -2844,6 +2844,11 @@ int INITVAL;
28442844
//
28452845
// Fortran-90
28462846
//
2847+
WriteComment("~~~ Zero C array");
2848+
if ( useDouble )
2849+
F90_Inline( " C = 0.0_dp" );
2850+
else
2851+
F90_Inline( " C = 0.0" );
28472852
NewLines(1);
28482853

28492854
WriteComment("~~~ Set initial species concentrations");

0 commit comments

Comments
 (0)