From d18e05353acb75ed864449b93073572808f9ee27 Mon Sep 17 00:00:00 2001 From: Michele Guerini Rocco Date: Wed, 15 Dec 2021 02:31:12 +0100 Subject: [PATCH] src: remove unused parameters --- src/beamdata.f90 | 2 +- src/beams.f90 | 1 - src/coreprofiles.f90 | 1 - src/dispersion.f90 | 5 ++--- src/eccd.f90 | 2 +- src/graycore.f90 | 7 ++----- src/magsurf_data.f90 | 2 +- src/pec.f90 | 2 -- src/polarization.f90 | 2 +- 9 files changed, 8 insertions(+), 16 deletions(-) diff --git a/src/beamdata.f90 b/src/beamdata.f90 index 298c26d..6b18c27 100644 --- a/src/beamdata.f90 +++ b/src/beamdata.f90 @@ -10,7 +10,7 @@ contains subroutine init_btr(rtrparam,ywork,ypwork,xc,du1,gri,ggri,psjki,ppabs,ccci, & tau0,alphaabs0,dids0,ccci0,p0jk,ext,eyt,iiv) use gray_params, only : raytracing_parameters - use const_and_precisions, only : zero,half,two + use const_and_precisions, only : half,two implicit none type(raytracing_parameters), intent(in) :: rtrparam real(wp_), dimension(:,:), intent(out), pointer :: ywork,ypwork, & diff --git a/src/beams.f90 b/src/beams.f90 index 25d988b..c046086 100644 --- a/src/beams.f90 +++ b/src/beams.f90 @@ -50,7 +50,6 @@ contains ! Reads the wave launcher parameters for the case ! where w(z, α) and 1/R(z, α) depend on the launcher angle α. - use const_and_precisions, only : pi,vc=>ccgs_ use gray_params, only : antenna_parameters use simplespline, only : spli, difcs use utils, only : get_free_unit,locate diff --git a/src/coreprofiles.f90 b/src/coreprofiles.f90 index 7b1f4f3..93bff77 100644 --- a/src/coreprofiles.f90 +++ b/src/coreprofiles.f90 @@ -18,7 +18,6 @@ contains real(wp_), intent(in) :: psin real(wp_), intent(out) :: dens,ddens ! local variables - integer, parameter :: nn=3, nn1=nn+1, nn2=nn+2 integer :: ier,nu real(wp_) :: profd,dprofd,dpsib,tt,fp,dfp,fh,dfh real(wp_), dimension(1) :: xxs,ffs diff --git a/src/dispersion.f90 b/src/dispersion.f90 index ab2529d..1cc037c 100644 --- a/src/dispersion.f90 +++ b/src/dispersion.f90 @@ -44,8 +44,7 @@ subroutine harmnumber(yg,mu,npl,nhmin,nhmax,iwr) ! local constants ! expcr = maximum value for mu*(gamma-1) above which the distribution function ! is considered to be 0 -! eps = small number to have a correct rounding when ygnc/yg is an integer - real(wp_), parameter :: expcr=16.0_wp_,eps=1.e-8_wp_ + real(wp_), parameter :: expcr=16.0_wp_ ! arguments ! yg = omegac/omega ! npl = parallel N @@ -1333,4 +1332,4 @@ end subroutine fsup zi = u*rpi end subroutine zetac ! -end module dispersion \ No newline at end of file +end module dispersion diff --git a/src/eccd.f90 b/src/eccd.f90 index 2ec314d..520eb7a 100644 --- a/src/eccd.f90 +++ b/src/eccd.f90 @@ -863,7 +863,7 @@ contains REAL(wp_), INTENT(out) :: K,dKdu INTEGER :: nfun REAL(wp_) :: gam2,err,flag,Integr - REAL(wp_), PARAMETER :: a = zero, b = one, rtol = 1e-4_wp_, atol = 1e-12_wp_ + REAL(wp_), PARAMETER :: rtol = 1e-4_wp_, atol = 1e-12_wp_ r2 = (1+Zeff)/fc ! global parameter needed for integrand, HSL_f(t) diff --git a/src/graycore.f90 b/src/graycore.f90 index fa955a6..89cd989 100644 --- a/src/graycore.f90 +++ b/src/graycore.f90 @@ -617,7 +617,7 @@ contains ywrk0,ypwrk0,xc0,du10,gri,ggri,index_rt) ! beam tracing initial conditions igrad=1 ! !!!!!! check ray tracing initial conditions igrad=0 !!!!!! - use const_and_precisions, only : wp_,izero,zero,one,pi,half,two,degree,ui=>im + use const_and_precisions, only : wp_,zero,one,pi,half,two,degree,ui=>im use math, only : catand use gray_params, only : idst use beamdata, only : nray,nrayr,nrayth,rwmax @@ -1227,7 +1227,7 @@ contains subroutine plas_deriv(xv,bres,xgcn,psinv,dens,btot,bv,derbv, & xg,yg,derxg,deryg,ajphi) - use const_and_precisions, only : wp_,zero,pi,ccj=>mu0inv + use const_and_precisions, only : wp_,zero,ccj=>mu0inv use gray_params, only : iequil use equilibrium, only : psia,equinum_fpol,equinum_psi,equian,sgnbphi use coreprofiles, only : density @@ -1523,8 +1523,6 @@ contains real(wp_),intent(out) :: anprre,anprim,alpha,didp integer, intent(out) :: nhmin,nhmax,iokhawa integer, intent(out) :: error -! local constants - real(wp_), parameter :: taucr=12.0_wp_,xxcr=16.0_wp_,eps=1.e-8_wp_ ! local variables real(wp_) :: rbavi,rrii,rhop integer :: lrm,ithn,ierrcd @@ -2044,7 +2042,6 @@ bb: do subroutine print_surfq(qval) - use const_and_precisions, only : wp_, one use equilibrium, only : psinr,nq,fq,frhotor,rmaxis,zmaxis, & zbsup,zbinf use magsurf_data, only : contours_psi,npoints,print_contour diff --git a/src/magsurf_data.f90 b/src/magsurf_data.f90 index 5af874d..36adb32 100644 --- a/src/magsurf_data.f90 +++ b/src/magsurf_data.f90 @@ -115,7 +115,7 @@ contains integer, parameter :: nnintp=101,ncnt=100,nlam=101,ksp=3, & njest=nnintp+ksp+1,nlest=nlam+ksp+1, & lwrk=4*(nnintp+nlam)+11*(njest+nlest)+njest*nnintp+nlest+54, & - kwrk=nnintp+nlam+njest+nlest+3,lw01=nnintp*4+nlam*3+nnintp*nlam + kwrk=nnintp+nlam+njest+nlest+3 ! local variables integer :: ier,ierr,l,jp,inc,inc1,iopt,njp,nlm,ninpr diff --git a/src/pec.f90 b/src/pec.f90 index 16e64e2..029b5e4 100644 --- a/src/pec.f90 +++ b/src/pec.f90 @@ -83,8 +83,6 @@ contains use gray_params, only : nnd use beamdata, only : nray,nstep implicit none -! local constants - real(wp_), parameter :: rtbc=one ! arguments real(wp_), dimension(nray,nstep), intent(in) :: psjki,ppabs,ccci integer, dimension(nray), intent(in) :: iiv diff --git a/src/polarization.f90 b/src/polarization.f90 index 4fb65d9..3ceb059 100644 --- a/src/polarization.f90 +++ b/src/polarization.f90 @@ -47,7 +47,7 @@ contains end subroutine polellipse subroutine pol_limit(anv,bv,bres,sox,ext,eyt) !,gam) - use const_and_precisions, only : wp_,ui=>im,pi,zero,one + use const_and_precisions, only : wp_,ui=>im,zero,one implicit none ! arguments real(wp_), dimension(3), intent(in) :: anv,bv