<p><b>laura@ucar.edu</b> 2012-10-22 15:32:43 -0600 (Mon, 22 Oct 2012)</p><p>added call to subroutine interp_diagnostics in subroutine atm_compute_output_diagnostics to calculate dynamics fields on fixed pressure levels<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F        2012-10-22 21:28:01 UTC (rev 2249)
+++ branches/atmos_physics/src/core_nhyd_atmos/mpas_atm_mpas_core.F        2012-10-22 21:32:43 UTC (rev 2250)
@@ -379,6 +379,7 @@
use mpas_grid_types
use mpas_constants
+ use mpas_atm_interp_diagnostics
implicit none
@@ -395,6 +396,8 @@
diag % rho % array(k,iCell) = state % rho_zz % array(k,iCell) * grid % zz % array(k,iCell)
end do
end do
+
+ call interp_diagnostics(grid,state,diag)
end subroutine atm_compute_output_diagnostics
</font>
</pre>