[Dart-dev] DART/trunk Revision: 10827

[dart at ucar.edu]

thoar at ucar.edu
2016-12-21 14:52:43 -0700 (Wed, 21 Dec 2016)
203
Fixed logic in model_interpolate.  The istatus needs to be reset after it was
used in get_reg_box_indices() - that (good) value was getting passed along even
after vertical interpolations were failing.




Modified: DART/trunk/models/ROMS/model_mod.f90
===================================================================
--- DART/trunk/models/ROMS/model_mod.f90	2016-12-21 19:54:11 UTC (rev 10826)
+++ DART/trunk/models/ROMS/model_mod.f90	2016-12-21 21:52:43 UTC (rev 10827)
@@ -555,7 +555,9 @@
 !write(*,*)'model_mod: obs loc vs. model loc ', llon, llat, TLON(x_ind,y_ind),TLAT(x_ind,y_ind)
 
 ! If any of these fail, we can exit (fail) immediately.
-! The interp_val and istatus values are initially set to a failed value, so just use those.
+! The interp_val is initially set to a failed value, so just use it.
+! Must reset istatus as it currently has a good value from get_reg_box_indices().
+istatus = 99
 
 call vert_interpolate(x(base_offset:top_offset),lon_bot,lat_bot,obs_kind,lheight, p(1))
 if (p(1) == MISSING_R8) return