<p><b>laura@ucar.edu</b> 2013-01-23 09:28:12 -0700 (Wed, 23 Jan 2013)</p><p>corrected the calculation of the interpolated meridional wind to fixed pressure levels<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_interp_diagnostics.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_interp_diagnostics.F        2013-01-18 23:41:30 UTC (rev 2390)
+++ branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_interp_diagnostics.F        2013-01-23 16:28:12 UTC (rev 2391)
@@ -187,7 +187,7 @@
do iCell = 1, nCells
do k = 1, nVertLevels
kk = nVertLevels+1-k
- field_in(iCell,kk) = uzonal(k,iCell)
+ field_in(iCell,kk) = umeridional(k,iCell)
enddo
enddo
call interp_tofixed_pressure(nCells,nVertLevels,nIntP,press_in,field_in,press_interp,field_interp)
</font>
</pre>