[Dart-dev] [4548] DART/trunk/models/wrf/WRF_BC/module_netcdf_interface.f90: Bug fix reported by Rahul Mahajan. This bug

[nancy at ucar.edu]

Revision: 4548
Author:   nancy
Date:     2010-11-12 15:48:53 -0700 (Fri, 12 Nov 2010)
Log Message:
-----------
Bug fix reported by Rahul Mahajan.  This bug affected
update_wrf_bc when reading mass tendencies if there
were more than a single time in the input file.
The code was always reading the arrays for time 1.
The distributed WRF scripts that we support were
using separate files per time so those users
are uneffected, but users having their own scripts
should get this updated code.

Modified Paths:
--------------
    DART/trunk/models/wrf/WRF_BC/module_netcdf_interface.f90

-------------- next part --------------
Modified: DART/trunk/models/wrf/WRF_BC/module_netcdf_interface.f90
===================================================================
--- DART/trunk/models/wrf/WRF_BC/module_netcdf_interface.f90	2010-11-05 20:59:39 UTC (rev 4547)
+++ DART/trunk/models/wrf/WRF_BC/module_netcdf_interface.f90	2010-11-12 22:48:53 UTC (rev 4548)
@@ -287,7 +287,7 @@
 
 !  get the data
 
-  call check( nf90_get_var(cdfid, id_data, data, start = (/ 1, 1, 1 /)) )
+  call check( nf90_get_var(cdfid, id_data, data, start = (/ 1, 1, time /)) )
 
   if(debug) write(unit=*, fmt='(a,e24.12)') ' Sample data=', data(1,1)