<p><b>dwj07@fsu.edu</b> 2013-04-12 20:12:15 -0600 (Fri, 12 Apr 2013)</p><p><br>
        -- BRANCH COMMIT --<br>
<br>
        Reverting changes to mpas_constants and removing use mpas_constants from mpas_io_input<br>
</p><hr noshade><pre><font color="gray">Modified: branches/history_attribute/src/framework/mpas_constants.F
===================================================================
--- branches/history_attribute/src/framework/mpas_constants.F        2013-04-13 02:06:29 UTC (rev 2744)
+++ branches/history_attribute/src/framework/mpas_constants.F        2013-04-13 02:12:15 UTC (rev 2745)
@@ -3,7 +3,7 @@
! mpas_constants
!
!> \brief MPAS Constant Module
-!> \author Michael Duda, Doug Jacobsen
+!> \author Michael Duda
!> \date 03/27/13
!> \version SVN:$Id$
!> \details
@@ -28,8 +28,10 @@
real (kind=RKIND), parameter :: cvpm = -cv/cp !
real (kind=RKIND), parameter :: prandtl = 1.0 !< Constant: Prandtl number
+
contains
+
!***********************************************************************
!
! routine dummy
Modified: branches/history_attribute/src/framework/mpas_io_input.F
===================================================================
--- branches/history_attribute/src/framework/mpas_io_input.F        2013-04-13 02:06:29 UTC (rev 2744)
+++ branches/history_attribute/src/framework/mpas_io_input.F        2013-04-13 02:12:15 UTC (rev 2745)
@@ -35,8 +35,6 @@
subroutine mpas_input_state_for_domain(domain)!{{{
- use mpas_constants
-
implicit none
type (domain_type), pointer :: domain
</font>
</pre>