[Dart-dev] [6566] DART/trunk/obs_sequence/obs_selection.f90: fix a bug in which an array which was used in certain cases

[nancy at ucar.edu]

Revision: 6566
Author:   nancy
Date:     2013-11-04 15:45:21 -0700 (Mon, 04 Nov 2013)
Log Message:
-----------
fix a bug in which an array which was used in certain cases
was never allocated.

Modified Paths:
--------------
    DART/trunk/obs_sequence/obs_selection.f90

-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_selection.f90
===================================================================
--- DART/trunk/obs_sequence/obs_selection.f90	2013-11-04 22:05:22 UTC (rev 6565)
+++ DART/trunk/obs_sequence/obs_selection.f90	2013-11-04 22:45:21 UTC (rev 6566)
@@ -986,7 +986,7 @@
      call init_obs(obs,      copies, qcs)
      call init_obs(prev_obs, copies, qcs)
 
-     allocate(selection_list(count))
+     allocate(selection_list(count), type_wanted(max_obs_kinds))
     
      if (.not. get_first_obs(seq_in, obs)) then
          call error_handler(E_ERR,'obs_selection', &
@@ -1154,7 +1154,7 @@
 
   ! clean up
 
-  deallocate(selection_list)
+  deallocate(selection_list, type_wanted)
   selection_count = 0
 
 end subroutine destroy_selections