<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)) &
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) &
-! + 2.*xe(iEdge)*ye(iEdge)*bmatrix(5,j) &
-! + 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) &
@@ -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("hmix", tracerHmixTimer)
-! mrp 110516 printing
-!print *, 'tend_tr 1',minval(tend_tr(3,1,1:nCells)),&
-! maxval(tend_tr(3,1,1:nCells))
-!print *, 'tracer 1',minval(tracers(3,1,1:nCells)),&
-! maxval(tracers(3,1,1:nCells))
-! mrp 110516 printing end
-
-
-! mrp 110516 printing
-!print *, 'tend_tr 2',minval(tend_tr(3,1,1:nCells)),&
-! 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("restoring", tracerRestoringTimer)
- 10 format(2i8,10e20.10)
call mpas_timer_stop("ocn_tend_tracer")
deallocate(uh)
</font>
</pre>