<p><b>mpetersen@lanl.gov</b> 2013-02-20 11:28:01 -0700 (Wed, 20 Feb 2013)</p><p>branch commit: explicit_vmix_removal. Reviewed by Mark, tested, bit-for-bit match with trunk. Removed some comments pertaining to explicit vertical mixing.<br>
</p><hr noshade><pre><font color="gray">Modified: branches/ocean_projects/explicit_vmix_removal/src/core_ocean/mpas_ocn_vmix.F
===================================================================
--- branches/ocean_projects/explicit_vmix_removal/src/core_ocean/mpas_ocn_vmix.F        2013-02-20 18:24:55 UTC (rev 2489)
+++ branches/ocean_projects/explicit_vmix_removal/src/core_ocean/mpas_ocn_vmix.F        2013-02-20 18:28:01 UTC (rev 2490)
@@ -445,8 +445,7 @@
!> \version SVN:$Id$
!> \details
!> This routine initializes a variety of quantities related to
-!> vertical mixing in the ocean. This primarily determines if
-!> explicit or implicit vertical mixing is to be used.
+!> vertical mixing in the ocean.
!
!-----------------------------------------------------------------------
Modified: branches/ocean_projects/explicit_vmix_removal/src/core_ocean/mpas_ocn_vmix_coefs_rich.F
===================================================================
--- branches/ocean_projects/explicit_vmix_removal/src/core_ocean/mpas_ocn_vmix_coefs_rich.F        2013-02-20 18:24:55 UTC (rev 2489)
+++ branches/ocean_projects/explicit_vmix_removal/src/core_ocean/mpas_ocn_vmix_coefs_rich.F        2013-02-20 18:28:01 UTC (rev 2490)
@@ -234,7 +234,7 @@
vertViscTopOfEdge(k,iEdge) = config_convective_visc
end if
else
- ! for Ri<0 and implicit mix, use convective diffusion
+ ! for Ri<0 use the convective value for the viscosity
vertViscTopOfEdge(k,iEdge) = config_convective_visc
end if
end do
@@ -327,7 +327,7 @@
vertDiffTopOfCell(k,iCell) = config_convective_diff
end if
else
- ! for Ri<0 and implicit mix, use convective diffusion
+ ! for Ri<0 use the convective value for the diffusion
vertDiffTopOfCell(k,iCell) = config_convective_diff
end if
end do
</font>
</pre>