gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

USER_PROBLEM: Clean up unused variables.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2017-03-08 13:02:41 -03:00
parent aeab9f9fe7
commit e0a0c816f3
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/user_problem.F90
View File

@ -118,7 +118,7 @@ module user_problem
write (*,*) write (*,*)
write (*,"(1x,a)") "User problem:" write (*,"(1x,a)") "User problem:"
write (*,"(4x,a14, 9x,'=',1x,a)") "problem name ", trim(problem_name) write (*,"(4x,a14, 9x,'=',2x,a)") "problem name ", trim(problem_name)
end if end if
@ -192,15 +192,10 @@ module user_problem
! include external procedures and variables ! include external procedures and variables
! !
use blocks , only : block_data use blocks , only : block_data
use constants , only : d2r
use coordinates, only : im, jm, km use coordinates, only : im, jm, km
use coordinates, only : ay, ady
use equations , only : prim2cons use equations , only : prim2cons
use equations , only : nv use equations , only : nv
use equations , only : idn, ivx, ivy, ivz, ipr, ibx, iby, ibz, ibp use equations , only : idn, ivx, ivy, ivz, ipr, ibx, iby, ibz, ibp
use equations , only : csnd2
use parameters , only : get_parameter_real
use random , only : randomn
! local variables are not implicit by default ! local variables are not implicit by default
! !
@ -212,8 +207,7 @@ module user_problem
! local variables ! local variables
! !
integer :: i, j, k integer :: i, j, k
real(kind=8) :: sn, cs
! local arrays ! local arrays
! !