<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>