<p><b>duda</b> 2010-09-16 12:52:28 -0600 (Thu, 16 Sep 2010)</p><p>BRANCH COMMIT<br>
<br>
Convert code in src/operators to use new data types.<br>
<br>
Note: We must assume that certain fields are defined as members<br>
of the mesh and state structs; for example, {x,y,z}Cell are <br>
required to be in mesh, and uReconstruct{X,Y,Z} are required to<br>
be in state.<br>
<br>
<br>
M src/operators/module_RBF_interpolation.F<br>
M src/operators/module_vector_reconstruction.F<br>
</p><hr noshade><pre><font color="gray">Modified: branches/registry_reorg/src/operators/module_RBF_interpolation.F
===================================================================
--- branches/registry_reorg/src/operators/module_RBF_interpolation.F 2010-09-16 18:44:25 UTC (rev 500)
+++ branches/registry_reorg/src/operators/module_RBF_interpolation.F 2010-09-16 18:52:28 UTC (rev 501)
@@ -112,7 +112,7 @@
implicit none
- type (grid_meta), intent(inout) :: grid
+ type (mesh_type), intent(inout) :: grid
integer :: nCells, nEdges
integer, dimension(:,:), pointer :: cellsOnEdge, edgesOnCell
Modified: branches/registry_reorg/src/operators/module_vector_reconstruction.F
===================================================================
--- branches/registry_reorg/src/operators/module_vector_reconstruction.F 2010-09-16 18:44:25 UTC (rev 500)
+++ branches/registry_reorg/src/operators/module_vector_reconstruction.F 2010-09-16 18:52:28 UTC (rev 501)
@@ -23,7 +23,7 @@
implicit none
- type (grid_meta), intent(inout) :: grid
+ type (mesh_type), intent(inout) :: grid
! temporary arrays needed in the (to be constructed) init procedure
integer :: nCellsSolve
@@ -123,8 +123,8 @@
implicit none
- type (grid_state), intent(inout) :: state
- type (grid_meta), intent(in) :: grid
+ type (state_type), intent(inout) :: state
+ type (mesh_type), intent(in) :: grid
! temporary arrays needed in the compute procedure
integer :: nCellsSolve
</font>
</pre>