Skip to content
This repository has been archived by the owner on Jul 20, 2021. It is now read-only.

Commit

Permalink
Fixed many unused variable warnings.
Browse files Browse the repository at this point in the history
  • Loading branch information
@DenSto
DenSto committed Mar 26, 2021
1 parent ddbd877 commit d344ed7
Show file tree
Hide file tree
Showing 19 changed files with 24 additions and 51 deletions.
7 changes: 1 addition & 6 deletions dist_fn.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -34,7 +34,7 @@ subroutine init_gxyz (restarted)
use physics_flags, only: radial_variation
use stella_layouts, only: vmu_lo, iv_idx, imu_idx, is_idx
use stella_transforms, only: transform_kx2x_xfirst, transform_x2kx_xfirst
use kt_grids, only: nalpha, nakx, naky, nx, multiply_by_rho
use kt_grids, only: nalpha, nakx, naky, multiply_by_rho
use vpamu_grids, only: mu, vpa, vperp2
use zgrid, only: nzgrid, ntubes
use species, only: spec, pfac
Expand Down Expand Up @@ -99,12 +99,7 @@ subroutine init_dist_fn

use mp, only: proc0
use stella_layouts, only: init_dist_fn_layouts
use species, only: nspec
use zgrid, only: ntubes
use gyro_averages, only: init_bessel
use physics_flags, only: full_flux_surface
use physics_flags, only: nonlinear
use physics_flags, only: include_parallel_nonlinearity

implicit none

Expand Down
6 changes: 3 additions & 3 deletions dist_redistribute.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -44,7 +44,7 @@ subroutine init_kxkyz_to_vmu_redistribute
use redistribute, only: index_list_type, init_redist
use redistribute, only: delete_list, set_redist_character_type
use vpamu_grids, only: nvpa, nmu
use zgrid, only: nzgrid, ntubes
use zgrid, only: nzgrid

implicit none

Expand Down Expand Up @@ -168,7 +168,7 @@ subroutine init_kxyz_to_vmu_redistribute
use redistribute, only: index_list_type, init_redist
use redistribute, only: delete_list, set_redist_character_type
use vpamu_grids, only: nvpa, nmu
use zgrid, only: nzgrid, ntubes
use zgrid, only: nzgrid

implicit none

Expand Down Expand Up @@ -292,7 +292,7 @@ subroutine init_xyz_to_vmu_redistribute
use redistribute, only: index_list_type, init_redist
use redistribute, only: delete_list, set_redist_character_type
use vpamu_grids, only: nvpa, nmu
use zgrid, only: nzgrid, ntubes
use zgrid, only: nzgrid

implicit none

Expand Down
1 change: 0 additions & 1 deletion extended_zgrid.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,6 @@ subroutine init_extended_zgrid
use kt_grids, only: nakx, naky
use kt_grids, only: jtwist, ikx_twist_shift
use kt_grids, only: aky, ikx_max
use species, only: nspec

implicit none

Expand Down
8 changes: 3 additions & 5 deletions fields.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -63,7 +63,7 @@ subroutine init_fields
use vpamu_grids, only: maxwell_vpa, maxwell_mu, maxwell_fac
use vpamu_grids, only: integrate_vmu
use species, only: spec
use kt_grids, only: naky, nakx, akx, nx
use kt_grids, only: naky, nakx, akx
use kt_grids, only: zonal_mode, rho_d_clamped
use dist_fn, only: adiabatic_option_switch
use dist_fn, only: adiabatic_option_fieldlineavg
Expand Down Expand Up @@ -491,12 +491,10 @@ subroutine get_fields (g, phi, apar, dist)
use gyro_averages, only: gyro_average
use run_parameters, only: fphi, fapar
use physics_parameters, only: beta
use physics_flags, only: radial_variation
use zgrid, only: nzgrid, ntubes
use vpamu_grids, only: nvpa, nmu
use vpamu_grids, only: vpa
use vpamu_grids, only: integrate_vmu
use kt_grids, only: nakx
use species, only: spec

