[Dart-dev] [4223] DART/trunk/models/cam/model_mod.f90: Set initial value for an array which is allocated larger,

[nancy at ucar.edu]

Revision: 4223
Author:   nancy
Date:     2010-01-20 14:09:48 -0700 (Wed, 20 Jan 2010)
Log Message:
-----------
Set initial value for an array which is allocated larger, 
but only the first value is set or used. The whole array
ends up in the output diag netcdf files, and the random
uninitialized part make it hard to bitwise comparisons.

Modified Paths:
--------------
    DART/trunk/models/cam/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/cam/model_mod.f90
===================================================================
--- DART/trunk/models/cam/model_mod.f90	2010-01-20 18:27:41 UTC (rev 4222)
+++ DART/trunk/models/cam/model_mod.f90	2010-01-20 21:09:48 UTC (rev 4223)
@@ -1390,6 +1390,7 @@
 
 ! Initialize the storage space and return
 allocate( var%vals      (length))
+var%vals = 0.0_r8
 allocate( var%atts_names(num_atts))
 allocate( var%atts_vals (num_atts))