<p><b>duda</b> 2009-09-02 14:23:32 -0600 (Wed, 02 Sep 2009)</p><p>Correct a bug in input of real 3d time-varying fields.<br>
<br>
M    module_io_input.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/swmodel/src/module_io_input.F
===================================================================
--- trunk/swmodel/src/module_io_input.F        2009-09-02 18:38:43 UTC (rev 40)
+++ trunk/swmodel/src/module_io_input.F        2009-09-02 20:23:32 UTC (rev 41)
@@ -888,23 +888,23 @@
  
       integer :: nferr
       integer :: varID
-      integer, dimension(4) :: start3, count3
+      integer, dimension(4) :: start4, count4
  
-      start3(1) = field % ioinfo % start(1)
-      start3(2) = field % ioinfo % start(2)
-      start3(3) = field % ioinfo % start(3)
-      start3(3) = input_obj % time
-      count3(1) = field % ioinfo % count(1)
-      count3(2) = field % ioinfo % count(2)
-      count3(3) = field % ioinfo % count(3)
-      count3(3) = 1
+      start4(1) = field % ioinfo % start(1)
+      start4(2) = field % ioinfo % start(2)
+      start4(3) = field % ioinfo % start(3)
+      start4(4) = input_obj % time
+      count4(1) = field % ioinfo % count(1)
+      count4(2) = field % ioinfo % count(2)
+      count4(3) = field % ioinfo % count(3)
+      count4(4) = 1
  
 #include &quot;input_field3dreal_time.inc&quot;
 
 #if (RKIND == 8)
-      nferr = nf_get_vara_double(input_obj % rd_ncid, varID, start3, count3, field % array)
+      nferr = nf_get_vara_double(input_obj % rd_ncid, varID, start4, count4, field % array)
 #else
-      nferr = nf_get_vara_real(input_obj % rd_ncid, varID, start3, count3, field % array)
+      nferr = nf_get_vara_real(input_obj % rd_ncid, varID, start4, count4, field % array)
 #endif
 
    end subroutine io_input_field3dReal_time

</font>
</pre>