[Dart-dev] [3453] DART/trunk/preprocess/preprocess.f90: Fix 'use kinds' loop to run only up to the actual number of different kind strings;

nancy at ucar.edu nancy at ucar.edu
Wed Jul 9 10:59:35 MDT 2008


An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080709/80c31612/attachment.html
-------------- next part --------------
Modified: DART/trunk/preprocess/preprocess.f90
===================================================================
--- DART/trunk/preprocess/preprocess.f90	2008-07-09 16:51:00 UTC (rev 3452)
+++ DART/trunk/preprocess/preprocess.f90	2008-07-09 16:59:34 UTC (rev 3453)
@@ -564,9 +564,9 @@
             'use obs_kind_mod, only : ' // trim(type_string(k))
       end do
       write(obs_def_out_unit, 21) blank_line
-      do k = 1, num_types_found
+      do k = 1, num_kinds_found
          write(obs_def_out_unit, 21) &
-            'use obs_kind_mod, only : ' // trim(kind_string(kind_index(k)))
+            'use obs_kind_mod, only : ' // trim(kind_string(k))
       end do
       write(obs_def_out_unit, 21) blank_line
       write(obs_def_out_unit, 21) separator_line


More information about the Dart-dev mailing list