<p><b>laura@ucar.edu</b> 2010-12-09 13:23:01 -0700 (Thu, 09 Dec 2010)</p><p>added initialization needed for calculation of uReconstruct... arrays<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/core_nhyd_atmos/module_core.F
===================================================================
--- branches/atmos_physics/src/core_nhyd_atmos/module_core.F        2010-12-09 18:53:09 UTC (rev 637)
+++ branches/atmos_physics/src/core_nhyd_atmos/module_core.F        2010-12-09 20:23:01 UTC (rev 638)
@@ -46,6 +46,8 @@
    !   use advection
       use time_integration
       use configure
+      use RBF_interpolation
+      use vector_reconstruction
 #ifdef DO_PHYSICS
       use module_physics_control
       use module_physics_init
@@ -63,6 +65,9 @@
          call init_coupled_diagnostics( block % state % time_levs(1) % state, block % diag, mesh)
          call compute_solve_diagnostics(dt, block % state % time_levs(1) % state, block % diag, mesh)
       end if
+      call rbfInterp_initialize(mesh)
+      call init_reconstruct(mesh)
+      call reconstruct(block % state % time_levs(1) % state, block % diag, mesh)
    
    !
    ! Note: The following initialization calls have been moved to mpas_setup_test_case()

</font>
</pre>