<p><b>laura@ucar.edu</b> 2012-03-29 09:50:43 -0600 (Thu, 29 Mar 2012)</p><p>removed additional print statements in the subroutine update_convection_step1<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_convection_deep.F
===================================================================
--- branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_convection_deep.F        2012-03-28 22:59:42 UTC (rev 1733)
+++ branches/atmos_physics/src/core_atmos_physics/mpas_atmphys_driver_convection_deep.F        2012-03-29 15:50:43 UTC (rev 1734)
@@ -582,19 +582,6 @@
  integer:: iCell,k
 
 !---------------------------------------------------------------------------------------------
- write(0,*)
- write(0,*) '--- enter subroutine update_convection_step1:'
- write(0,*) 'deep convection:'
- do iCell = 1,mesh%nCellsSolve
-    if(diag_physics%nca%array(iCell).gt.0. .and. diag_physics%cuprec%array(iCell).gt.0.) &amp;
-       write(0,101) iCell,diag_physics%nca%array(iCell),diag_physics%cuprec%array(iCell)
- enddo
- write(0,*) 'shallow convection:'
- do iCell = 1,mesh%nCellsSolve
-    if(diag_physics%nca%array(iCell).gt.0. .and. diag_physics%cuprec%array(iCell).eq.0.) &amp;
-       write(0,101) iCell,diag_physics%nca%array(iCell),diag_physics%cuprec%array(iCell)
- enddo
- 101 format(i8,2(1x,e15.8))
  
  convection_select: select case(conv_deep_scheme)
 
@@ -627,10 +614,6 @@
     case default
 
  end select convection_select
- write(0,*) '--- end subroutine update_convection_step1:'
- do iCell = 1,mesh%nCellsSolve
-    if(diag_physics%nca%array(iCell) .gt. 0.) write(0,101) iCell,diag_physics%nca%array(iCell)
- enddo
 
  end subroutine update_convection_step1
 

</font>
</pre>