corrected subroutine description

This commit is contained in:
Martin Diehl 2016-05-03 17:07:51 +02:00
parent 3b673d23dc
commit 1753d35e87
1 changed files with 2 additions and 2 deletions

View File

@ -385,7 +385,7 @@ end subroutine hypela2
!--------------------------------------------------------------------------------------------------
!> @brief thermomechanical coupling
!> @brief solve the heat equation
!--------------------------------------------------------------------------------------------------
subroutine flux(f,ts,n,time)
use prec, only: &
@ -413,7 +413,7 @@ end subroutine flux
!--------------------------------------------------------------------------------------------------
!> @brief sets user defined output variables for Marc
!> @details select a variable contour plotting (user subroutine).
!> @details select a variable contour plotting (user subgiroutine).
!--------------------------------------------------------------------------------------------------
subroutine plotv(v,s,sp,etot,eplas,ecreep,t,m,nn,layer,ndi,nshear,jpltcd)
use prec, only: &