<p><b>laura@ucar.edu</b> 2011-04-05 12:12:19 -0600 (Tue, 05 Apr 2011)</p><p>updated drivers<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_physics/module_driver_convection_deep.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_driver_convection_deep.F        2011-04-05 18:11:36 UTC (rev 776)
+++ branches/atmos_physics/src/core_physics/module_driver_convection_deep.F        2011-04-05 18:12:19 UTC (rev 777)
@@ -151,12 +151,6 @@
        p_qi = state % index_qi
        p_qs = state % index_qs
 
-       f_qv = .false.
-       f_qc = .false.
-       f_qr = .true.
-       f_qi = .true.
-       f_qs = .true.
-
        call kf_eta_init( &amp;
                rthcuten = rthcuten_p , rqvcuten = rqvcuten_p , rqccuten       = rqccuten_p , &amp;
                rqrcuten = rqrcuten_p , rqicuten = rqicuten_p , rqscuten       = rqscuten_p , &amp;
@@ -332,7 +326,6 @@
 
 !---------------------------------------------------------------------------------------------
 
- write(0,*) '--- enter convection_deep_end:'
  do j = jts,jte
  do i = its,ite
 
@@ -353,8 +346,6 @@
  do i = its,ite
     diag_physics % rainc % array(i) = diag_physics % rainc  % array(i) &amp;
                                     + diag_physics % raincv % array(i)
-    if(diag_physics % rainc % array(i) .gt. 0.) &amp;
-       write(0,201) i,diag_physics%raincv%array(i),diag_physics%raincv%array(i)
  enddo
  
  convection_select: select case(conv_deep_scheme)

</font>
</pre>