implicit none
Expand Down Expand Up @@ -576,7 +574,7 @@ subroutine get_fields_vmulo (g, phi, apar, dist)
use dist_fn_arrays, only: kperp2, dkperp2dr
use zgrid, only: nzgrid, ntubes
use vpamu_grids, only: integrate_species, vperp2
use kt_grids, only: nakx, naky, nx, multiply_by_rho
use kt_grids, only: nakx, naky, multiply_by_rho
use run_parameters, only: ky_solve_radial
use species, only: spec

Expand Down Expand Up @@ -914,7 +912,7 @@ subroutine get_radial_correction (g, phi_in, dist)
use stella_layouts, only: vmu_lo
use gyro_averages, only: gyro_average, gyro_average_j1
use gyro_averages, only: aj0x, aj1x
use run_parameters, only: fphi, fapar, ky_solve_radial
use run_parameters, only: fphi, ky_solve_radial
use stella_geometry, only: dl_over_b, bmag, dBdrho
use stella_layouts, only: imu_idx, is_idx
use zgrid, only: nzgrid, ntubes
Expand Down
3 changes: 1 addition & 2 deletions flow_shear.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -179,12 +179,11 @@ subroutine advance_perp_flow_shear (g)

use stella_layouts, only: vmu_lo
use constants, only: zi
use physics_parameters, only: g_exb, g_exbfac
use physics_flags, only: prp_shear_enabled, hammett_flow_shear
use stella_transforms, only: transform_kx2x_unpadded, transform_x2kx_unpadded
use zgrid, only: nzgrid, ntubes
use fields_arrays, only: shift_state
use kt_grids, only: aky, nakx, naky, nx, ikx_max, zonal_mode
use kt_grids, only: aky, nakx, naky, ikx_max, zonal_mode
use file_utils, only: runtype_option_switch, runtype_multibox
use stella_time, only: code_dt

Expand Down
2 changes: 1 addition & 1 deletion g_tofrom_h.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -171,7 +171,7 @@ subroutine g_to_h_vmu (g, phi, facphi, phi_corr)
use stella_layouts, only: iv_idx, imu_idx, is_idx
use stella_geometry, only: bmag, dBdrho
use dist_fn_arrays, only: kperp2, dkperp2dr
use kt_grids, only: naky, nakx, nx, multiply_by_rho
use kt_grids, only: naky, nakx, multiply_by_rho
use vpamu_grids, only: maxwell_vpa, maxwell_mu, maxwell_fac, vperp2, mu, vpa
use stella_transforms, only: transform_kx2x_xfirst, transform_x2kx_xfirst
use gyro_averages, only: gyro_average, aj0x, aj1x
Expand Down
1 change: 0 additions & 1 deletion geo/inputprofiles_interface.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -38,7 +38,6 @@ subroutine read_inputprof_geo (surf)
use finite_differences, only: fd3pt, d2_3pt
use splines, only: geo_spline
use millerlocal, only: local
use physics_parameters, only: rhostar

implicit none

Expand Down
1 change: 0 additions & 1 deletion geo/stella_geometry.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -93,7 +93,6 @@ subroutine init_geometry (nalpha)
use zgrid, only: shat_zero, zed_equal_arc
use zgrid, only: boundary_option_switch, boundary_option_self_periodic
use file_utils, only: get_unused_unit
use physics_parameters, only: rhostar
use physics_flags, only: include_geometric_variation

implicit none
Expand Down
4 changes: 1 addition & 3 deletions init_g.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -58,7 +58,7 @@ subroutine init_init_g
if(restart_dir(len_trim(restart_dir):) /= "/") &
restart_dir=trim(restart_dir)//"/"

