Skip to content
Browse files

Fixed naming issue.

	modified:   rstress.f90
  • Loading branch information...
1 parent 9be1eb0 commit c36ba38ad1db90760f98c12093a5e2366920e85e @scamicha committed Aug 29, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 ONEOFF/rstress.f90
View
2 ONEOFF/rstress.f90
@@ -179,7 +179,7 @@ PROGRAM rstress
LSL=LS
IF(LS<0)LSL=LS+LMAX
IF(LS>LMAX-1)LSL=LS-LMAX
- avgvphi=avgvphi+vhpi(JS,K,LSL)/(rho(JS,K,LSL)*dr*(DBLE(J)+0.5d0))
+ avgvphi=avgvphi+vphi(JS,K,LSL)/(rho(JS,K,LSL)*dr*(DBLE(J)+0.5d0))
ENDDO
ENDDO
avgvr=avgvr/(AVGRNUM*AVGPHINUM)

0 comments on commit c36ba38

Please sign in to comment.
Something went wrong with that request. Please try again.