<p><b>cnewman@lanl.gov</b> 2010-07-21 13:51:00 -0600 (Wed, 21 Jul 2010)</p><p>some changes to makefiles; added implicit_init routine<br>
</p><hr noshade><pre><font color="gray">Modified: branches/implicit/src/core_sw/mpas_interface.F
===================================================================
--- branches/implicit/src/core_sw/mpas_interface.F        2010-07-20 22:00:59 UTC (rev 388)
+++ branches/implicit/src/core_sw/mpas_interface.F        2010-07-21 19:51:00 UTC (rev 389)
@@ -17,6 +17,8 @@
use grid_types
use time_integration
+
+ use implicit
implicit none
@@ -27,6 +29,8 @@
call compute_solve_diagnostics(dt, block % time_levs(1) % state, mesh)
call init_reconstruct(mesh)
call reconstruct(block % time_levs(1) % state, mesh)
+
+ call implicit_init()
end subroutine mpas_init
Modified: branches/implicit/src/framework/Makefile
===================================================================
--- branches/implicit/src/framework/Makefile        2010-07-20 22:00:59 UTC (rev 388)
+++ branches/implicit/src/framework/Makefile        2010-07-21 19:51:00 UTC (rev 389)
@@ -4,6 +4,8 @@
ZOLTANOBJ = module_zoltan_interface.o
endif
+IMPLICITOBJS=module_implicit.o
+
OBJS = module_timer.o \
module_configure.o \
module_constants.o \
@@ -14,6 +16,7 @@
module_dmpar.o \
module_io_input.o \
module_io_output.o \
+ $(IMPLICITOBJS) \
$(ZOLTANOBJ) \
streams.o
Added: branches/implicit/src/framework/module_implicit.F
===================================================================
--- branches/implicit/src/framework/module_implicit.F         (rev 0)
+++ branches/implicit/src/framework/module_implicit.F        2010-07-21 19:51:00 UTC (rev 389)
@@ -0,0 +1,13 @@
+module implicit
+
+public :: implicit_init
+
+contains
+
+ subroutine implicit_init()
+
+ write(*,*)'implicit_init'
+
+ end subroutine implicit_init
+
+end module implicit
</font>
</pre>