[cig-commits] r12712 - mc/2D/ConMan/trunk/src

[sdk at geodynamics.org]

Author: sdk
Date: 2008-08-26 06:33:36 -0700 (Tue, 26 Aug 2008)
New Revision: 12712

Modified:
   mc/2D/ConMan/trunk/src/stress.F
Log:
essagecleaned up non-essential code

Modified: mc/2D/ConMan/trunk/src/stress.F
===================================================================
--- mc/2D/ConMan/trunk/src/stress.F	2008-08-26 13:32:11 UTC (rev 12711)
+++ mc/2D/ConMan/trunk/src/stress.F	2008-08-26 13:33:36 UTC (rev 12712)
@@ -87,7 +87,6 @@
 	  strtmp(n) = strtmp(n)/volume
 	enddo
         strtmp(4) =-evisc(5)*alam(mat(ivel))*strtmp(4) 
-c       strtmp(4) =-evisc(5)* strtmp(4) 
         strtmp(5) = strtmp(2) - strtmp(4) 
         strtmp(6) = evisc(5) 
 c
@@ -123,9 +122,6 @@
         enddo
       enddo
 c
-c fix boundary according to Hager & King correction 8/24/89
-c   N.B. FIX ASSUMES CONSTANT RAYLEIGH NUMBER
-C
       do n=1,6
         do i=1,nodebn
 c Hughes for testing purposes
@@ -164,4 +160,4 @@
  1500 format('  node   x1        x2           txx            tzz',
      &       '      txz         P    ')
  2000 format(1x,i7,1x,2(1pe13.7,1x),6(1pe12.5,1x))
-      end
\ No newline at end of file
+      end