polishing

This commit is contained in:
Martin Diehl 2019-06-15 16:21:15 +02:00
parent 25d02c2f19
commit 4256f67919
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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)