<p><b>mpetersen@lanl.gov</b> 2013-03-19 13:39:17 -0600 (Tue, 19 Mar 2013)</p><p>branch commit: remove print statements and commented out lines only.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/comment_cleanup/src/core_ocean/mpas_ocn_advection.F
===================================================================
--- branches/ocean_projects/comment_cleanup/src/core_ocean/mpas_ocn_advection.F        2013-03-19 19:13:51 UTC (rev 2626)
+++ branches/ocean_projects/comment_cleanup/src/core_ocean/mpas_ocn_advection.F        2013-03-19 19:39:17 UTC (rev 2627)
@@ -172,9 +172,6 @@
                if ( iCell .ne. grid % CellsOnEdge % array(1,iEdge)) &amp;
                   angle_2d(i) = angle_2d(i) - pii
 
-!              xp(i) = grid % xCell % array(cell_list(i)) - grid % xCell % array(iCell)
-!              yp(i) = grid % yCell % array(cell_list(i)) - grid % yCell % array(iCell)
-
                xp(i) = grid % dcEdge % array(grid % EdgesOnCell % array(i,iCell)) * cos(angle_2d(i))
                yp(i) = grid % dcEdge % array(grid % EdgesOnCell % array(i,iCell)) * sin(angle_2d(i))
 
@@ -305,10 +302,6 @@
                else
                   thetae(2,grid % EdgesOnCell % array (i,iCell)) = thetae_tmp
                end if
-!            else
-!
-!               xe(grid % EdgesOnCell % array (i,iCell)) = 0.5 * (xv1 + xv2)
-!               ye(grid % EdgesOnCell % array (i,iCell)) = 0.5 * (yv1 + yv2)
 
             end if
   
@@ -357,13 +350,6 @@
                cos2t = cos2t**2
                sin2t = sin2t**2
 
-!               do j=1,n
-!
-!                  deriv_two(j,1,iEdge) =   2.*xe(iEdge)*xe(iEdge)*bmatrix(4,j)  &amp;
-!                                         + 2.*xe(iEdge)*ye(iEdge)*bmatrix(5,j)  &amp;
-!                                         + 2.*ye(iEdge)*ye(iEdge)*bmatrix(6,j)
-!               end do
-
                if (iCell == grid % cellsOnEdge % array(1,iEdge)) then
                   do j=1,n
                      deriv_two(j,1,iEdge) =   2.*cos2t*bmatrix(4,j)  &amp;
@@ -385,25 +371,6 @@
 
       if (debug) stop
 
-
-!      write(0,*) ' check for deriv2 coefficients, iEdge 4 '
-!
-!      iEdge = 4
-!      j = 1
-!      iCell = grid % cellsOnEdge % array(1,iEdge)
-!      write(0,*) ' j, icell, coef ',j,iCell,deriv_two(j,1,iEdge)
-!      do j=2,7
-!         write(0,*) ' j, icell, coef ',j,grid % CellsOnCell % array(j-1,iCell),deriv_two(j,1,iEdge)
-!      end do
-!
-!      j = 1
-!      iCell = grid % cellsOnEdge % array(2,iEdge)
-!      write(0,*) ' j, icell, coef ',j,iCell,deriv_two(j,2,iEdge)
-!      do j=2,7
-!         write(0,*) ' j, icell, coef ',j,grid % CellsOnCell % array(j-1,iCell),deriv_two(j,2,iEdge)
-!      end do
-!      stop
-
    end subroutine ocn_initialize_advection_rk!}}}
 
 

Modified: branches/ocean_projects/comment_cleanup/src/core_ocean/mpas_ocn_tendency.F
===================================================================
--- branches/ocean_projects/comment_cleanup/src/core_ocean/mpas_ocn_tendency.F        2013-03-19 19:13:51 UTC (rev 2626)
+++ branches/ocean_projects/comment_cleanup/src/core_ocean/mpas_ocn_tendency.F        2013-03-19 19:39:17 UTC (rev 2627)
@@ -321,19 +321,6 @@
       call ocn_tracer_hmix_tend(grid, h_edge, tracers, tend_tr, err)
       call mpas_timer_stop(&quot;hmix&quot;, tracerHmixTimer)
 
-! mrp 110516 printing
-!print *, 'tend_tr 1',minval(tend_tr(3,1,1:nCells)),&amp;
-!                   maxval(tend_tr(3,1,1:nCells))
-!print *, 'tracer  1',minval(tracers(3,1,1:nCells)),&amp;
-!                   maxval(tracers(3,1,1:nCells))
-! mrp 110516 printing end
-
-
-! mrp 110516 printing
-!print *, 'tend_tr 2',minval(tend_tr(3,1,1:nCells)),&amp;
-!                   maxval(tend_tr(3,1,1:nCells))
-! mrp 110516 printing end
-
       !
       ! add restoring to T and S in top model layer
       !
@@ -343,7 +330,6 @@
 
       call mpas_timer_stop(&quot;restoring&quot;, tracerRestoringTimer)
 
- 10   format(2i8,10e20.10)
       call mpas_timer_stop(&quot;ocn_tend_tracer&quot;)
 
       deallocate(uh)

</font>
</pre>