if (proc) call systemf('mkdir -p '//trim(restart_dir))
if (proc0) call systemf('mkdir -p '//trim(restart_dir))

!Determine if restart file contains "/" if so split on this point to give DIR//FILE
!so restart files are created in DIR//restart_dir//FILE
Expand Down Expand Up @@ -615,7 +615,6 @@ subroutine ginit_remap
use stella_layouts, only: iky_idx, ikx_idx, iz_idx, is_idx
use vpamu_grids, only: maxwell_vpa, maxwell_mu, maxwell_fac
use vpamu_grids, only: nvpa, nmu
use kt_grids, only: nakx

implicit none

Expand Down Expand Up @@ -647,7 +646,6 @@ subroutine ginit_restart_many
use stella_save, only: stella_restore
use mp, only: proc0
use file_utils, only: error_unit
use run_parameters, only: fphi, fapar

implicit none

Expand Down
2 changes: 0 additions & 2 deletions kt_grids.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -185,8 +185,6 @@ subroutine init_kt_grids

use common_types, only: flux_surface_type
use zgrid, only: init_zgrid
use zgrid, only: shat_zero
use physics_flags, only: full_flux_surface

implicit none

Expand Down
2 changes: 1 addition & 1 deletion mirror_terms.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -141,7 +141,7 @@ subroutine init_invert_mirror_operator
use vpamu_grids, only: dvpa, vpa, mu
use vpamu_grids, only: nvpa, nmu
use physics_flags, only: full_flux_surface
use species, only: spec, nspec
use species, only: spec
use kt_grids, only: nalpha
use stella_geometry, only: dbdzed
use neoclassical_terms, only: include_neoclassical_terms
Expand Down
7 changes: 3 additions & 4 deletions multibox.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -676,7 +676,7 @@ contains

subroutine init_mb_get_phi(has_elec, adiabatic_elec,efac,efacp)
use kt_grids, only: nakx, naky
use zgrid, only: nzgrid, ntubes
use zgrid, only: nzgrid
use physics_flags, only: radial_variation
use stella_geometry, only: dl_over_b, d_dl_over_b_drho
use run_parameters, only: ky_solve_radial
Expand Down Expand Up @@ -797,7 +797,6 @@ contains
use kt_grids, only: akx, nakx, naky, zonal_mode
use zgrid, only: nzgrid, ntubes
use stella_geometry, only: dl_over_b, d_dl_over_b_drho
use physics_flags, only: radial_variation
use run_parameters, only: ky_solve_radial
use fields_arrays, only: gamtot, dgamtotdr, phi_solve, phizf_solve
use linear_solve, only: lu_back_substitution
Expand Down Expand Up @@ -1018,7 +1017,7 @@ contains

subroutine transform_kx2x (gkx, gx)

use kt_grids, only: naky, ikx_max
use kt_grids, only: ikx_max

implicit none

Expand All @@ -1039,7 +1038,7 @@ contains

subroutine transform_x2kx (gx, gkx)

use kt_grids, only: naky, ikx_max
use kt_grids, only: ikx_max

implicit none

Expand Down
1 change: 0 additions & 1 deletion neoclassical_terms.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -370,7 +370,6 @@ subroutine write_neoclassical (fnc, phinc)
use mp, only: proc0
use mp, only: send, receive
use file_utils, only: open_output_file, close_output_file
use species, only: nspec
use zgrid, only: nzgrid, zed
use vpamu_grids, only: vpa, mu
use stella_layouts, only: vmu_lo
Expand Down
1 change: 0 additions & 1 deletion parallel_streaming.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -241,7 +241,6 @@ subroutine add_parallel_streaming_radial_variation (g, gout, rhs)
use species, only: spec
use gyro_averages, only: gyro_average, gyro_average_j1
use fields_arrays, only: phi, phi_corr_QN, phi_corr_GA
use run_parameters, only: driftkinetic_implicit

implicit none

Expand Down
3 changes: 1 addition & 2 deletions response_matrix.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -26,7 +26,6 @@ contains
use fields_arrays, only: response_matrix
use stella_layouts, only: vmu_lo
use stella_layouts, only: iv_idx, is_idx
use species, only: nspec
use kt_grids, only: naky, zonal_mode
use extended_zgrid, only: iz_low, iz_up
use extended_zgrid, only: neigen, ikxmod
Expand Down Expand Up @@ -907,7 +906,7 @@ contains
subroutine get_fields_for_response_matrix (phi, iky, ie)

use stella_layouts, only: vmu_lo
use species, only: nspec, spec
use species, only: spec
use species, only: has_electron_species
use stella_geometry, only: dl_over_b
use extended_zgrid, only: iz_low, iz_up
Expand Down
10 changes: 4 additions & 6 deletions stella_diagnostics.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -270,7 +270,6 @@ subroutine diagnose_stella (istep)
use stella_io, only: sync_nc
! use stella_io, only: write_symmetry_nc
use stella_time, only: code_time, code_dt
use run_parameters, only: fphi
use zgrid, only: nztot, nzgrid, ntubes
use vpamu_grids, only: nmu, nvpa
use species, only: nspec
Expand Down Expand Up @@ -465,7 +464,7 @@ subroutine get_fluxes (g, pflx, vflx, qflx,&
use vpamu_grids, only: nvpa, nmu
use vpamu_grids, only: vperp2, vpa
use run_parameters, only: fphi, fapar
USE kt_grids, ONLY: nakx, naky
use kt_grids, ONLY: nakx, naky
use kt_grids, only: aky, theta0
use gyro_averages, only: gyro_average, gyro_average_j1

Expand Down Expand Up @@ -618,8 +617,8 @@ subroutine get_fluxes_vmulo (g, phi, pflx, vflx, qflx, pflx_x, vflx_x, qflx_x)
use zgrid, only: delzed, nzgrid, ntubes
use vpamu_grids, only: vperp2, vpa, mu
use vpamu_grids, only: maxwell_vpa, maxwell_mu, maxwell_fac
use run_parameters, only: fphi, fapar
use kt_grids, only: aky, theta0, naky, nakx, nx, multiply_by_rho
use run_parameters, only: fphi
use kt_grids, only: aky, theta0, naky, nakx, multiply_by_rho
use physics_flags, only: radial_variation
use gyro_averages, only: gyro_average, gyro_average_j1, aj0x, aj1x

Expand Down Expand Up @@ -1022,7 +1021,7 @@ subroutine get_moments (g, dens, upar, temp)
use vpamu_grids, only: integrate_vmu
use vpamu_grids, only: vpa, vperp2, mu
use vpamu_grids, only: maxwell_mu, ztmax, maxwell_fac
use kt_grids, only: naky, nakx, nx, multiply_by_rho
use kt_grids, only: naky, nakx, multiply_by_rho
use stella_layouts, only: vmu_lo
use stella_layouts, only: iv_idx, imu_idx, is_idx
use dist_fn_arrays, only: g1, g2, kperp2, dkperp2dr
Expand Down Expand Up @@ -1278,7 +1277,6 @@ subroutine finish_stella_diagnostics(istep)
use mp, only: proc0
use redistribute, only: scatter
use stella_io, only: finish_stella_io
use run_parameters, only: fphi, fapar
use stella_time, only: code_dt, code_time
use stella_save, only: stella_save_for_restart
use dist_redistribute, only: kxkyz2vmu
Expand Down
4 changes: 1 addition & 3 deletions stella_io.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -273,8 +273,7 @@ contains
write_gzvs, write_moments, write_radial_fluxes, write_fluxes_kxky)

use mp, only: nproc
use species, only: nspec
use run_parameters, only: fphi, fapar, fbpar
use run_parameters, only: fphi!, fapar, fbpar
use physics_flags, only: radial_variation
# ifdef NETCDF
use netcdf, only: nf90_char, nf90_int, nf90_global
Expand Down Expand Up @@ -1327,7 +1326,6 @@ contains

subroutine nc_species

use physics_parameters, only: beta
use species, only: spec, nspec
# ifdef NETCDF
use netcdf, only: nf90_put_var
Expand Down
3 changes: 1 addition & 2 deletions stella_save.fpp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -81,7 +81,7 @@ contains
use zgrid, only: nzgrid, ntubes
! Must include kxkyz_layout_type here to avoid obscure bomb while compiling
! stella_diagnostics.f90 (which uses this module) with the Compaq F90 compiler:
use stella_layouts, only: kxkyz_lo, xyzs_layout, vms_layout, vmu_lo
use stella_layouts, only: kxkyz_lo, vmu_lo
use common_types, only: kxkyz_layout_type
use file_utils, only: error_unit
use vpamu_grids, only: nvpa, nmu
Expand Down Expand Up @@ -673,7 +673,6 @@ contains
use vpamu_grids, only: nvpa, nmu
use stella_layouts, only: kxkyz_lo, vmu_lo
use file_utils, only: error_unit
use species, only: nspec
use dissipation, only: include_krook_operator, int_krook
use dissipation, only: remove_zero_projection, int_proj
use physics_flags, only: prp_shear_enabled
Expand Down
9 changes: 3 additions & 6 deletions time_advance.f90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -69,9 +69,8 @@ subroutine init_time_advance

use mp, only: proc0
use stella_transforms, only: init_transforms
use physics_flags, only: full_flux_surface, radial_variation
use physics_flags, only: radial_variation
use physics_flags, only: include_parallel_nonlinearity
use physics_flags, only: nonlinear
use neoclassical_terms, only: init_neoclassical_terms
use dissipation, only: init_dissipation
use parallel_streaming, only: init_parallel_streaming
Expand Down Expand Up @@ -422,7 +421,7 @@ subroutine init_radial_variation
use dist_fn_arrays, only: wdrifty_phi
use dist_fn_arrays, only: wdriftpx_g, wdriftpy_g
use dist_fn_arrays, only: wdriftpx_phi, wdriftpy_phi, adiabatic_phi
use neoclassical_terms, only: include_neoclassical_terms
! use neoclassical_terms, only: include_neoclassical_terms

implicit none

Expand Down Expand Up @@ -1005,7 +1004,6 @@ subroutine solve_gke (gin, rhs_ky, restart_time_step)
use physics_flags, only: nonlinear
use physics_flags, only: full_flux_surface, radial_variation
use physics_parameters, only: g_exb
use run_parameters, only: fphi, fapar
use zgrid, only: nzgrid, ntubes
use kt_grids, only: nakx, ny
use run_parameters, only: stream_implicit, mirror_implicit
Expand Down Expand Up @@ -1768,7 +1766,7 @@ subroutine advance_radial_variation (g, gout)
use stella_layouts, only: iv_idx, imu_idx, is_idx
use stella_transforms, only: transform_kx2x_xfirst, transform_x2kx_xfirst
use zgrid, only: nzgrid, ntubes
use kt_grids, only: nakx, naky, nx, multiply_by_rho
use kt_grids, only: nakx, naky, multiply_by_rho
use gyro_averages, only: gyro_average, gyro_average_j1
use run_parameters, only: fphi
use physics_flags, only: full_flux_surface
Expand Down Expand Up @@ -2108,7 +2106,6 @@ subroutine advance_implicit (istep, phi, apar, g)

use mp, only: proc0
use job_manage, only: time_message
use run_parameters, only: fphi, fapar
use stella_layouts, only: vmu_lo
use zgrid, only: nzgrid
use dissipation, only: hyper_dissipation, advance_hyper_dissipation
Expand Down

0 comments on commit d344ed7

Please sign in to comment.