<p><b>mperego@fsu.edu</b> 2012-04-27 14:30:47 -0600 (Fri, 27 Apr 2012)</p><p>BRANCH COMMIT<br>
<br>
land_ice_projects: fix call to velocity_solver_solve_FO and velocity_solver_solve_L1L2<br>
</p><hr noshade><pre><font color="gray">Modified: branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_lifev.F
===================================================================
--- branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_lifev.F        2012-04-27 19:51:16 UTC (rev 1829)
+++ branches/land_ice_projects/implement_core/src/core_land_ice/mpas_land_ice_lifev.F        2012-04-27 20:30:47 UTC (rev 1830)
@@ -15,6 +15,7 @@
 
 module land_ice_lifev
 
+
    use mpas_grid_types
    use mpas_configure
    use mpas_dmpar
@@ -361,13 +362,13 @@
       ! LifeV calls to be made every time step (solve velocity!)
       select case (config_dycore)
       case ('L1L2')
-          call velocity_solver_solve_L1L2(lowerSurface, thickness, beta, tracers(index_temperature,:,:), normalVelocity, normalVelocity)
+          call velocity_solver_solve_L1L2(lowerSurface, thickness, beta, tracers(index_temperature,:,:), normalVelocity)
           ! Optional calls to have LifeV output data files
           call velocity_solver_export_2d_data(lowerSurface, thickness, beta)
           call velocity_solver_export_L1L2_velocity();
       case ('FO')
-          call velocity_solver_solve_FO(lowerSurface, thickness, beta, tracers(index_temperature,:,:), normalVelocity, normalVelocity)
-          call velocity_solver_export_2d_data(lowerSurface, thickness, beta)
+          call velocity_solver_solve_FO(lowerSurface, thickness, beta, tracers(index_temperature,:,:), normalVelocity)
+          !call velocity_solver_export_2d_data(lowerSurface, thickness, beta)
           call velocity_solver_export_FO_velocity();
       case ('Stokes')
           ! call stokes

</font>
</pre>