polishing
This commit is contained in:
parent
25d02c2f19
commit
4256f67919
|
@ -353,8 +353,7 @@ subroutine flux(f,ts,n,time)
|
|||
|
||||
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief sets user defined output variables for Marc
|
||||
!> @details select a variable contour plotting (user subroutine).
|
||||
!> @brief trigger writing of results
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
subroutine uedinc(inc,incsub)
|
||||
use prec
|
||||
|
|
|
@ -32,6 +32,7 @@ function findloc(a,v)
|
|||
end function findloc
|
||||
#endif
|
||||
|
||||
|
||||
#if defined(__PGI)
|
||||
!--------------------------------------------------------------------------------------------------
|
||||
!> @brief substitute for the norm2 intrinsic (only for real, dimension(3) at the moment)
|
||||
|
|
Loading…
Reference in New Issue