[Dart-dev] [3295] DART/trunk/obs_model/obs_model_mod.f90: Delete the local observation copy if we leave the subroutine early.

[nancy at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080409/d1398d5a/attachment.html
-------------- next part --------------
Modified: DART/trunk/obs_model/obs_model_mod.f90
===================================================================
--- DART/trunk/obs_model/obs_model_mod.f90	2008-04-07 20:42:26 UTC (rev 3294)
+++ DART/trunk/obs_model/obs_model_mod.f90	2008-04-09 19:27:39 UTC (rev 3295)
@@ -137,6 +137,8 @@
 
 if (leaving_early > 0) then
    call wait_if_needed(async)
+   ! need to destroy obs here before returning
+   call destroy_obs(observation)
    return
 endif