<p><b>dwj07@fsu.edu</b> 2013-03-29 10:32:28 -0600 (Fri, 29 Mar 2013)</p><p><br>
        -- TRUNK COMMIT --<br>
        COMMENTS AND WHITESPACE ONLY<br>
<br>
        Adding doxygen comments to mpas_vector_reconstruction module.<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/operators/mpas_vector_reconstruction.F
===================================================================
--- trunk/mpas/src/operators/mpas_vector_reconstruction.F        2013-03-29 16:11:26 UTC (rev 2680)
+++ trunk/mpas/src/operators/mpas_vector_reconstruction.F        2013-03-29 16:32:28 UTC (rev 2681)
@@ -1,3 +1,15 @@
+!***********************************************************************
+!
+!  mpas_vector_reconstruction
+!
+!&gt; \brief   MPAS Vector reconstruction module
+!&gt; \author  Xylar Asay-Davis, Todd Ringler
+!&gt; \date    03/28/13
+!&gt; \version SVN:$Id$
+!&gt; \details 
+!&gt; This module provides routines for performing vector reconstruction from edges to cell centers.
+!
+!-----------------------------------------------------------------------
 module mpas_vector_reconstruction
 
   use mpas_grid_types
@@ -11,19 +23,25 @@
 
   contains
 
-  subroutine mpas_init_reconstruct(grid)
-  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
-  ! Purpose: pre-compute coefficients used by the reconstruct() routine
-  !
-  ! Input: grid meta data
-  !
-  ! Output: grid % coeffs_reconstruct - coefficients used to reconstruct 
-  !                                     velocity vectors at cell centers 
-  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 
+!***********************************************************************
+!
+!  routine mpas_init_reconstruct
+!
+!&gt; \brief   MPAS Vector reconstruction initialization routine
+!&gt; \author  Xylar Asay-Davis, Todd Ringler
+!&gt; \date    03/28/13
+!&gt; \version SVN:$Id$
+!&gt; \details 
+!&gt;  Purpose: pre-compute coefficients used by the reconstruct() routine
+!&gt;  Input: grid meta data
+!&gt;  Output: grid % coeffs_reconstruct - coefficients used to reconstruct 
+!&gt;                                      velocity vectors at cell centers 
+!-----------------------------------------------------------------------
+  subroutine mpas_init_reconstruct(grid)!{{{
 
     implicit none
 
-    type (mesh_type), intent(inout) :: grid 
+    type (mesh_type), intent(inout) :: grid  !&lt; Input/Output: Grid information
 
     ! temporary arrays needed in the (to be constructed) init procedure
     integer :: nCellsSolve
@@ -110,23 +128,32 @@
     deallocate(edgeOnCellNormals)
     deallocate(coeffs)
 
-  end subroutine mpas_init_reconstruct
+  end subroutine mpas_init_reconstruct!}}}
 
-  subroutine mpas_reconstruct(grid, u, uReconstructX, uReconstructY, uReconstructZ, uReconstructZonal, uReconstructMeridional)
-  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  ! Purpose: reconstruct vector field at cell centers based on radial basis functions
-  !
-  ! Input: grid meta data and vector component data residing at cell edges
-  !
-  ! Output: reconstructed vector field (measured in X,Y,Z) located at cell centers
-  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+!***********************************************************************
+!
+!  routine mpas_reconstruct
+!
+!&gt; \brief   MPAS Vector reconstruction routine
+!&gt; \author  Xylar Asay-Davis, Todd Ringler
+!&gt; \date    03/28/13
+!&gt; \version SVN:$Id$
+!&gt; \details 
+!&gt;  Purpose: reconstruct vector field at cell centers based on radial basis functions
+!&gt;  Input: grid meta data and vector component data residing at cell edges
+!&gt;  Output: reconstructed vector field (measured in X,Y,Z) located at cell centers
+!-----------------------------------------------------------------------
+  subroutine mpas_reconstruct(grid, u, uReconstructX, uReconstructY, uReconstructZ, uReconstructZonal, uReconstructMeridional)!{{{
 
     implicit none
 
-    type (mesh_type), intent(in) :: grid
-    real (kind=RKIND), dimension(:,:), intent(in) :: u
-    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructX, uReconstructY, uReconstructZ
-    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructZonal, uReconstructMeridional
+    type (mesh_type), intent(in) :: grid !&lt; Input: Grid information
+    real (kind=RKIND), dimension(:,:), intent(in) :: u !&lt; Input: Velocity field on edges
+    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructX !&lt; Output: X Component of velocity reconstructed to cell centers
+    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructY !&lt; Output: Y Component of velocity reconstructed to cell centers
+    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructZ !&lt; Output: Z Component of velocity reconstructed to cell centers
+    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructZonal !&lt; Output: Zonal Component of velocity reconstructed to cell centers
+    real (kind=RKIND), dimension(:,:), intent(out) :: uReconstructMeridional !&lt; Output: Meridional Component of velocity reconstructed to cell centers
 
     !   temporary arrays needed in the compute procedure
     integer :: nCellsSolve
@@ -191,6 +218,6 @@
       uReconstructMeridional = uReconstructY
     end if
 
-  end subroutine mpas_reconstruct
+  end subroutine mpas_reconstruct!}}}
 
 end module mpas_vector_reconstruction

</font>
</pre>