[Dart-dev] [5833] DART/branches/development/models/wrf/WRF_DART_utilities/ replace_wrf_fields.f90: fix a cut-n-paste typo for a 7-dimensional array

[nancy at ucar.edu]

Revision: 5833
Author:   nancy
Date:     2012-08-06 16:19:46 -0600 (Mon, 06 Aug 2012)
Log Message:
-----------
fix a cut-n-paste typo for a 7-dimensional array
(not much chance of this code actually being used).

Modified Paths:
--------------
    DART/branches/development/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90

-------------- next part --------------
Modified: DART/branches/development/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90
===================================================================
--- DART/branches/development/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90	2012-08-02 23:05:53 UTC (rev 5832)
+++ DART/branches/development/models/wrf/WRF_DART_utilities/replace_wrf_fields.f90	2012-08-06 22:19:46 UTC (rev 5833)
@@ -303,7 +303,7 @@
          call nc_check(nf90_put_var(ncoutid, outvarid, sixd), 'nf90_put_var', 'outfile')
          deallocate(sixd)
       case (7)
-         allocate(sevend(dimlen(1),dimlen(2),dimlen(3),dimlen(4),dimlen(4),dimlen(6),dimlen(7)))
+         allocate(sevend(dimlen(1),dimlen(2),dimlen(3),dimlen(4),dimlen(5),dimlen(6),dimlen(7)))
          call nc_check(nf90_get_var( ncinid,  invarid, sevend), 'nf90_get_var',  'infile')
          call nc_check(nf90_put_var(ncoutid, outvarid, sevend), 'nf90_put_var', 'outfile')
          deallocate(sevend)