<p><b>duda</b> 2011-10-11 17:30:45 -0600 (Tue, 11 Oct 2011)</p><p>BRANCH COMMIT<br>
<br>
Add missing arguments state and diag in call to physics_addtend().<br>
<br>
<br>
M src/core_nhyd_atmos/module_time_integration.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/module_time_integration.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_time_integration.F        2011-10-11 21:03:15 UTC (rev 1064)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_time_integration.F        2011-10-11 23:30:45 UTC (rev 1065)
@@ -191,10 +191,10 @@
if (debug) write(0,*) ' add physics tendencies '
block => domain % blocklist
do while (associated(block))
- call physics_addtend( domain % dminfo , block % parinfo % cellsToSend, block % parinfo % cellsToRecv , &
- block % mesh , block % tend, block % tend_physics , &
- block % state % time_levs(2) % state % rho_zz % array(:,:), &
- block % diag % rho_edge % array(:,:) )
+ call physics_addtend( domain % dminfo , block % parinfo % cellsToSend, block % parinfo % cellsToRecv, &
+ block % mesh , block % state % time_levs(2) % state, block % diag, block % tend, &
+ block % tend_physics , block % state % time_levs(2) % state % rho_zz % array(:,:), &
+ block % diag % rho_edge % array(:,:) )
block => block % next
end do
if (debug) write(0,*) ' finished add physics tendencies '
</font>
</pre>