<p><b>duda</b> 2010-10-15 14:55:10 -0600 (Fri, 15 Oct 2010)</p><p>BRANCH COMMIT<br>
<br>
Fix intent for diag argument to compute_vert_imp_coefs;<br>
intent should be inout.<br>
<br>
<br>
M    src/core_nhyd_atmos/module_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_time_integration.F
===================================================================
--- branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_time_integration.F        2010-10-15 20:52:44 UTC (rev 560)
+++ branches/atmos_nonhydrostatic/src/core_nhyd_atmos/module_time_integration.F        2010-10-15 20:55:10 UTC (rev 561)
@@ -521,14 +521,14 @@
    ! Input: s - current model state
    !        grid - grid metadata
    !
-   ! Output: tend - cofrz, cofwr, cofwz, coftz, cofwt, a, alpha and gamma
+   ! Output: diag - cofrz, cofwr, cofwz, coftz, cofwt, a, alpha and gamma
    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
       implicit none
 
       type (state_type), intent(in) :: s
       type (mesh_type), intent(in) :: grid
-      type (diag_type), intent(in) :: diag
+      type (diag_type), intent(inout) :: diag
       real (kind=RKIND), intent(in) :: dts
 
       integer :: i, k, iq

</font>
</pre>