[Dart-dev] [5654] DART/trunk/models/pe2lyr/model_mod.f90: major bug in an infrequently used model.

[nancy at ucar.edu]

Revision: 5654
Author:   nancy
Date:     2012-04-05 16:24:57 -0600 (Thu, 05 Apr 2012)
Log Message:
-----------
major bug in an infrequently used model.  the interpolate routine was
using the wrong indices and so all forward operator values were wrong.
after the fix i'm able to assimilate without strange results.
(merged from kodiak.)

Modified Paths:
--------------
    DART/trunk/models/pe2lyr/model_mod.f90

-------------- next part --------------
Modified: DART/trunk/models/pe2lyr/model_mod.f90
===================================================================
--- DART/trunk/models/pe2lyr/model_mod.f90	2012-04-05 22:22:57 UTC (rev 5653)
+++ DART/trunk/models/pe2lyr/model_mod.f90	2012-04-05 22:24:57 UTC (rev 5654)
@@ -433,7 +433,7 @@
 
 ! order is u,v,z 
 if(mytype == KIND_U_WIND_COMPONENT) then
-   indx = (level-1)*nlats*nlons+(lat_index-1)*nlons + lat_index
+   indx =               (level-1)*nlats*nlons+(lat_index-1)*nlons + lon_index
 else if(mytype == KIND_V_WIND_COMPONENT) then
    indx = 2*nlats*nlons+(level-1)*nlats*nlons+(lat_index-1)*nlons + lon_index
 else if(mytype == KIND_GEOPOTENTIAL_HEIGHT) then