[Dart-dev] DART/branches Revision: 12303

[dart at ucar.edu]

nancy at ucar.edu
2018-01-09 15:16:01 -0700 (Tue, 09 Jan 2018)
159
get_quad_vals had an uninitialized return status array
if things went well. this worked ok when compiled with
debug on - not so much when it was compiled -O.




Modified: DART/branches/recam/models/cam-fv/model_mod.f90
===================================================================
--- DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-09 21:52:18 UTC (rev 12302)
+++ DART/branches/recam/models/cam-fv/model_mod.f90	2018-01-09 22:16:01 UTC (rev 12303)
@@ -933,6 +933,10 @@
 real(r8) :: four_vert_fracts(4, ens_size)
 type(quad_interp_handle) :: interp_handle
 
+
+quad_vals(:,:) = MISSING_R8
+my_status(:) = 99
+
 ! need to consider the case for 2d vs 3d variables
 numdims = get_dims_from_qty(obs_qty, varid)
 
@@ -1017,6 +1021,10 @@
    endif
 
 endif
+
+! good return
+my_status(:) = 0
+
 end subroutine get_quad_vals
 
 !-----------------------------------------------------------------------