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