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