<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( &
rthcuten = rthcuten_p , rqvcuten = rqvcuten_p , rqccuten = rqccuten_p , &
rqrcuten = rqrcuten_p , rqicuten = rqicuten_p , rqscuten = rqscuten_p , &
@@ -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) &
+ diag_physics % raincv % array(i)
- if(diag_physics % rainc % array(i) .gt. 0.) &
- write(0,201) i,diag_physics%raincv%array(i),diag_physics%raincv%array(i)
enddo
convection_select: select case(conv_deep_scheme)
</font>
</pre>