[Dart-dev] [9620] DART/trunk/models/cam/model_mod.f90: Bug fix: vstatus was not being set for os_kind == KIND_SURFACE_ELEVATION in the fv interpolate.

[nancy at ucar.edu]

Revision: 9620
Author:   hkershaw
Date:     2016-01-27 10:45:48 -0700 (Wed, 27 Jan 2016)
Log Message:
-----------
Bug fix:  vstatus was not being set for os_kind == KIND_SURFACE_ELEVATION in the fv interpolate.
This causes istatus to be setting to -888888 which then errored out in filter because of the negative status.

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	2016-01-27 17:30:44 UTC (rev 9619)
+++ DART/trunk/models/cam/model_mod.f90	2016-01-27 17:45:48 UTC (rev 9620)
@@ -4697,6 +4697,7 @@
    vals(1,2) = phis(lon_ind_below, lat_ind_above) / gravity_const
    vals(2,1) = phis(lon_ind_above, lat_ind_below) / gravity_const
    vals(2,2) = phis(lon_ind_above, lat_ind_above) / gravity_const
+   vstatus = 0
 
 elseif (vert_is_level(obs_loc)) then
    ! Pobs