<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>