Running make '-j' 'FFLAGS_DOUBLE=-fdefault-real-8 -fdefault-double-8' 'CFLAGS_DOUBLE=-DDOUBLE_PRECISION' 'LD_MPI=' 'CFLAGS_FFTW3=' 'FFLAGS_FFTW3=' 'LD_FFTW3=' 'CFLAGS_FFTW2=' 'FFLAGS_FFTW2=' 'LD_FFTW2=' 'FC=mpif90' 'F77=mpif77' 'FFLAGS=-O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow' 'LDFLAGS_HELPER=-dynamic' 'OMPFFLAGS=-fopenmp' 'OMPLFLAGS=-lgomp' 'PPFLAGS=-cpp' 'FSTD_95=-std=f95' 'FSTD_2003=-std=f2003' 'MODULE_PREFIX=__' 'MODULE_INFIX=_MOD_' 'MODULE_SUFFIX=' 'CC=mpicc' 'CFLAGS=-DFUNDERSC=0' 'default_to_be'
MAKING src/Makefile.inc
touch src/.build-history
echo "@"`hostname` "("`date`")" >> src/.build-history
( cd src && \
echo "===== " make FROM_PARENT=src/ -f Makefile.src code "====="; \
make FROM_PARENT=src/ -f Makefile.src default_to_be \
)
===== make FROM_PARENT=src/ -f Makefile.src code =====
make[1]: Entering directory '/home/pencil/basic/samples/most-modules/src'
Compiler: gfortran
GCC version: 13
Makefile.src:2907: GCC version > 9 ==> allowing argument mismatch in nompicomm.f90, noparticles_mpicomm.f90, syscalls.f90 and fftpack.f90.
Makefile.src:3565: warning: overriding recipe for target 'nompicomm.o'
Makefile.src:3301: warning: ignoring old recipe for target 'nompicomm.o'
scripts/mkcparam -b noascalar.f90 border_profiles.f90 nochemistry.f90 chiral.f90 cosmicray.f90 cosmicrayflux.f90 density.f90 deriv.f90 nodetonate.f90 dustdensity.f90 dustvelocity.f90 entropy.f90 eos_ionization.f90 nofixed_point.f90 forcing.f90 gravity_simple.f90 nogpu.f90 grid.f90 noheatflux.f90 hydro.f90 nohyperresi_strict.f90 nohypervisc_strict.f90 noimplicit_diffusion.f90 noimplicit_physics.f90 noinitial_condition.f90 interstellar.f90 nolorenz_gauge.f90 magnetic.f90 magnetic/meanfield.f90 magnetic/nomeanfield_demfdt.f90 nompicomm.f90 noneutraldensity.f90 noneutralvelocity.f90 noNSCBC.f90 noopacity.f90 particles_dust.f90 noparticles_adaptation.f90 noparticles_coagulation.f90 noparticles_condensation.f90 noparticles_collisions.f90 particles_map.f90 noparticles_density.f90 noparticles_mass.f90 particles_number.f90 particles_radius.f90 noparticles_potential.f90 noparticles_grad.f90 particles_selfgravity.f90 noparticles_sink.f90 noparticles_drag.f90 noparticles_spin.f90 noparticles_stalker.f90 noparticles_lyapunov.f90 noparticles_caustics.f90 noparticles_tetrad.f90 noparticles_stirring.f90 noparticles_diagnos_dv.f90 noparticles_diagnos_state.f90 noparticles_persistence.f90 noparticles_temperature.f90 noparticles_adsorbed.f90 noparticles_surfspec.f90 noparticles_chemistry.f90 pointmasses.f90 poisson.f90 nopolymer.f90 power_spectrum.f90 nopython.f90 pscalar.f90 radiation_ray.f90 selfgravity.f90 noSGS_hydro.f90 shear.f90 shock.f90 nosignal_handling.f90 nosolid_cells.f90 nostreamlines.f90 test_methods/testfield_general.f90 inactive/testfield.f90 notestflow.f90 notestscalar.f90 timeavg.f90 notraining.f90 viscosity.f90 cparam.local nospecial.f90
${PENCIL_HOME}/utils/pc_identify_revision --reset
make -f Makefile.src start.o run.o start.x run.x
make[2]: Entering directory '/home/pencil/basic/samples/most-modules/src'
Compiler: gfortran
GCC version: 13
Makefile.src:2907: GCC version > 9 ==> allowing argument mismatch in nompicomm.f90, noparticles_mpicomm.f90, syscalls.f90 and fftpack.f90.
Makefile.src:3565: warning: overriding recipe for target 'nompicomm.o'
Makefile.src:3301: warning: ignoring old recipe for target 'nompicomm.o'
scripts/mkcparam -b noascalar.f90 border_profiles.f90 nochemistry.f90 chiral.f90 cosmicray.f90 cosmicrayflux.f90 density.f90 deriv.f90 nodetonate.f90 dustdensity.f90 dustvelocity.f90 entropy.f90 eos_ionization.f90 nofixed_point.f90 forcing.f90 gravity_simple.f90 nogpu.f90 grid.f90 noheatflux.f90 hydro.f90 nohyperresi_strict.f90 nohypervisc_strict.f90 noimplicit_diffusion.f90 noimplicit_physics.f90 noinitial_condition.f90 interstellar.f90 nolorenz_gauge.f90 magnetic.f90 magnetic/meanfield.f90 magnetic/nomeanfield_demfdt.f90 nompicomm.f90 noneutraldensity.f90 noneutralvelocity.f90 noNSCBC.f90 noopacity.f90 particles_dust.f90 noparticles_adaptation.f90 noparticles_coagulation.f90 noparticles_condensation.f90 noparticles_collisions.f90 particles_map.f90 noparticles_density.f90 noparticles_mass.f90 particles_number.f90 particles_radius.f90 noparticles_potential.f90 noparticles_grad.f90 particles_selfgravity.f90 noparticles_sink.f90 noparticles_drag.f90 noparticles_spin.f90 noparticles_stalker.f90 noparticles_lyapunov.f90 noparticles_caustics.f90 noparticles_tetrad.f90 noparticles_stirring.f90 noparticles_diagnos_dv.f90 noparticles_diagnos_state.f90 noparticles_persistence.f90 noparticles_temperature.f90 noparticles_adsorbed.f90 noparticles_surfspec.f90 noparticles_chemistry.f90 pointmasses.f90 poisson.f90 nopolymer.f90 power_spectrum.f90 nopython.f90 pscalar.f90 radiation_ray.f90 selfgravity.f90 noSGS_hydro.f90 shear.f90 shock.f90 nosignal_handling.f90 nosolid_cells.f90 nostreamlines.f90 test_methods/testfield_general.f90 inactive/testfield.f90 notestflow.f90 notestscalar.f90 timeavg.f90 notraining.f90 viscosity.f90 cparam.local nospecial.f90
scripts/mkcparam -b noascalar.f90 border_profiles.f90 nochemistry.f90 chiral.f90 cosmicray.f90 cosmicrayflux.f90 density.f90 deriv.f90 nodetonate.f90 dustdensity.f90 dustvelocity.f90 entropy.f90 eos_ionization.f90 nofixed_point.f90 forcing.f90 gravity_simple.f90 nogpu.f90 grid.f90 noheatflux.f90 hydro.f90 nohyperresi_strict.f90 nohypervisc_strict.f90 noimplicit_diffusion.f90 noimplicit_physics.f90 noinitial_condition.f90 interstellar.f90 nolorenz_gauge.f90 magnetic.f90 magnetic/meanfield.f90 magnetic/nomeanfield_demfdt.f90 nompicomm.f90 noneutraldensity.f90 noneutralvelocity.f90 noNSCBC.f90 noopacity.f90 particles_dust.f90 noparticles_adaptation.f90 noparticles_coagulation.f90 noparticles_condensation.f90 noparticles_collisions.f90 particles_map.f90 noparticles_density.f90 noparticles_mass.f90 particles_number.f90 particles_radius.f90 noparticles_potential.f90 noparticles_grad.f90 particles_selfgravity.f90 noparticles_sink.f90 noparticles_drag.f90 noparticles_spin.f90 noparticles_stalker.f90 noparticles_lyapunov.f90 noparticles_caustics.f90 noparticles_tetrad.f90 noparticles_stirring.f90 noparticles_diagnos_dv.f90 noparticles_diagnos_state.f90 noparticles_persistence.f90 noparticles_temperature.f90 noparticles_adsorbed.f90 noparticles_surfspec.f90 noparticles_chemistry.f90 pointmasses.f90 poisson.f90 nopolymer.f90 power_spectrum.f90 nopython.f90 pscalar.f90 radiation_ray.f90 selfgravity.f90 noSGS_hydro.f90 shear.f90 shock.f90 nosignal_handling.f90 nosolid_cells.f90 nostreamlines.f90 test_methods/testfield_general.f90 inactive/testfield.f90 notestflow.f90 notestscalar.f90 timeavg.f90 notraining.f90 viscosity.f90 cparam.local nospecial.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o nogpu.o -c nogpu.f90
gpu.h:3:2:
3 | read_gpu_run_pars, write_gpu_run_pars, &
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
gpu.h:5:2:
5 | gpu_set_dt
| 1
Warning: Nonconforming tab character at (1) [-Wtabs]
nogpu.f90:127:75:
127 | subroutine test_rhs_gpu(f,df,p,mass_per_proc,early_finalize,cpu_version)
| 1
Warning: Unused dummy argument ‘cpu_version’ at (1) [-Wunused-dummy-argument]
nogpu.f90:127:32:
127 | subroutine test_rhs_gpu(f,df,p,mass_per_proc,early_finalize,cpu_version)
| 1
Warning: Unused dummy argument ‘df’ at (1) [-Wunused-dummy-argument]
nogpu.f90:127:63:
127 | subroutine test_rhs_gpu(f,df,p,mass_per_proc,early_finalize,cpu_version)
| 1
Warning: Unused dummy argument ‘early_finalize’ at (1) [-Wunused-dummy-argument]
nogpu.f90:127:29:
127 | subroutine test_rhs_gpu(f,df,p,mass_per_proc,early_finalize,cpu_version)
| 1
Warning: Unused dummy argument ‘f’ at (1) [-Wunused-dummy-argument]
nogpu.f90:127:48:
127 | subroutine test_rhs_gpu(f,df,p,mass_per_proc,early_finalize,cpu_version)
| 1
Warning: Unused dummy argument ‘mass_per_proc’ at (1) [-Wunused-dummy-argument]
nogpu.f90:127:34:
127 | subroutine test_rhs_gpu(f,df,p,mass_per_proc,early_finalize,cpu_version)
| 1
Warning: Unused dummy argument ‘p’ at (1) [-Wunused-dummy-argument]
nogpu.f90:60:31:
60 | logical :: early_finalize
| 1
Warning: Unused variable ‘early_finalize’ declared at (1) [-Wunused-variable]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o interstellar.o -c interstellar.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o notraining.o -c notraining.f90
interstellar.f90:4724:16:
4724 | t_cluster=t-log(franSN)*t_interval_OB
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2374:17:
2374 | t_next_SNI=t+scaled_interval
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2465:18:
2465 | t_next_SNII=t+scaled_interval
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2649:13:
2649 | dtsn=t-last_SN_t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2706:28:
2706 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2712:22:
2712 | last_SN_t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2263:26:
2263 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2154:26:
2154 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2172:26:
2172 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2093:21:
2093 | tmax=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:2012:15:
2012 | cool=cool+exp(lncoolH(i)+lnrho+lnTT*coolB(i))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1848:14:
1848 | a_S = a_S_cgs/unit_velocity*unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1849:14:
1849 | a_D = a_D_cgs/unit_velocity*unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1850:14:
1850 | z_D = z_D_cgs/unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1851:14:
1851 | z_S = z_S_cgs/unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1852:14:
1852 | H_z = H_z_cgs/unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1859:19:
1859 | logrho = log(rho0ts)+(a_S*z_S*m_u*mu/k_B/T_init)*(log(T_init)- &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1874:62:
1874 | where (lncoolT(j)<=lnTT.and.lnTT<lncoolT(j+1)) lambda=lambda+exp(lncoolH(j)+lnTT*coolB(j))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1749:41:
1749 | heatingfunction_scale(SNI) = t_interval(SNI) /(t_interval(SNI) +t*heatingfunction_fadefactor) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1752:41:
1752 | heatingfunction_scale(SNII)= t_interval(SNII)/(t_interval(SNII)+t*heatingfunction_fadefactor) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1531:28:
1531 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1542:28:
1542 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1556:28:
1556 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:1567:28:
1567 | SNRs(iSNR)%feat%t=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:564:22:
564 | unit_Lambda = unit_velocity**2 / unit_density / unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:565:22:
565 | unit_Gamma = unit_velocity**3 / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:567:13:
567 | T0UV=T0UV_cgs / unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:568:12:
568 | cUV=cUV_cgs * unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:571:47:
571 | if (rho_SN_min==impossible) rho_SN_min=rho_SN_min_cgs / unit_density
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:572:47:
572 | if (rho_SN_max==impossible) rho_SN_max=rho_SN_max_cgs / unit_density
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:573:45:
573 | if (TT_SN_max==impossible) TT_SN_max=TT_SN_max_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:574:45:
574 | if (TT_SN_min==impossible) TT_SN_min=TT_SN_min_cgs / unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:575:51:
575 | if (OB_area_rate==impossible) OB_area_rate=OB_area_rate_cgs * unit_length**2 * unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:576:53:
576 | if (SNI_area_rate==impossible) SNI_area_rate=SNI_area_rate_cgs * unit_length**2 * unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:578:27:
578 | SNII_area_rate=7.5*SNI_area_rate_cgs * unit_length**2 * unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:579:37:
579 | if (h_SNI==impossible) h_SNI=h_SNI_cgs / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:580:39:
580 | if (h_SNII==impossible) h_SNII=h_SNII_cgs / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:581:23:
581 | SNII_mass_rate=SNII_mass_rate_cgs*unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:582:22:
582 | SNI_mass_rate=SNI_mass_rate_cgs*unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:583:19:
583 | solar_mass=solar_mass_cgs / unit_mass
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:585:15:
585 | r_SNI =r_SNI_yrkpc2 * (unit_time/yr_cgs) * (unit_length/kpc_cgs)**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:586:15:
586 | r_SNII=r_SNII_yrkpc2 * (unit_time/yr_cgs) * (unit_length/kpc_cgs)**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:590:41:
590 | if (ampl_SN==impossible) ampl_SN=ampl_SN_cgs / unit_energy
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:592:19:
592 | sedov_norm=unit_density/1e-24*ampl_SN_cgs/unit_energy
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:596:19:
596 | SFt_norm = 26.5*kyr_cgs/unit_time*&
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:601:19:
601 | SFr_norm = 18.5*pc_cgs/unit_length*&
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:605:19:
605 | kfrac_norm=3.97e-6*mu/1.4/m_H_cgs*unit_density*& !RPDS
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:666:43:
666 | if (rho_min == impossible) rho_min=rho_min_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:667:41:
667 | if (T_init == impossible) T_init=T_init_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:668:41:
668 | if (rho0ts == impossible) rho0ts=rho0ts_cgs/unit_density
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:669:45:
669 | if (cloud_rho==impossible) cloud_rho=cloud_rho_cgs / unit_density
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:670:43:
670 | if (cloud_TT==impossible) cloud_TT=cloud_TT_cgs / unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:672:45:
672 | if (cloud_tau==impossible) cloud_tau=cloud_tau_cgs / unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:673:41:
673 | if (mass_SN==impossible) mass_SN=mass_SN_cgs / unit_mass
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:675:31:
675 | mass_SN_progenitor=mass_SN_progenitor_cgs / unit_mass
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:679:33:
679 | SN_clustering_radius=SN_clustering_radius_cgs / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:681:31:
681 | SN_clustering_time=SN_clustering_time_cgs / unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:712:57:
712 | if (SN_interval_rhom==impossible) SN_interval_rhom=SN_interval_rhom_cgs/unit_density
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
interstellar.f90:160:19:
160 | cnorm_para_SN = (/ fourthird, 1.570796326794897, 1.6755161 /)
| 1
Warning: Unused PRIVATE module variable ‘cnorm_para_sn’ declared at (1) [-Wunused-value]
interstellar.f90:162:19:
162 | cnorm_quar_SN = (/ 0., 2.0943951, 0. /)
| 1
Warning: Unused PRIVATE module variable ‘cnorm_quar_sn’ declared at (1) [-Wunused-value]
interstellar.f90:282:32:
282 | real :: inner_shell_proportion = 1.
| 1
Warning: Unused PRIVATE module variable ‘inner_shell_proportion’ declared at (1) [-Wunused-value]
interstellar.f90:261:27:
261 | kperp=0.05, kpara=0.025
| 1
Warning: Unused PRIVATE module variable ‘kpara’ declared at (1) [-Wunused-value]
interstellar.f90:140:27:
140 | logical :: lfirst_warning=.true.
| 1
Warning: Unused PRIVATE module variable ‘lfirst_warning’ declared at (1) [-Wunused-value]
interstellar.f90:281:32:
281 | real :: outer_shell_proportion = 1.2
| 1
Warning: Unused PRIVATE module variable ‘outer_shell_proportion’ declared at (1) [-Wunused-value]
interstellar.f90:170:26:
170 | vnormEj_gaussian2_SN = (/ 0.6887169476297503, 1.607437833953458, 1.6888564123130090 /)
| 1
Warning: Unused PRIVATE module variable ‘vnormej_gaussian2_sn’ declared at (1) [-Wunused-value]
interstellar.f90:165:25:
165 | vnormEj_gaussian_SN = (/ 0.5116633539732443, 1.047197551196598, 1.0716252226356386 /)
| 1
Warning: Unused PRIVATE module variable ‘vnormej_gaussian_sn’ declared at (1) [-Wunused-value]
interstellar.f90:175:16:
175 | vnormEj_SN = (/ 0.7724962826996008, 1.945140377302524, 2.1432504452712773 /)
| 1
Warning: Unused PRIVATE module variable ‘vnormej_sn’ declared at (1) [-Wunused-value]
interstellar.f90:3376:23:
3376 | logical :: lfound
| 1
Warning: Unused variable ‘lfound’ declared at (1) [-Wunused-variable]
interstellar.f90:3235:33:
3235 | real, dimension(nx) :: lnTT
| 1
Warning: Unused variable ‘lntt’ declared at (1) [-Wunused-variable]
interstellar.f90:3083:23:
3083 | logical :: lfound
| 1
Warning: Unused variable ‘lfound’ declared at (1) [-Wunused-variable]
interstellar.f90:1684:42:
1684 | subroutine calc_pencils_interstellar(f,p)
| 1
Warning: Unused dummy argument ‘f’ at (1) [-Wunused-dummy-argument]
interstellar.f90:1386:48:
1386 | subroutine rprint_interstellar(lreset,lwrite)
| 1
Warning: Unused dummy argument ‘lwrite’ at (1) [-Wunused-dummy-argument]
interstellar.f90:4226:29:
4226 | subroutine get_lowest_rho(f,SNR,radius,rho_lowest) !needs dr2_SN
| ^
Warning: ‘get_lowest_rho’ defined but not used [-Wunused-function]
interstellar.f90:4263:27:
4263 | subroutine proximity_OB(OB,outward_normal) ! make pars: m,n, dr2_SN
| ^
Warning: ‘proximity_ob’ defined but not used [-Wunused-function]
interstellar.f90:4695:23:
4695 | subroutine tidy_OBs
| ^
Warning: ‘tidy_obs’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o viscosity.o -c viscosity.f90
viscosity.f90:118:22:
118 | logical :: lKit_Olem
| 1
Warning: Unused PRIVATE module variable ‘lkit_olem’ declared at (1) [-Wunused-value]
viscosity.f90:35:26:
35 | real :: zeta=0.0, nu_mol=0.0, nu_hyper2=0.0, nu_hyper3=0.0
| 1
Warning: Unused PRIVATE module variable ‘nu_mol’ declared at (1) [-Wunused-value]
viscosity.f90:44:36:
44 | real :: offamp_lambda=1.,r1_lambda=impossible,r2_lambda=impossible
| 1
Warning: Unused PRIVATE module variable ‘r1_lambda’ declared at (1) [-Wunused-value]
viscosity.f90:44:57:
44 | real :: offamp_lambda=1.,r1_lambda=impossible,r2_lambda=impossible
| 1
Warning: Unused PRIVATE module variable ‘r2_lambda’ declared at (1) [-Wunused-value]
viscosity.f90:2936:59:
2936 | subroutine get_viscosity_implicit(ndc, diffus_coeff, iz)
| 1
Warning: Unused dummy argument ‘iz’ at (1) [-Wunused-dummy-argument]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o forcing.o -c forcing.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o entropy.o -c entropy.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_chemistry.o -c noparticles_chemistry.f90
noparticles_chemistry.f90:69:24:
69 | subroutine get_R_c_hat(var,start,end)
| ^
Warning: ‘get_r_c_hat’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:80:24:
80 | subroutine get_R_j_hat(var)
| ^
Warning: ‘get_r_j_hat’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:88:30:
88 | subroutine get_mod_surf_area(var,fp,irhopswarm,iap)
| ^
Warning: ‘get_mod_surf_area’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:101:19:
101 | subroutine get_St(var,start,end)
| ^
Warning: ‘get_st’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:129:27:
129 | subroutine get_conversion
| ^
Warning: ‘get_conversion’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:134:20:
134 | subroutine calc_St
| ^
Warning: ‘calc_st’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:161:31:
161 | subroutine calc_mod_surf_area
| ^
Warning: ‘calc_mod_surf_area’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:172:38:
172 | subroutine calc_enthalpy_of_reaction
| ^
Warning: ‘calc_enthalpy_of_reaction’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:177:37:
177 | subroutine calc_entropy_of_reaction
| ^
Warning: ‘calc_entropy_of_reaction’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:182:28:
182 | subroutine calc_conversion
| ^
Warning: ‘calc_conversion’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:187:25:
187 | subroutine calc_R_c_hat
| ^
Warning: ‘calc_r_c_hat’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:232:23:
232 | subroutine get_RR_hat
| ^
Warning: ‘get_rr_hat’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:247:24:
247 | subroutine calc_RR_hat
| ^
Warning: ‘calc_rr_hat’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:252:35:
252 | subroutine calc_ndot_mdot_R_j_hat
| ^
Warning: ‘calc_ndot_mdot_r_j_hat’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:312:23:
312 | subroutine calc_rho_p
| ^
Warning: ‘calc_rho_p’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:317:23:
317 | subroutine get_q_reac(var)
| ^
Warning: ‘get_q_reac’ defined but not used [-Wunused-function]
noparticles_chemistry.f90:325:24:
325 | subroutine get_Nusselt(var)
| ^
Warning: ‘get_nusselt’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o particles_radius.o -c particles_radius.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_temperature.o -c noparticles_temperature.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_mass.o -c noparticles_mass.f90
particles_radius.f90:46:12:
46 | real :: n0 = 1., alpha = 1., b=1.
| 1
Warning: Unused PRIVATE module variable ‘n0’ declared at (1) [-Wunused-value]
particles_radius.f90:41:53:
41 | real :: modified_vapor_diffusivity=6.74e-6, n0_mean = 1.e8
| 1
Warning: Unused PRIVATE module variable ‘n0_mean’ declared at (1) [-Wunused-value]
particles_radius.f90:40:51:
40 | real :: ap1=1.0, qplaw=0.0,vapor_mixing_ratio_qvs=0., GS_condensation=0.0
| 1
Warning: Unused PRIVATE module variable ‘vapor_mixing_ratio_qvs’ declared at (1) [-Wunused-value]
particles_radius.f90:1069:52:
1069 | subroutine rprint_particles_radius(lreset,lwrite)
| 1
Warning: Unused dummy argument ‘lwrite’ at (1) [-Wunused-dummy-argument]
particles_radius.f90:745:39:
745 | integer :: k, ix, ix0, kkk, ichem
| 1
Warning: Unused variable ‘ichem’ declared at (1) [-Wunused-variable]
particles_radius.f90:745:32:
745 | integer :: k, ix, ix0, kkk, ichem
| 1
Warning: Unused variable ‘kkk’ declared at (1) [-Wunused-variable]
particles_radius.f90:709:47:
709 | subroutine calc_diagnostics_particles_rad(p)
| 1
Warning: Unused dummy argument ‘p’ at (1) [-Wunused-dummy-argument]
forcing.f90:5681:23:
5681 | force(:,1)=fact*(ABC_C(i)*(sin(kf_fcont(i)*z(n) +omega_ff *t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5685:23:
5685 | force(:,2)=fact*(ABC_A(i)*(sin(kf_fcont(i)*x(l1:l2)+omega_ff *t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5689:23:
5689 | force(:,3)=fact*(ABC_B(i)*(sin(kf_fcont(i)*y(m) +omega_ff *t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5695:19:
5695 | fact=fact*(cos(omega_ff*t)+cos(omega_double_ff*t))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5697:19:
5697 | fact=fact*(cos(omega_ff*t)+cos(omega_double_ff*t))**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5728:21:
5728 | force(:,3)=gravz*ampl_ff(i)*cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5731:23:
5731 | force(:,1)=-x(l1:l2)*y(m)*ampl_ff(i)*cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5732:23:
5732 | force(:,2)=x(l1:l2)*ampl_ff(i)*cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5735:23:
5735 | force(:,1)=z(n)*ampl_ff(i)*cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5737:23:
5737 | force(:,3)=-x(l1:l2)*ampl_ff(i)*cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5757:17:
5757 | fact=fact*(cos(omega_ff*t)+cos(omega_double_ff*t))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5759:17:
5759 | fact=fact*(cos(omega_ff*t)+cos(omega_double_ff*t))**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5881:17:
5881 | fact=.5*ampl_ff(i)*(1.-cos(pi*t/tgentle(i)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5921:21:
5921 | force(:,2)=ampl_ff(i)*sinx(l1:l2,i)*sin(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:6009:16:
6009 | ecost=eps_fcont(i)*cos(omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:6010:16:
6010 | esint=eps_fcont(i)*sin(omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:6101:18:
6101 | kdotxwt=KS_k(1,modeN)*x(l1:l2)+(KS_k(2,modeN)*y(m)+KS_k(3,modeN)*z(n))+KS_omega(modeN)*t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:6134:21:
6134 | force(:,1) = ampl_ff(i) * ( &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:6138:21:
6138 | force(:,2) = ampl_ff(i) * ( &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:6142:21:
6142 | force(:,3) = ampl_ff(i) * ( &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5327:23:
5327 | phi1_ff(:,i)=cos(kf_fcont(i)*y+omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5328:23:
5328 | phi2_ff(:,i)=cos(kf_fcont(i)*x-omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5330:16:
5330 | ecost=eps_fcont(i)*cos(omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5331:16:
5331 | esint=eps_fcont(i)*sin(omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5272:23:
5272 | sinxt(:,i) = sinxt(:,i) + k*( knorm**(-beta_GP) ) * sin( k*(x-xi +cos(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5273:23:
5273 | cosxt(:,i) = cosxt(:,i) + k*( knorm**(-beta_GP) ) * cos( k*(x-xi +cos(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5274:23:
5274 | sinyt(:,i) = sinyt(:,i) + k*( knorm**(-beta_GP) ) * sin( k*(y-eta+sin(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5275:23:
5275 | cosyt(:,i) = sinyt(:,i) + k*( knorm**(-beta_GP) ) * cos( k*(y-eta+sin(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5277:23:
5277 | sinzt(:,i) = sinzt(:,i) + k*( knorm**(-beta_GP) ) * sin( k*(z-xi +cos(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5278:23:
5278 | coszt(:,i) = coszt(:,i) + k*( knorm**(-beta_GP) ) * cos( k*(z-xi +cos(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5279:23:
5279 | sinxt(:,i) = sinxt(:,i) + k*( knorm**(-beta_GP) ) * sin( k*(x-eta+sin(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5280:23:
5280 | cosxt(:,i) = sinxt(:,i) + k*( knorm**(-beta_GP) ) * cos( k*(x-eta+sin(omega*t) ) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5341:16:
5341 | ecoxt=eps_fcont(i)*cos( omega_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5342:16:
5342 | ecoyt=eps_fcont(i)*cos(omegay_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:5343:16:
5343 | ecozt=eps_fcont(i)*cos(omegaz_fcont(i)*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4934:20:
4934 | dist3 = sqrt( (R0_tidal*cos(omega_tidal*t)*cos(phi_tidal)-x(l))**2 + &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4937:34:
4937 | forcing_rhs(l-l1+1,1)=rho1(l)*fact*(R0_tidal*cos(omega_tidal*t)*cos(phi_tidal)-x(l))/dist3
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4938:34:
4938 | forcing_rhs(l-l1+1,2)=rho1(l)*fact*(R0_tidal*sin(omega_tidal*t)-y(m))/dist3
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4939:34:
4939 | forcing_rhs(l-l1+1,3)=rho1(l)*fact*(R0_tidal*cos(omega_tidal*t)*sin(phi_tidal)-z(n))/dist3
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4805:16:
4805 | tsforce=t+dtforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4808:10:
4808 | ik1=nk*.9999*fran1(2)+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4813:10:
4813 | ik2=nk*.9999*fran2(2)+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4820:15:
4820 | p_weight=(tsforce-t)/dtforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4739:20:
4739 | t_next_blob=t+1. !MR: why +1?
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4764:22:
4764 | t_next_blob=t+scaled_interval
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4766:22:
4766 | t_next_blob=t+dtforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:4235:9:
4235 | ik=nk*.9999*fran(2)+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4238:9:
4238 | kx=kkx(ik)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4239:9:
4239 | ky=kky(ik)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4240:9:
4240 | kz=kkz(ik)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4282:10:
4282 | kex=ky*ez-kz*ey
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4283:10:
4283 | key=kz*ex-kx*ez
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:4284:10:
4284 | kez=kx*ey-ky*ex
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:3939:16:
3939 | tsforce=t+dtforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3956:18:
3956 | force_tmp=force_ampl*sin(pi*(tsforce-t)/dtforce)**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3713:16:
3713 | tsforce=t+dtforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3724:18:
3724 | force_tmp=force_ampl*sin(pi*(tsforce-t)/dtforce)**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3321:11:
3321 | cost=cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3322:11:
3322 | sint=sin(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3249:11:
3249 | cost=cos(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3250:11:
3250 | sint=sin(omega_ff*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:3110:12:
3110 | emm = cklist(lmindex,1)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:3111:18:
3111 | Legendrel = cklist(lmindex,2)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:2980:12:
2980 | emm = cklist(lmindex,1)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:2981:18:
2981 | Legendrel = cklist(lmindex,2)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:2778:9:
2778 | ik=nk*(.9999*fran(2))+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:2354:9:
2354 | ik=nk*(.9999*fran(2))+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:2684:23:
2684 | coef1(1)=cmplx(k*kex,sig*kkex)
| 1
Warning: Possible change of value in conversion from COMPLEX(4) to REAL(4) at (1) [-Wconversion]
forcing.f90:2685:23:
2685 | coef1(2)=cmplx(k*key,sig*kkey)
| 1
Warning: Possible change of value in conversion from COMPLEX(4) to REAL(4) at (1) [-Wconversion]
forcing.f90:2686:23:
2686 | coef1(3)=cmplx(k*kez,sig*kkez)
| 1
Warning: Possible change of value in conversion from COMPLEX(4) to REAL(4) at (1) [-Wconversion]
forcing.f90:2033:16:
2033 | tsforce=t+dtforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2044:15:
2044 | aforce=sin( pi*(tsforce-t)/dtforce)**2*dtforce_ampl+(1.-dtforce_ampl)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2045:15:
2045 | pforce=cos(.5*pi*(tsforce-t)/dtforce)**2*aforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2046:15:
2046 | qforce=sin(.5*pi*(tsforce-t)/dtforce)**2*aforce
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2106:35:
2106 | forcing_rhs(:,j) = force_ampl*fda(j)*cos(omega_ff*t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2110:41:
2110 | forcing_rhs_old(:,j) = force_ampl*fda_old(j)*cos(omega_ff*t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2114:38:
2114 | forcing_rhs2(:,j) = force_ampl*fda2(j)*cos(omega_ff*t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2117:44:
2117 | forcing_rhs2_old(:,j) = force_ampl*fda2_old(j)*cos(omega_ff*t) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2124:37:
2124 | forcing_rhs(:,j) = (1.-qdouble_profile(n))*forcing_rhs(:,j) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2129:43:
2129 | forcing_rhs_old(:,j) = (1.-qdouble_profile(n))*forcing_rhs_old(:,j) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:2169:26:
2169 | tmp=max(0d0,1d0+min(0d0,(tforce_ramp_down-t)/tauforce_ramp_down))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
forcing.f90:1702:13:
1702 | ik=nk*(.9999*fran(2))+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1470:11:
1470 | ik=nk*(.9999*fran(2))+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1314:12:
1314 | iran1=random2d_nmodes*(.9999*fran(3))+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1315:12:
1315 | iran2=random2d_nmodes*(.9999*fran(4))+1
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1322:12:
1322 | kx1=random2d_kmodes(1,iran1)*scale_kvectorx
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1323:12:
1323 | ky1=random2d_kmodes(2,iran1)*scale_kvectory
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1324:12:
1324 | kx2=random2d_kmodes(1,iran2)*scale_kvectorx
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1325:12:
1325 | ky2=random2d_kmodes(2,iran2)*scale_kvectory
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1328:12:
1328 | kx1=random2d_kmodes(1,iran1)*(2.*pi/Lxyz(1))
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1329:12:
1329 | ky1=random2d_kmodes(2,iran1)*(2.*pi/Lxyz(2))
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1330:12:
1330 | kx2=random2d_kmodes(1,iran2)*(2.*pi/Lxyz(1))
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:1331:12:
1331 | ky2=random2d_kmodes(2,iran2)*(2.*pi/Lxyz(2))
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:898:18:
898 | emm = cklist(ilist,1)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:899:24:
899 | Legendrel = cklist(ilist,2)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:960:18:
960 | emm = cklist(ilist,1)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:961:24:
961 | Legendrel = cklist(ilist,2)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
forcing.f90:194:24:
194 | integer :: idiag_fxbxm=0
| 1
Warning: Unused PRIVATE module variable ‘idiag_fxbxm’ declared at (1) [-Wunused-value]
forcing.f90:195:24:
195 | integer :: idiag_fxbym=0
| 1
Warning: Unused PRIVATE module variable ‘idiag_fxbym’ declared at (1) [-Wunused-value]
forcing.f90:196:24:
196 | integer :: idiag_fxbzm=0
| 1
Warning: Unused PRIVATE module variable ‘idiag_fxbzm’ declared at (1) [-Wunused-value]
forcing.f90:116:90:
116 | real, dimension(n_forcing_cont_max) :: ampl_ff=1., ampl1_ff=0., width_fcont=1., x1_fcont=0., x2_fcont=0.
| 1
Warning: Unused PRIVATE module variable ‘x1_fcont’ declared at (1) [-Wunused-value]
forcing.f90:116:103:
116 | real, dimension(n_forcing_cont_max) :: ampl_ff=1., ampl1_ff=0., width_fcont=1., x1_fcont=0., x2_fcont=0.
| 1
Warning: Unused PRIVATE module variable ‘x2_fcont’ declared at (1) [-Wunused-value]
forcing.f90:6184:35:
6184 | real, dimension (nx,3) :: fxb
| 1
Warning: Unused variable ‘fxb’ declared at (1) [-Wunused-variable]
forcing.f90:5641:40:
5641 | subroutine forcing_cont(i,force,rho1)
| 1
Warning: Unused dummy argument ‘rho1’ at (1) [-Wunused-dummy-argument]
forcing.f90:4898:34:
4898 | real, dimension (nx,3) :: bb,fxb
| 1
Warning: Unused variable ‘bb’ declared at (1) [-Wunused-variable]
forcing.f90:4898:38:
4898 | real, dimension (nx,3) :: bb,fxb
| 1
Warning: Unused variable ‘fxb’ declared at (1) [-Wunused-variable]
forcing.f90:4899:18:
4899 | integer :: j,jf,l
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
forcing.f90:4899:21:
4899 | integer :: j,jf,l
| 1
Warning: Unused variable ‘jf’ declared at (1) [-Wunused-variable]
forcing.f90:4786:47:
4786 | real, dimension (mx,my,mz,3) :: force_vec
| 1
Warning: Array ‘force_vec’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
forcing.f90:4792:27:
4792 | integer :: ik1,ik2,ik
| 1
Warning: Unused variable ‘ik’ declared at (1) [-Wunused-variable]
forcing.f90:4729:34:
4729 | character (len=intlen) :: ch
| 1
Warning: Unused variable ‘ch’ declared at (1) [-Wunused-variable]
forcing.f90:4730:35:
4730 | character (len=fnlen) :: file
| 1
Warning: Unused variable ‘file’ declared at (1) [-Wunused-variable]
forcing.f90:4728:23:
4728 | logical :: lforce
| 1
Warning: Unused variable ‘lforce’ declared at (1) [-Wunused-variable]
forcing.f90:3466:69:
3466 | real, dimension (nx,3) :: variable_rhs,forcing_rhs,force_all,bb,fxb
| 1
Warning: Unused variable ‘bb’ declared at (1) [-Wunused-variable]
forcing.f90:3466:73:
3466 | real, dimension (nx,3) :: variable_rhs,forcing_rhs,force_all,bb,fxb
| 1
Warning: Unused variable ‘fxb’ declared at (1) [-Wunused-variable]
forcing.f90:3471:18:
3471 | integer :: j,jf
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
forcing.f90:3471:21:
3471 | integer :: j,jf
| 1
Warning: Unused variable ‘jf’ declared at (1) [-Wunused-variable]
forcing.f90:3315:18:
3315 | integer :: j,jf
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
forcing.f90:3315:21:
3315 | integer :: j,jf
| 1
Warning: Unused variable ‘jf’ declared at (1) [-Wunused-variable]
forcing.f90:3243:18:
3243 | integer :: j,jf
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
forcing.f90:3243:21:
3243 | integer :: j,jf
| 1
Warning: Unused variable ‘jf’ declared at (1) [-Wunused-variable]
forcing.f90:3093:24:
3093 | integer :: emm,l,j,jf,Legendrel,lmindex,aindex,ell_rand,raindex
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
forcing.f90:3093:27:
3093 | integer :: emm,l,j,jf,Legendrel,lmindex,aindex,ell_rand,raindex
| 1
Warning: Unused variable ‘jf’ declared at (1) [-Wunused-variable]
forcing.f90:3095:38:
3095 | real :: rz,rindex,ralpha,rphase2,thphase,sthphase,cthphase,costhprime,phprime,alphap,&
| 1
Warning: Unused variable ‘rphase2’ declared at (1) [-Wunused-variable]
forcing.f90:3095:16:
3095 | real :: rz,rindex,ralpha,rphase2,thphase,sthphase,cthphase,costhprime,phprime,alphap,&
| 1
Warning: Unused variable ‘rz’ declared at (1) [-Wunused-variable]
forcing.f90:3098:33:
3098 | real, dimension(nx) :: Smod
| 1
Warning: Unused variable ‘smod’ declared at (1) [-Wunused-variable]
forcing.f90:2770:22:
2770 | integer :: jtest
| 1
Warning: Unused variable ‘jtest’ declared at (1) [-Wunused-variable]
forcing.f90:2335:44:
2335 | real, dimension (nx,3) :: fda,uu,oo,bb,fxb,curlo
| 1
Warning: Unused variable ‘bb’ declared at (1) [-Wunused-variable]
forcing.f90:2335:48:
2335 | real, dimension (nx,3) :: fda,uu,oo,bb,fxb,curlo
| 1
Warning: Unused variable ‘fxb’ declared at (1) [-Wunused-variable]
forcing.f90:1889:35:
1889 | subroutine fxyz_coefs_hel(coef1,coef2,coef3,kk,phase,fact,fx,fy,fz)
| 1
Warning: Unused dummy argument ‘coef1’ at (1) [-Wunused-dummy-argument]
forcing.f90:1889:41:
1889 | subroutine fxyz_coefs_hel(coef1,coef2,coef3,kk,phase,fact,fx,fy,fz)
| 1
Warning: Unused dummy argument ‘coef2’ at (1) [-Wunused-dummy-argument]
forcing.f90:1889:47:
1889 | subroutine fxyz_coefs_hel(coef1,coef2,coef3,kk,phase,fact,fx,fy,fz)
| 1
Warning: Unused dummy argument ‘coef3’ at (1) [-Wunused-dummy-argument]
forcing.f90:263:97:
263 | real :: zstar,rmin,rmax,a_ell,anum,adenom,jlm_ff,ylm_ff,alphar,Balpha,RYlm,IYlm,intv_rotang
| 1
Warning: Unused variable ‘intv_rotang’ declared at (1) [-Wunused-variable]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_spin.o -c noparticles_spin.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_adsorbed.o -c noparticles_adsorbed.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_potential.o -c noparticles_potential.f90
entropy.f90:6907:16:
6907 | lnQ=lnQ + lnH_1(i) + B_1(i)*lnTT_SI
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:6911:16:
6911 | lnQ = lnQ + lnH_1(imax-1) + B_1(imax-1)*intlnT_1(imax)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:6927:16:
6927 | lnQ=lnQ + lnH_2(i) + B_2(i)*lnTT_SI
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:6931:16:
6931 | lnQ = lnQ + lnH_2(imax-1) + B_2(imax-1)*intlnT_2(imax)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:6528:56:
6528 | if ((ttransient>0) .and. (t<ttransient)) heat = heat * t*(2*ttransient-t)/ttransient**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:5445:13:
5445 | kappa0=kappa0_cgs*unit_density/unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:5461:18:
5461 | cooling = 2*sigmaSB*p%TT**4/(a1+a2+a3)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2747:16:
2747 | g_A = g_A_cgs/unit_velocity*unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2749:16:
2749 | g_C = g_C_cgs/unit_velocity*unit_time
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2770:12:
2770 | rho=rho0hs*exp(-m_u*muhs/T0/k_B*(-g_A*g_B+g_A*sqrt(g_B**2 + z(n)**2)+g_C/g_D*z(n)**2/2.))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2657:12:
2657 | kpc = 3.086D21 / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2660:10:
2660 | T_c=T_c_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2661:10:
2661 | T_w=T_w_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2662:10:
2662 | T_i=T_i_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:2663:10:
2663 | T_h=T_h_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:745:25:
745 | if (T0_cgs/=0.) T0=T0_cgs/unit_temperature
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:746:31:
746 | if (ssmask1==0.) ssmask1=ssmask1_cgs/unit_entropy
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:747:31:
747 | if (ssmask2==0.) ssmask2=ssmask2_cgs/unit_entropy
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:1103:19:
1103 | prof_z = prof_z * 1.e6 / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:1105:19:
1105 | prof_z = prof_z * 1.e8 / unit_length
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
entropy.f90:512:29:
512 | integer :: enum_div_sld_ene = 0
| 1
Warning: Unused PRIVATE module variable ‘enum_div_sld_ene’ declared at (1) [-Wunused-value]
entropy.f90:99:28:
99 | integer :: nsmooth_kramers=0
| 1
Warning: Unused PRIVATE module variable ‘nsmooth_kramers’ declared at (1) [-Wunused-value]
entropy.f90:106:46:
106 | real :: wpatch=0.0, amp_patch=1.0, patch_fac=1.0, coolfac=0.0
| 1
Warning: Unused PRIVATE module variable ‘patch_fac’ declared at (1) [-Wunused-value]
entropy.f90:60:28:
60 | real :: thermal_background=0.0, thermal_peak=0.0, thermal_scaling=1.0
| 1
Warning: Unused PRIVATE module variable ‘thermal_background’ declared at (1) [-Wunused-value]
entropy.f90:60:67:
60 | real :: thermal_background=0.0, thermal_peak=0.0, thermal_scaling=1.0
| 1
Warning: Unused PRIVATE module variable ‘thermal_scaling’ declared at (1) [-Wunused-value]
entropy.f90:170:14:
170 | real :: xmid
| 1
Warning: Unused PRIVATE module variable ‘xmid’ declared at (1) [-Wunused-value]
entropy.f90:6513:39:
6513 | real, dimension (nx) :: heat,prof
| 1
Warning: Unused variable ‘prof’ declared at (1) [-Wunused-variable]
entropy.f90:6343:18:
6343 | integer :: i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
forcing.f90:4205:34:
4205 | subroutine forcing_hel_noshear(f)
| ^
Warning: ‘forcing_hel_noshear’ defined but not used [-Wunused-function]
forcing.f90:4393:30:
4393 | subroutine forcing_roberts(f)
| ^
Warning: ‘forcing_roberts’ defined but not used [-Wunused-function]
forcing.f90:5422:40:
5422 | subroutine random_isotropic_KS_setup(initpower,kmin,kmax)
| ^
Warning: ‘random_isotropic_ks_setup’ defined but not used [-Wunused-function]
entropy.f90:4330:40:
4330 | real, dimension (mx,my,mz) :: cs2p, ruzp
| 1
Warning: Array ‘cs2p’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
entropy.f90:4333:50:
4333 | real, dimension (ncool_patch_max) :: dxpatch, dypatch
| 1
Warning: Unused variable ‘dxpatch’ declared at (1) [-Wunused-variable]
entropy.f90:4333:59:
4333 | real, dimension (ncool_patch_max) :: dxpatch, dypatch
| 1
Warning: Unused variable ‘dypatch’ declared at (1) [-Wunused-variable]
entropy.f90:4335:28:
4335 | integer :: l,m,n,lf,nn
| 1
Warning: Unused variable ‘nn’ declared at (1) [-Wunused-variable]
entropy.f90:4330:46:
4330 | real, dimension (mx,my,mz) :: cs2p, ruzp
| 1
Warning: Array ‘ruzp’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
noparticles_spin.f90:62:39:
62 | subroutine prepare_curl_vectorfield(f)
| ^
Warning: ‘prepare_curl_vectorfield’ defined but not used [-Wunused-function]
noparticles_potential.f90:52:44:
52 | subroutine pencil_criteria_par_potential
| ^
Warning: ‘pencil_criteria_par_potential’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_surfspec.o -c noparticles_surfspec.f90
entropy.f90:7424:34:
7424 | subroutine calc_heatcond_zprof(zprof_hcond,zprof_glhc)
| ^
Warning: ‘calc_heatcond_zprof’ defined but not used [-Wunused-function]
noparticles_surfspec.f90:33:35:
33 | subroutine register_dep_psurfchem()
| ^
Warning: ‘register_dep_psurfchem’ defined but not used [-Wunused-function]
noparticles_surfspec.f90:38:37:
38 | subroutine register_indep_psurfchem()
| ^
Warning: ‘register_indep_psurfchem’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o magnetic.o -c magnetic.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noimplicit_physics.o -c noimplicit_physics.f90
magnetic.f90:11377:16:
11377 | c = cos(omega_Bz_ext * t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:11378:16:
11378 | s = sin(omega_Bz_ext * t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:11390:19:
11390 | zposbot=zbot_moving_layer + t*speed_moving_layer
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:11391:19:
11391 | zpostop=ztop_moving_layer + t*speed_moving_layer
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:11434:22:
11434 | B_ext_out = B0_ext + 0.5*(1.-cos(pi*(t-t0_bext)/(t_bext-t0_bext)))*(B_ext_out-B0_ext)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:9169:27:
9169 | f(l1:l2,m,n,iuu+0)=f(l1:l2,m,n,iuu+0)+ampl*fac/(4*kz)*sin(kz*z(n))
| 1
Warning: Possible change of value in conversion from COMPLEX(4) to REAL(4) at (1) [-Wconversion]
magnetic.f90:7845:21:
7845 | taareset=t+daareset
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:5983:14:
5983 | tmp1=mu01/(numag*(B0_magfric/unit_magnetic**2+p%b2))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:4044:22:
4044 | p%bb(:,1) = p%bb(:,1) + dipole_moment*2*(c*costh(m) + s*sinth(m)*cos(z(n)-omega_Bz_ext*t))*p%r_mn1**3
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:4045:22:
4045 | p%bb(:,2) = p%bb(:,2) + dipole_moment* (c*sinth(m) - s*costh(m)*cos(z(n)-omega_Bz_ext*t))*p%r_mn1**3
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:4046:22:
4046 | p%bb(:,3) = p%bb(:,3) + dipole_moment* ( s* sin(z(n)-omega_Bz_ext*t))*p%r_mn1**3
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:4717:13:
4717 | tmp1=mu01/(numag*(B0_magfric/unit_magnetic**2+p%b2))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:4763:23:
4763 | p%clight2 = max(dble(cmin)**2,c_light**2/(1.+max(z(n),0.0)**8)+max(25.0*maxval(p%u2),maxval(p%cs2)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:1501:17:
1501 | c_light2=c_light**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
magnetic.f90:99:46:
99 | real, dimension (:,:,:,:), allocatable :: ap
| 1
Warning: Unused PRIVATE module variable ‘ap’ declared at (1) [-Wunused-value]
magnetic.f90:159:52:
159 | real :: kpeak_aa=10., kgaussian_aa=0., brms_target=1.0, rescaling_fraction=1.0
| 1
Warning: Unused PRIVATE module variable ‘brms_target’ declared at (1) [-Wunused-value]
magnetic.f90:167:14:
167 | real :: damp=0., two_step_factor=1.
| 1
Warning: Unused PRIVATE module variable ‘damp’ declared at (1) [-Wunused-value]
magnetic.f90:1137:30:
1137 | integer :: enum_div_sld_magn = 0
| 1
Warning: Unused PRIVATE module variable ‘enum_div_sld_magn’ declared at (1) [-Wunused-value]
magnetic.f90:116:39:
116 | integer :: nzav=0,indzav=0,izav_start=1
| 1
Warning: Unused PRIVATE module variable ‘izav_start’ declared at (1) [-Wunused-value]
magnetic.f90:317:28:
317 | real :: k1x_ff=1.0, k1y_ff=1.0, k1z_ff=1.0
| 1
Warning: Unused PRIVATE module variable ‘k1y_ff’ declared at (1) [-Wunused-value]
magnetic.f90:244:25:
244 | logical :: lbeta_as_aux=.false.
| 1
Warning: Unused PRIVATE module variable ‘lbeta_as_aux’ declared at (1) [-Wunused-value]
magnetic.f90:258:23:
258 | logical :: lbraginsky=.false., l2d_aa=.false.
| 1
Warning: Unused PRIVATE module variable ‘lbraginsky’ declared at (1) [-Wunused-value]
magnetic.f90:343:30:
343 | logical :: lelectron_inertia=.false.
| 1
Warning: Unused PRIVATE module variable ‘lelectron_inertia’ declared at (1) [-Wunused-value]
magnetic.f90:150:14:
150 | real :: mu_r=-0.5 !(still needed for backwards compatibility)
| 1
Warning: Unused PRIVATE module variable ‘mu_r’ declared at (1) [-Wunused-value]
magnetic.f90:139:31:
139 | real :: relhel_aa=1., nexp_aa=0.
| 1
Warning: Unused PRIVATE module variable ‘nexp_aa’ declared at (1) [-Wunused-value]
magnetic.f90:159:76:
159 | real :: kpeak_aa=10., kgaussian_aa=0., brms_target=1.0, rescaling_fraction=1.0
| 1
Warning: Unused PRIVATE module variable ‘rescaling_fraction’ declared at (1) [-Wunused-value]
magnetic.f90:11147:35:
11147 | subroutine magnetic_after_mn(df)
| 1
Warning: Unused dummy argument ‘df’ at (1) [-Wunused-dummy-argument]
magnetic.f90:9273:41:
9273 | real, dimension(mx,my,mz) :: Ax_ext,Ay_ext
| 1
Warning: Array ‘ax_ext’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
magnetic.f90:9273:48:
9273 | real, dimension(mx,my,mz) :: Ax_ext,Ay_ext
| 1
Warning: Array ‘ay_ext’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
magnetic.f90:8034:38:
8034 | subroutine forcing_continuous(df,p)
| 1
Warning: Unused dummy argument ‘p’ at (1) [-Wunused-dummy-argument]
magnetic.f90:4970:49:
4970 | real, dimension (nx) :: vdrift, va2max_beta
| 1
Warning: Unused variable ‘va2max_beta’ declared at (1) [-Wunused-variable]
magnetic.f90:4884:51:
4884 | real, dimension (nx,3) :: gchi_diamag, Bk_Bki, jj_diamag, tmp
| 1
Warning: Unused variable ‘bk_bki’ declared at (1) [-Wunused-variable]
magnetic.f90:3909:28:
3909 | type(pencil_case) :: p
| 1
Warning: Array ‘p’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
magnetic.f90:7924:25:
7924 | subroutine curflux_dS(uxb,jj)
| ^
Warning: ‘curflux_ds’ defined but not used [-Wunused-function]
magnetic.f90:11167:24:
11167 | subroutine braginsky
| ^
Warning: ‘braginsky’ defined but not used [-Wunused-function]
magnetic.f90:11249:36:
11249 | subroutine remove_volume_average(f)
| ^
Warning: ‘remove_volume_average’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o shock.o -c shock.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o hydro.o -c hydro.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o power_spectrum.o -c power_spectrum.f90
shock.f90:1779:31:
1779 | subroutine pushpars2c(p_par)
| 1
Warning: Unused dummy argument ‘p_par’ at (1) [-Wunused-dummy-argument]
shock.f90:1161:48:
1161 | real, dimension (mx,my,mz) :: smoothf, tmp
| 1
Warning: Array ‘tmp’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
shock.f90:909:45:
909 | real, dimension (mx,my,mz) :: maxf, tmp
| 1
Warning: Array ‘tmp’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
shock.f90:767:45:
767 | real, dimension (mx,my,mz) :: maxf, tmp
| 1
Warning: Array ‘tmp’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
shock.f90:406:39:
406 | real, dimension (mx,my,mz) :: tmp
| 1
Warning: Array ‘tmp’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
shock.f90:344:38:
344 | real, dimension (mx,my,mz) :: tmp
| 1
Warning: Array ‘tmp’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
shock.f90:209:41:
209 | subroutine rprint_shock(lreset,lwrite)
| 1
Warning: Unused dummy argument ‘lwrite’ at (1) [-Wunused-dummy-argument]
shock.f90:1085:32:
1085 | subroutine shock_max5_pencil(f,j,maxf)
| ^
Warning: ‘shock_max5_pencil’ defined but not used [-Wunused-function]
shock.f90:1425:41:
1425 | subroutine shock_smooth_cube_diamond7(f,df)
| ^
Warning: ‘shock_smooth_cube_diamond7’ defined but not used [-Wunused-function]
shock.f90:1523:46:
1523 | subroutine scale_and_chop_internalboundary(f)
| ^
Warning: ‘scale_and_chop_internalboundary’ defined but not used [-Wunused-function]
shock.f90:1599:36:
1599 | subroutine shock_smooth_octagon7(f,df)
| ^
Warning: ‘shock_smooth_octagon7’ defined but not used [-Wunused-function]
power_spectrum.f90:5633:12:
5633 | kxx = kx(ikx+ipx*nx) ! the true kx
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
power_spectrum.f90:5634:12:
5634 | kyy = ky(iky+ipy*ny) ! the true ky
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
power_spectrum.f90:5635:12:
5635 | kzz = kz(ikz+ipz*nz) ! the true kz
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
power_spectrum.f90:473:16:
473 | k2=get_k2(ikx+ipx*nx, iky+ipy*ny, ikz+ipz*nz)
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
power_spectrum.f90:226:22:
226 | kx=cshift((/(i-(nxgrid+1)/2,i=0,nxgrid-1)/),+(nxgrid+1)/2) !*2*pi/Lx
| 1
Warning: Integer division truncated to constant ‘16’ at (1) [-Winteger-division]
power_spectrum.f90:226:52:
226 | kx=cshift((/(i-(nxgrid+1)/2,i=0,nxgrid-1)/),+(nxgrid+1)/2) !*2*pi/Lx
| 1
Warning: Integer division truncated to constant ‘16’ at (1) [-Winteger-division]
power_spectrum.f90:227:22:
227 | ky=cshift((/(i-(nygrid+1)/2,i=0,nygrid-1)/),+(nygrid+1)/2) !*2*pi/Ly
| 1
Warning: Integer division truncated to constant ‘16’ at (1) [-Winteger-division]
power_spectrum.f90:227:52:
227 | ky=cshift((/(i-(nygrid+1)/2,i=0,nygrid-1)/),+(nygrid+1)/2) !*2*pi/Ly
| 1
Warning: Integer division truncated to constant ‘16’ at (1) [-Winteger-division]
power_spectrum.f90:228:22:
228 | kz=cshift((/(i-(nzgrid+1)/2,i=0,nzgrid-1)/),+(nzgrid+1)/2) !*2*pi/Lz
| 1
Warning: Integer division truncated to constant ‘16’ at (1) [-Winteger-division]
power_spectrum.f90:228:52:
228 | kz=cshift((/(i-(nzgrid+1)/2,i=0,nzgrid-1)/),+(nzgrid+1)/2) !*2*pi/Lz
| 1
Warning: Integer division truncated to constant ‘16’ at (1) [-Winteger-division]
power_spectrum.f90:76:33:
76 | real, dimension(nx,ny,nz) :: a2
| 1
Warning: Unused PRIVATE module variable ‘a2’ declared at (1) [-Wunused-value]
power_spectrum.f90:76:33:
76 | real, dimension(nx,ny,nz) :: a2
| 1
Warning: Array ‘a2’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:40:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘a_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:35:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘a_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:75:50:
75 | real, dimension(nx,ny,nz,3) :: a_vec_re,a_vec_im, b_vec_re
| 1
Warning: Unused PRIVATE module variable ‘a_vec_im’ declared at (1) [-Wunused-value]
power_spectrum.f90:75:50:
75 | real, dimension(nx,ny,nz,3) :: a_vec_re,a_vec_im, b_vec_re
| 1
Warning: Array ‘a_vec_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:75:41:
75 | real, dimension(nx,ny,nz,3) :: a_vec_re,a_vec_im, b_vec_re
| 1
Warning: Array ‘a_vec_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:50:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘b_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:45:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘b_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:75:60:
75 | real, dimension(nx,ny,nz,3) :: a_vec_re,a_vec_im, b_vec_re
| 1
Warning: Array ‘b_vec_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:60:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘c_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:55:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘c_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:70:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘d_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:65:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘d_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:80:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘h_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:74:75:
74 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im,c_re,c_im,d_re,d_im,h_re,h_im
| 1
Warning: Array ‘h_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:5909:14:
5909 | integer :: i,ikx,iky,ikz,k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:5720:20:
5720 | integer :: ncomp,i,ivec,ikx,iky,ikz,jkx,jky,jkz
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:5450:14:
5450 | integer :: i, ikx, iky, ikz, im, in, ivec, ikr
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:5179:14:
5179 | integer :: i,ivec,ikx,iky,ikz,jkx,jkz,k
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:4848:14:
4848 | integer :: i, k, ikx, iky, ikz, jkz, ivec
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:4843:8:
4843 | use Chiral, only: iXX_chiral, iYY_chiral
| 1
Warning: Unused module variable ‘ixx_chiral’ which has been explicitly imported at (1) [-Wunused-variable]
power_spectrum.f90:4843:8:
4843 | use Chiral, only: iXX_chiral, iYY_chiral
| 1
Warning: Unused module variable ‘iyy_chiral’ which has been explicitly imported at (1) [-Wunused-variable]
power_spectrum.f90:4694:14:
4694 | integer :: i, ikx, iky, ikz, im, in, ivec
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:4694:33:
4694 | integer :: i, ikx, iky, ikz, im, in, ivec
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:4694:37:
4694 | integer :: i, ikx, iky, ikz, im, in, ivec
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:4691:8:
4691 | use Chiral, only: iXX_chiral, iYY_chiral, iXX2_chiral, iYY2_chiral
| 1
Warning: Unused module variable ‘ixx2_chiral’ which has been explicitly imported at (1) [-Wunused-variable]
power_spectrum.f90:4691:8:
4691 | use Chiral, only: iXX_chiral, iYY_chiral, iXX2_chiral, iYY2_chiral
| 1
Warning: Unused module variable ‘ixx_chiral’ which has been explicitly imported at (1) [-Wunused-variable]
power_spectrum.f90:4691:8:
4691 | use Chiral, only: iXX_chiral, iYY_chiral, iXX2_chiral, iYY2_chiral
| 1
Warning: Unused module variable ‘iyy2_chiral’ which has been explicitly imported at (1) [-Wunused-variable]
power_spectrum.f90:4691:8:
4691 | use Chiral, only: iXX_chiral, iYY_chiral, iXX2_chiral, iYY2_chiral
| 1
Warning: Unused module variable ‘iyy_chiral’ which has been explicitly imported at (1) [-Wunused-variable]
power_spectrum.f90:4223:45:
4223 | integer :: i, ikx, iky, ikz, ivec, jvec, im, in
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:4223:49:
4223 | integer :: i, ikx, iky, ikz, ivec, jvec, im, in
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o dustdensity.o -c dustdensity.f90
power_spectrum.f90:4115:35:
4115 | real, dimension(nx,ny,nz,3) :: a1,b1
| 1
Warning: Array ‘a1’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:4115:38:
4115 | real, dimension(nx,ny,nz,3) :: a1,b1
| 1
Warning: Array ‘b1’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:4113:14:
4113 | integer :: i,k,ikx,iky,ikz,ivec
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3975:19:
3975 | integer :: j,l,im,in,ivec,ispec,ifirst_fft
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3975:22:
3975 | integer :: j,l,im,in,ivec,ispec,ifirst_fft
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3806:19:
3806 | integer :: j,l,im,in,ivec,ispec,ifirst_fft
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3806:22:
3806 | integer :: j,l,im,in,ivec,ispec,ifirst_fft
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3683:14:
3683 | integer :: i,ivec,ikx,iky,ikz,kr,ipdf
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3302:26:
3302 | integer :: ix,iy,iz,im,in,ikx,iky,ikz,nc
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:3302:29:
3302 | integer :: ix,iy,iz,im,in,ikx,iky,ikz,nc
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2973:14:
2973 | integer :: i,k,ikx,iky,ikz, ivec, im, in, ia0
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2973:38:
2973 | integer :: i,k,ikx,iky,ikz, ivec, im, in, ia0
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2973:42:
2973 | integer :: i,k,ikx,iky,ikz, ivec, im, in, ia0
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2686:40:
2686 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘a_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2686:35:
2686 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘a_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2686:50:
2686 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘b_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2686:45:
2686 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘b_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2682:14:
2682 | integer :: i,k,ikx,iky,ikz
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2487:37:
2487 | real, dimension (mx,my,mz,3) :: Adv, Str, BBB
| 1
Warning: Array ‘adv’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2487:47:
2487 | real, dimension (mx,my,mz,3) :: Adv, Str, BBB
| 1
Warning: Array ‘bbb’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2484:14:
2484 | integer :: i,k,ikx,iky,ikz,ivec
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2487:42:
2487 | real, dimension (mx,my,mz,3) :: Adv, Str, BBB
| 1
Warning: Array ‘str’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:2291:14:
2291 | integer :: i,k,ikx,iky,ikz,ivec
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2088:14:
2088 | integer :: i,k,ikx,iky,ikz,ivec, stat
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2091:36:
2091 | real, dimension(mx,my,mz,3) :: Lor
| 1
Warning: Array ‘lor’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1828:14:
1828 | integer :: i, k, ikx, iky, ikz, ivec, stat
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:1831:36:
1831 | real, dimension(mx,my,mz,3) :: Lor
| 1
Warning: Array ‘lor’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1182:40:
1182 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘a_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1182:35:
1182 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘a_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1182:50:
1182 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘b_im’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1182:45:
1182 | real, dimension(nx,ny,nz) :: a_re,a_im,b_re,b_im
| 1
Warning: Array ‘b_re’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1178:28:
1178 | real, dimension(nx) :: bbi, jji, b2, j2
| 1
Warning: Unused variable ‘bbi’ declared at (1) [-Wunused-variable]
power_spectrum.f90:1183:36:
1183 | real, dimension(nx,ny,nz,3) :: bEP, hEP
| 1
Warning: Unused variable ‘bep’ declared at (1) [-Wunused-variable]
power_spectrum.f90:1183:41:
1183 | real, dimension(nx,ny,nz,3) :: bEP, hEP
| 1
Warning: Array ‘hep’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:1175:14:
1175 | integer :: i, k, ikx, iky, ikz, jkz, im, in, ivec, ivec_jj
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:1185:37:
1185 | complex, dimension(nx,ny,nz) :: phi
| 1
Warning: Array ‘phi’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:825:50:
825 | real, dimension(nx,ny,nz) :: ar,ai
| 1
Warning: Array ‘ai’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:825:47:
825 | real, dimension(nx,ny,nz) :: ar,ai
| 1
Warning: Array ‘ar’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
power_spectrum.f90:596:14:
596 | integer :: i,k,ikx,iky,ikz,im,in,ivec
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:596:31:
596 | integer :: i,k,ikx,iky,ikz,im,in,ivec
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:596:34:
596 | integer :: i,k,ikx,iky,ikz,im,in,ivec
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:14:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:20:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘ikx’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:24:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘iky’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:28:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘ikz’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:31:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘im’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:34:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘in’ declared at (1) [-Wunused-variable]
power_spectrum.f90:513:16:
513 | integer :: i,k,ikx,iky,ikz,im,in
| 1
Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable]
power_spectrum.f90:515:12:
515 | real :: k2
| 1
Warning: Unused variable ‘k2’ declared at (1) [-Wunused-variable]
power_spectrum.f90:2072:25:
2072 | subroutine powerLor_OLD(f,sp)
| ^
Warning: ‘powerlor_old’ defined but not used [-Wunused-function]
hydro.f90:6093:21:
6093 | last_t = t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:6115:18:
6115 | tau = (t-tfade_start) / (tdamp-tfade_start) - 0.5
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:5412:10:
5412 | c=cos(omega_precession*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:5413:10:
5413 | s=sin(omega_precession*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:5190:16:
5190 | t_cor=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:5167:19:
5167 | fact_cos=cos(omega_fourier*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:5168:19:
5168 | fact_sin=sin(omega_fourier*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:4521:15:
4521 | kx = kx_uu + qshear*Omega*ky_uu*t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:4049:24:
4049 | arad_normal=4*sigmaSB/c_light
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:4050:20:
4050 | pradrc2=onethird*arad_normal*p%TT**4/(p%rho*c_light**2)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:4051:18:
4051 | frict=ekman_friction*fourthird*p%yH*sigma_Thomson*arad_normal*p%TT**4/(m_p*c_light)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
hydro.f90:141:45:
141 | logical :: luuk_as_aux=.false., look_as_aux=.false.
| 1
Warning: Unused PRIVATE module variable ‘look_as_aux’ declared at (1) [-Wunused-value]
hydro.f90:141:24:
141 | logical :: luuk_as_aux=.false., look_as_aux=.false.
| 1
Warning: Unused PRIVATE module variable ‘luuk_as_aux’ declared at (1) [-Wunused-value]
hydro.f90:890:46:
890 | real, dimension (nx) :: prof_amp1, prof_amp2
| 1
Warning: Unused PRIVATE module variable ‘prof_amp2’ declared at (1) [-Wunused-value]
hydro.f90:112:19:
112 | real :: u_out_kep=0.0, velocity_ceiling=.0, w_sldchar_hyd=1.0
| 1
Warning: Unused PRIVATE module variable ‘u_out_kep’ declared at (1) [-Wunused-value]
hydro.f90:215:45:
215 | real :: width_ff_uu=1.,x1_ff_uu=0.,x2_ff_uu=0.
| 1
Warning: Unused PRIVATE module variable ‘x2_ff_uu’ declared at (1) [-Wunused-value]
dustdensity.f90:3431:26:
3431 | do k=2,ndustspec-1
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:3447:53:
3447 | dff_dr(:,1) = (ff(:,2) - ff(:,1))/(dsize_loc(2)-dsize_loc(1))
| 1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 1
dustdensity.f90:3447:28:
3447 | dff_dr(:,1) = (ff(:,2) - ff(:,1))/(dsize_loc(2)-dsize_loc(1))
| 1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 2
dustdensity.f90:3448:17:
3448 | dff_dr(:,2) = dff_dr(:,1)
| 1
Warning: Array reference at (1) is out of bounds (2 > 1) in dimension 2
dustdensity.f90:2793:34:
2793 | deltavd_therm = sqrt( 8*k_B/(pi*p%TT1(l))*(p%md(l,i)+p%md(l,j))/(p%md(l,i)*p%md(l,j)*unit_md) )
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
dustdensity.f90:2611:14:
2611 | vth = (3*k_B/(TT1*mmon))**0.5
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
dustdensity.f90:2625:14:
2625 | vth = (3*k_B/(TT1*mmon))**0.5
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
dustdensity.f90:2654:18:
2654 | mfluxcond=GS_condensparam0+GS_condensparam*tanh(20.*cos(supsatratio_omega*t))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
dustdensity.f90:2659:18:
2659 | mfluxcond=GS_condensparam0+GS_condensparam*cos(supsatratio_omega*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
dustdensity.f90:2417:35:
2417 | do k=2,ndustspec-1
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:2423:35:
2423 | do k=2,ndustspec-1
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:2455:30:
2455 | do k=2,ndustspec-1
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:2477:30:
2477 | do k=2,ndustspec-1
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:2516:30:
2516 | do k=2,ndustspec-1
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:747:26:
747 | do k=2,ndustspec
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:360:49:
360 | case ('all_to_first'); do k=2,ndustspec; f(:,:,:,ind(k))=f(:,:,:,ind(1)); enddo
| 1
Warning: DO loop at (1) will be executed zero times [-Wzerotrip]
dustdensity.f90:571:24:
571 | Rgas_unit_sys = k_B_cgs/m_u_cgs
| 1
Warning: Change of value in conversion from ‘REAL(8)’ to ‘REAL(4)’ at (1) [-Wconversion]
dustdensity.f90:56:35:
56 | real, dimension(ndustspec0) :: BB=0.
| 1
Warning: Unused PRIVATE module variable ‘bb’ declared at (1) [-Wunused-value]
dustdensity.f90:73:15:
73 | real :: delta=1.2, delta0=1.2, deltavd_const=1.
| 1
Warning: Unused PRIVATE module variable ‘delta’ declared at (1) [-Wunused-value]
dustdensity.f90:73:27:
73 | real :: delta=1.2, delta0=1.2, deltavd_const=1.
| 1
Warning: Unused PRIVATE module variable ‘delta0’ declared at (1) [-Wunused-value]
dustdensity.f90:51:55:
51 | real, dimension(nx,ndustspec,ndustspec0) :: dndr_full, ppsf_full
| 1
Warning: Unused PRIVATE module variable ‘dndr_full’ declared at (1) [-Wunused-value]
dustdensity.f90:89:43:
89 | logical :: lcalcdkern=.true., lkeepinitnd=.false., ldustcontinuity=.true.
| 1
Warning: Unused PRIVATE module variable ‘lkeepinitnd’ declared at (1) [-Wunused-value]
dustdensity.f90:66:46:
66 | real :: mdave0=1.0, adpeak=5.0e-4, supsatfac=1.0
| 1
Warning: Unused PRIVATE module variable ‘supsatfac’ declared at (1) [-Wunused-value]
dustdensity.f90:3312:34:
3312 | subroutine droplet_redistr(p,f,ppsf_full_i,dndr_dr, nd_substep, i)
| 1
Warning: Unused dummy argument ‘f’ at (1) [-Wunused-dummy-argument]
dustdensity.f90:3312:69:
3312 | subroutine droplet_redistr(p,f,ppsf_full_i,dndr_dr, nd_substep, i)
| 1
Warning: Unused dummy argument ‘i’ at (1) [-Wunused-dummy-argument]
dustdensity.f90:3312:46:
3312 | subroutine droplet_redistr(p,f,ppsf_full_i,dndr_dr, nd_substep, i)
| 1
Warning: Unused dummy argument ‘ppsf_full_i’ at (1) [-Wunused-dummy-argument]
hydro.f90:6143:55:
6143 | real, dimension (nx) :: pdamp,fint_work,fext_work
| 1
Warning: Unused variable ‘fext_work’ declared at (1) [-Wunused-variable]
hydro.f90:6143:45:
6143 | real, dimension (nx) :: pdamp,fint_work,fext_work
| 1
Warning: Unused variable ‘fint_work’ declared at (1) [-Wunused-variable]
dustdensity.f90:3130:18:
3130 | integer :: k,l
| 1
Warning: Unused variable ‘k’ declared at (1) [-Wunused-variable]
dustdensity.f90:3130:20:
3130 | integer :: k,l
| 1
Warning: Unused variable ‘l’ declared at (1) [-Wunused-variable]
dustdensity.f90:1800:37:
1800 | real, dimension (nx) :: ff_cond, ff_cond_fact
| 1
Warning: Unused variable ‘ff_cond’ declared at (1) [-Wunused-variable]
dustdensity.f90:1800:51:
1800 | real, dimension (nx) :: ff_cond, ff_cond_fact
| 1
Warning: Unused variable ‘ff_cond_fact’ declared at (1) [-Wunused-variable]
dustdensity.f90:1802:21:
1802 | real :: ff_nucl
| 1
Warning: Unused variable ‘ff_nucl’ declared at (1) [-Wunused-variable]
dustdensity.f90:1805:31:
1805 | integer :: k,i,j,kk,ichem, kkk
| 1
Warning: Unused variable ‘ichem’ declared at (1) [-Wunused-variable]
dustdensity.f90:1805:25:
1805 | integer :: k,i,j,kk,ichem, kkk
| 1
Warning: Unused variable ‘kk’ declared at (1) [-Wunused-variable]
dustdensity.f90:1805:36:
1805 | integer :: k,i,j,kk,ichem, kkk
| 1
Warning: Unused variable ‘kkk’ declared at (1) [-Wunused-variable]
hydro.f90:4175:40:
4175 | real, dimension (nx,3) :: uxo,temp
| 1
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
hydro.f90:4180:21:
4180 | real :: kx,zbot
| 1
Warning: Unused variable ‘zbot’ declared at (1) [-Wunused-variable]
hydro.f90:3737:19:
3737 | integer :: j
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
hydro.f90:3260:26:
3260 | integer :: i_4_49_50, j_4_49_50
| 1
Warning: Unused variable ‘i_4_49_50’ declared at (1) [-Wunused-variable]
hydro.f90:3260:37:
3260 | integer :: i_4_49_50, j_4_49_50
| 1
Warning: Unused variable ‘j_4_49_50’ declared at (1) [-Wunused-variable]
hydro.f90:5915:39:
5915 | subroutine coriolis_spherical_del2p(f,p)
| ^
Warning: ‘coriolis_spherical_del2p’ defined but not used [-Wunused-function]
hydro.f90:6006:41:
6006 | subroutine coriolis_cylindrical_del2p(f,p)
| ^
Warning: ‘coriolis_cylindrical_del2p’ defined but not used [-Wunused-function]
hydro.f90:7440:4:
7440 | function decomp_prepare() result (ldecomp)
| ^
Warning: ‘decomp_prepare’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_caustics.o -c noparticles_caustics.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o noparticles_tetrad.o -c noparticles_tetrad.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o test_methods/testfield_general.o -c test_methods/testfield_general.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o notestflow.o -c notestflow.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o notestscalar.o -c notestscalar.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o persist.o -c persist.f90
noparticles_tetrad.f90:155:27:
155 | subroutine reset_tetrad(fp)
| ^
Warning: ‘reset_tetrad’ defined but not used [-Wunused-function]
test_methods/testfield_general.f90:336:59:
336 | if (taainit==0 .or. taainit < t-daainit) taainit=t+daainit
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
test_methods/testfield_general.f90:1065:10:
1065 | use Cdata, only: m, n, lroot, l2davgfirst, iaxtest, iaztest, iaatest
| 1
Warning: Unused module variable ‘lroot’ which has been explicitly imported at (1) [-Wunused-variable]
test_methods/testfield_general.f90:712:82:
712 | subroutine calc_coefficients(idiags,idiags_z,idiags_xz,idiags_Eij,idiags_Eij_z,idiags_Eij_xz, &
| 1
Warning: Unused dummy argument ‘idiags_eij_z’ at (1) [-Wunused-dummy-argument]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o inactive/testfield.o -c inactive/testfield.f90
inactive/testfield.f90:597:20:
597 | taainit=t+daainit
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
inactive/testfield.f90:40:16:
40 | real :: amplaa=0., kx_aa=1.,ky_aa=1.,kz_aa=1.
| 1
Warning: Unused PRIVATE module variable ‘amplaa’ declared at (1) [-Wunused-value]
inactive/testfield.f90:39:31:
39 | real, dimension (nx,3) :: bbb
| 1
Warning: Unused PRIVATE module variable ‘bbb’ declared at (1) [-Wunused-value]
inactive/testfield.f90:40:26:
40 | real :: amplaa=0., kx_aa=1.,ky_aa=1.,kz_aa=1.
| 1
Warning: Unused PRIVATE module variable ‘kx_aa’ declared at (1) [-Wunused-value]
inactive/testfield.f90:40:35:
40 | real :: amplaa=0., kx_aa=1.,ky_aa=1.,kz_aa=1.
| 1
Warning: Unused PRIVATE module variable ‘ky_aa’ declared at (1) [-Wunused-value]
inactive/testfield.f90:40:44:
40 | real :: amplaa=0., kx_aa=1.,ky_aa=1.,kz_aa=1.
| 1
Warning: Unused PRIVATE module variable ‘kz_aa’ declared at (1) [-Wunused-value]
inactive/testfield.f90:779:45:
779 | subroutine rprint_testfield(lreset,lwrite)
| 1
Warning: Unused dummy argument ‘lwrite’ at (1) [-Wunused-dummy-argument]
inactive/testfield.f90:511:29:
511 | type (pencil_case) :: p
| 1
Warning: Array ‘p’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o particles_dust.o -c particles_dust.f90
particles_dust.f90:2181:48:
2181 | avg_n_insert = particles_insert_rate_tmp*dt
| 1
Warning: Possible change of value in conversion from INTEGER(8) to REAL(4) at (1) [-Wconversion]
particles_dust.f90:6750:12:
6750 | Szero=2*tausp1*k_B*TT/mp
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
particles_dust.f90:6689:14:
6689 | Szero = 216*nu*k_B*TT*pi_1/(dia**5*stocunn*rhopmat**2/interp_rho(k))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
particles_dust.f90:4004:13:
4004 | g2 = g1/rp1**2 * t/t_ramp_mass
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
particles_dust.f90:2693:19:
2693 | npar_loc_x = sqrt(npar_loc/(Lxyz_loc(3)/Lxyz_loc(1)))
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(4) at (1) [-Wconversion]
particles_dust.f90:2561:47:
2561 | fp(k,iborn) = t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
particles_dust.f90:2173:36:
2173 | particles_insert_rate_tmp = particles_insert_rate
| 1
Warning: Possible change of value in conversion from REAL(4) to INTEGER(8) at (1) [-Wconversion]
particles_dust.f90:65:53:
65 | real :: kx_vvp=0.0, ky_vvp=0.0, kz_vvp=0.0, amplvvp=0.0
| 1
Warning: Unused PRIVATE module variable ‘amplvvp’ declared at (1) [-Wunused-value]
particles_dust.f90:159:47:
159 | character(len=labellen) :: interp_pol_species='ngp'
| 1
Warning: Unused PRIVATE module variable ‘interp_pol_species’ declared at (1) [-Wunused-value]
particles_dust.f90:65:16:
65 | real :: kx_vvp=0.0, ky_vvp=0.0, kz_vvp=0.0, amplvvp=0.0
| 1
Warning: Unused PRIVATE module variable ‘kx_vvp’ declared at (1) [-Wunused-value]
particles_dust.f90:65:28:
65 | real :: kx_vvp=0.0, ky_vvp=0.0, kz_vvp=0.0, amplvvp=0.0
| 1
Warning: Unused PRIVATE module variable ‘ky_vvp’ declared at (1) [-Wunused-value]
particles_dust.f90:65:40:
65 | real :: kx_vvp=0.0, ky_vvp=0.0, kz_vvp=0.0, amplvvp=0.0
| 1
Warning: Unused PRIVATE module variable ‘kz_vvp’ declared at (1) [-Wunused-value]
particles_dust.f90:145:34:
145 | logical :: lprecalc_cell_volumes=.false.
| 1
Warning: Unused PRIVATE module variable ‘lprecalc_cell_volumes’ declared at (1) [-Wunused-value]
particles_dust.f90:148:27:
148 | logical :: lsimple_volume=.false.
| 1
Warning: Unused PRIVATE module variable ‘lsimple_volume’ declared at (1) [-Wunused-value]
particles_dust.f90:97:32:
97 | real :: vapor_mixing_ratio_qvs=0., rhoa=1.0, redfrac=0.9
| 1
Warning: Unused PRIVATE module variable ‘vapor_mixing_ratio_qvs’ declared at (1) [-Wunused-value]
particles_dust.f90:6724:40:
6724 | real :: TT, tausp1, Szero, mp, eta
| 1
Warning: Unused variable ‘eta’ declared at (1) [-Wunused-variable]
particles_dust.f90:6706:36:
6706 | subroutine calc_brownian_force(f,fp,k,ineark,force,tausp1)
| 1
Warning: Unused dummy argument ‘f’ at (1) [-Wunused-dummy-argument]
particles_dust.f90:6706:48:
6706 | subroutine calc_brownian_force(f,fp,k,ineark,force,tausp1)
| 1
Warning: Unused dummy argument ‘ineark’ at (1) [-Wunused-dummy-argument]
particles_dust.f90:6723:37:
6723 | character(len=labellen) :: ivis=''
| 1
Warning: Unused variable ‘ivis’ declared at (1) [-Wunused-variable]
particles_dust.f90:6498:38:
6498 | subroutine calc_added_mass_beta(fp,k,added_mass_beta)
| 1
Warning: Unused dummy argument ‘fp’ at (1) [-Wunused-dummy-argument]
particles_dust.f90:3983:47:
3983 | subroutine indirect_inertial_particles(f,df,fp,dfp,ineargrid)
| 1
Warning: Unused dummy argument ‘df’ at (1) [-Wunused-dummy-argument]
particles_dust.f90:3983:44:
3983 | subroutine indirect_inertial_particles(f,df,fp,dfp,ineargrid)
| 1
Warning: Unused dummy argument ‘f’ at (1) [-Wunused-dummy-argument]
particles_dust.f90:3983:64:
3983 | subroutine indirect_inertial_particles(f,df,fp,dfp,ineargrid)
| 1
Warning: Unused dummy argument ‘ineargrid’ at (1) [-Wunused-dummy-argument]
particles_dust.f90:3077:38:
3077 | real, dimension(3) :: vvp, force
| 1
Warning: Unused variable ‘force’ declared at (1) [-Wunused-variable]
particles_dust.f90:2481:18:
2481 | integer :: j, k, n_insert, npar_loc_old, iii
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
particles_dust.f90:2481:31:
2481 | integer :: j, k, n_insert, npar_loc_old, iii
| 1
Warning: Unused variable ‘n_insert’ declared at (1) [-Wunused-variable]
particles_dust.f90:2480:29:
2480 | real :: xx0, yy0, r2, r, mass_nucleii, part_mass, TTp
| 1
Warning: Unused variable ‘r’ declared at (1) [-Wunused-variable]
particles_dust.f90:2480:26:
2480 | real :: xx0, yy0, r2, r, mass_nucleii, part_mass, TTp
| 1
Warning: Unused variable ‘r2’ declared at (1) [-Wunused-variable]
particles_dust.f90:2480:17:
2480 | real :: xx0, yy0, r2, r, mass_nucleii, part_mass, TTp
| 1
Warning: Unused variable ‘xx0’ declared at (1) [-Wunused-variable]
particles_dust.f90:2480:22:
2480 | real :: xx0, yy0, r2, r, mass_nucleii, part_mass, TTp
| 1
Warning: Unused variable ‘yy0’ declared at (1) [-Wunused-variable]
particles_dust.f90:525:25:
525 | integer :: ik, icnt
| 1
Warning: Unused variable ‘icnt’ declared at (1) [-Wunused-variable]
particles_dust.f90:525:19:
525 | integer :: ik, icnt
| 1
Warning: Unused variable ‘ik’ declared at (1) [-Wunused-variable]
particles_dust.f90:522:22:
522 | integer :: jspec
| 1
Warning: Unused variable ‘jspec’ declared at (1) [-Wunused-variable]
particles_dust.f90:526:17:
526 | real :: xxp, yyp, zzp
| 1
Warning: Unused variable ‘xxp’ declared at (1) [-Wunused-variable]
particles_dust.f90:526:22:
526 | real :: xxp, yyp, zzp
| 1
Warning: Unused variable ‘yyp’ declared at (1) [-Wunused-variable]
particles_dust.f90:526:27:
526 | real :: xxp, yyp, zzp
| 1
Warning: Unused variable ‘zzp’ declared at (1) [-Wunused-variable]
particles_dust.f90:7252:39:
7252 | subroutine particles_final_clean_up
| ^
Warning: ‘particles_final_clean_up’ defined but not used [-Wunused-function]
particles_dust.f90:2345:101:
2345 | OO_tmp(npar_loc_old+1:npar_loc) = sqrt(gravr)*rr_tmp(npar_loc_old+1:npar_loc)**(-1.5)
| ^
Warning: ‘gravr’ may be used uninitialized [-Wmaybe-uninitialized]
particles_dust.f90:2161:28:
2161 | real, pointer :: gravr
| ^
note: ‘gravr’ was declared here
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o particles_main.o -c particles_main.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o pointmasses.o -c pointmasses.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o selfgravity.o -c selfgravity.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o snapshot.o -c snapshot.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o slices.o -c slices.f90
slices.f90:234:36:
234 | lwrite_slice_yz=(ipx==nprocx/2)
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:238:36:
238 | lwrite_slice_xz=(ipy==nprocy/2)
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:242:36:
242 | lwrite_slice_xy=(ipz==nprocz/2)
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:278:37:
278 | lwrite_slice_xy2=(ipz==nprocz/4); if (lwrite_slice_xy2) iz2_loc=n2
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:294:37:
294 | lwrite_slice_xz2=(ipy==nprocy/2)
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:315:36:
315 | lwrite_slice_yz=(ipx==nprocx/2); if (lwrite_slice_yz) ix_loc=(l1+l2)/2
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:317:37:
317 | lwrite_slice_xy2=(ipz==nprocz/4)
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:326:36:
326 | lwrite_slice_xz=(ipy==nprocy/2)
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:461:21:
461 | if (ipz<=nprocz/3) then
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:470:21:
470 | elseif (ipz>=2*nprocz/3) then
| 1
Warning: Integer division truncated to constant ‘0’ at (1) [-Winteger-division]
slices.f90:112:34:
112 | if (ip<=12.and.lroot) time1=mpiwtime()
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
slices.f90:58:27:
58 | if (lvideo) tslice = t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
slices.f90:452:34:
452 | subroutine prep_xy_slice(izloc)
| 1
Warning: Unused dummy argument ‘izloc’ at (1) [-Wunused-dummy-argument]
slices.f90:452:28:
452 | subroutine prep_xy_slice(izloc)
| ^
Warning: ‘prep_xy_slice’ defined but not used [-Wunused-function]
selfgravity.f90:402:42:
402 | f(l1:l2,m1:m2,n1:n2,ipotself) = 0.5 * rhs_poisson_const * &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
selfgravity.f90:320:47:
320 | real, dimension (nx,ny,nz) :: rhs_poisson
| 1
Warning: Array ‘rhs_poisson’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
selfgravity.f90:118:21:
118 | integer :: ierr=0
| 1
Warning: Unused variable ‘ierr’ declared at (1) [-Wunused-variable]
snapshot.f90:786:14:
786 | tspec=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
snapshot.f90:1246:38:
1246 | real, dimension (nx*ny*nz) :: xx, yy, zz
| 1
Warning: Array ‘xx’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
snapshot.f90:1246:42:
1246 | real, dimension (nx*ny*nz) :: xx, yy, zz
| 1
Warning: Array ‘yy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
snapshot.f90:1246:46:
1246 | real, dimension (nx*ny*nz) :: xx, yy, zz
| 1
Warning: Array ‘zz’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
snapshot.f90:412:41:
412 | subroutine read_predef_snaptimes(file,snaptimes)
| 1
Warning: Unused dummy argument ‘file’ at (1) [-Wunused-dummy-argument]
snapshot.f90:293:56:
293 | real, dimension(:), allocatable, save :: snaptimes
| 1
Warning: Unused variable ‘snaptimes’ declared at (1) [-Wunused-variable]
snapshot.f90:34:33:
34 | subroutine wsnap_down(a,flist)
| 1
Warning: Unused dummy argument ‘flist’ at (1) [-Wunused-dummy-argument]
snapshot.f90:412:36:
412 | subroutine read_predef_snaptimes(file,snaptimes)
| ^
Warning: ‘read_predef_snaptimes’ defined but not used [-Wunused-function]
pointmasses.f90:1662:23:
1662 | pmass(ks)= max(dble(tini),final_ramped_mass(ks)*(sin((.5*pi)*(t/ramping_period))**2))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
pointmasses.f90:233:18:
233 | GNewton=G_Newton
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
pointmasses.f90:1995:31:
1995 | integer :: ipx0,ipy0,ipz0
| 1
Warning: Unused variable ‘ipz0’ declared at (1) [-Wunused-variable]
pointmasses.f90:1996:31:
1996 | integer :: ipx1,ipy1,ipz1
| 1
Warning: Unused variable ‘ipz1’ declared at (1) [-Wunused-variable]
pointmasses.f90:1998:28:
1998 | integer :: ix1,iy1,iz1
| 1
Warning: Unused variable ‘iz1’ declared at (1) [-Wunused-variable]
pointmasses.f90:1992:28:
1992 | real :: rdx1,rdy1,rdz1
| 1
Warning: Unused variable ‘rdz1’ declared at (1) [-Wunused-variable]
pointmasses.f90:1993:28:
1993 | real :: rdx2,rdy2,rdz2
| 1
Warning: Unused variable ‘rdz2’ declared at (1) [-Wunused-variable]
pointmasses.f90:1849:50:
1849 | real, dimension (nx,ny,nz,3) :: acceleration
| 1
Warning: Array ‘acceleration’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
pointmasses.f90:1850:39:
1850 | real, dimension (nx,ny,nz) :: rho
| 1
Warning: Array ‘rho’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
pointmasses.f90:1287:50:
1287 | real, dimension (nx,ny,nz,3) :: acceleration
| 1
Warning: Array ‘acceleration’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
pointmasses.f90:781:40:
781 | real, dimension (nx) :: pot_energy,torque
| 1
Warning: Unused variable ‘pot_energy’ declared at (1) [-Wunused-variable]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o equ.o -c equ.f90
equ.f90:287:22:
287 | dt1_max=1./(dt_incr*t)
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
equ.f90:356:21:
356 | start_time = mpiwtime()
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
equ.f90:362:19:
362 | end_time = mpiwtime()
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
equ.f90:369:21:
369 | start_time = mpiwtime()
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
equ.f90:371:19:
371 | end_time = mpiwtime()
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
equ.f90:461:22:
461 | tdiagnos = t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
equ.f90:1725:54:
1725 | real, dimension (mx,my,mz,mfarray) :: df,df_copy
| 1
Warning: Array ‘df_copy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
equ.f90:1724:52:
1724 | real, dimension (mx,my,mz,mfarray) :: f,f_copy
| 1
Warning: Array ‘f_copy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
equ.f90:1726:36:
1726 | type (pencil_case) :: p,p_copy
| 1
Warning: Array ‘p_copy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
equ.f90:1644:54:
1644 | real, dimension (mx,my,mz,mfarray) :: df,df_copy
| 1
Warning: Array ‘df_copy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
equ.f90:1643:52:
1643 | real, dimension (mx,my,mz,mfarray) :: f,f_copy
| 1
Warning: Array ‘f_copy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
equ.f90:1646:36:
1646 | type (pencil_case) :: p,p_copy
| 1
Warning: Array ‘p_copy’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
equ.f90:1544:23:
1544 | real :: dt1_preac
| 1
Warning: Unused variable ‘dt1_preac’ declared at (1) [-Wunused-variable]
equ.f90:563:37:
563 | subroutine diagnostics_reductions
| ^
Warning: ‘diagnostics_reductions’ defined but not used [-Wunused-function]
equ.f90:1637:22:
1637 | subroutine test_dt(f,df,p,rhs_1,rhs_2)
| ^
Warning: ‘test_dt’ defined but not used [-Wunused-function]
equ.f90:1718:23:
1718 | subroutine test_rhs(f,df,p,mass_per_proc,early_finalize,rhs_1,rhs_2)
| ^
Warning: ‘test_rhs’ defined but not used [-Wunused-function]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o timestep.o -c timestep.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o pencil_check.o -c pencil_check.f90
timestep.f90:319:31:
319 | subroutine pushpars2c(p_par)
| 1
Warning: Unused dummy argument ‘p_par’ at (1) [-Wunused-dummy-argument]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -o param_io.o -c param_io.f90
param_io.f90:81:26:
81 | integer :: niter_poisson ! dummy
| 1
Warning: Unused PRIVATE module variable ‘niter_poisson’ declared at (1) [-Wunused-value]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o register.o -c register.f90
register.f90:288:12:
288 | mu0=mu0_cgs*unit_density*(unit_velocity/unit_magnetic)**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
register.f90:309:12:
309 | mu0=1e-7*mu0_cgs*unit_density*(unit_velocity/unit_magnetic)**2
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o start.o -c start.f90
mpif90 -O -fno-underscoring -O0 -Wall -finit-real=sNaN -finit-integer=-2147483648 -g -fbacktrace -fimplicit-none -fcheck=all -ffpe-trap=invalid,zero,overflow -std=f2003 -o run.o -c run.f90
run.f90:1188:55:
1188 | wall_clock_time/icount/(nw+npar/ncpus)/ncpus/1.0e-6
| 1
Warning: Possible change of value in conversion from INTEGER(8) to REAL(4) at (1) [-Wconversion]
run.f90:926:13:
926 | tsound=t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
run.f90:376:17:
376 | tsound = t
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
run.f90:519:22:
519 | wall_clock_time=mpiwtime()-time1
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
run.f90:526:22:
526 | time_per_step = (time_this_diagnostic - time_last_diagnostic) &
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
run.f90:243:36:
243 | if (ip<=12.and.lroot) tvar1=mpiwtime()
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
run.f90:1181:20:
1181 | wall_clock_time=time2-time1
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
run.f90:606:6:
606 | use Farray_alloc
| 1
Warning: Array ‘f’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
run.f90:652:27:
652 | integer :: helper_core_id
| 1
Warning: Unused variable ‘helper_core_id’ declared at (1) [-Wunused-variable]
run.f90:650:14:
650 | integer :: i,j
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
run.f90:650:16:
650 | integer :: i,j
| 1
Warning: Unused variable ‘j’ declared at (1) [-Wunused-variable]
run.f90:651:27:
651 | integer :: master_core_id
| 1
Warning: Unused variable ‘master_core_id’ declared at (1) [-Wunused-variable]
run.f90:639:25:
639 | type (pencil_case) :: p
| 1
Warning: Array ‘p’ at (1) is larger than limit set by ‘-fmax-stack-var-size=’, moved from stack to static storage. This makes the procedure unsafe when called recursively, or concurrently from multiple threads. Consider increasing the ‘-fmax-stack-var-size=’ limit (or use ‘-frecursive’, which implies unlimited ‘-fmax-stack-var-size’) - or change the code to use an ALLOCATABLE array. If the variable is never accessed concurrently, this warning can be ignored, and the variable could also be declared with the SAVE attribute. [-Wsurprising]
run.f90:603:6:
603 | use Diagnostics, only: phiavg_norm, report_undefined_diagnostics, trim_averages,diagnostics_clean_up
| 1
Warning: Unused module variable ‘phiavg_norm’ which has been explicitly imported at (1) [-Wunused-variable]
run.f90:653:58:
653 | integer, dimension(max_threads_possible) :: tmp_core_ids
| 1
Warning: Unused variable ‘tmp_core_ids’ declared at (1) [-Wunused-variable]
run.f90:195:31:
195 | integer :: isave_shift=0, i
| 1
Warning: Unused variable ‘i’ declared at (1) [-Wunused-variable]
mpif90 cparam.o cdata.o nompicomm.o border_profiles.o boundcond.o nodebug.o debug_io_dist.o deriv.o diagnostics.o nofarray_alloc.o farray.o filter.o nofixed_point.o fourier_fftpack.o general.o geometrical_types.o ghost_check.o ghostfold_nompicomm.o grid.o nogsl.o noimplicit_diffusion.o initcond.o noinitial_condition.o nohdf5_io.o io_dist.o file_io_f95.o nolsode_for_chemistry.o messages.o noNSCBC.o param_io.o persist.o power_spectrum.o nopython.o register.o shared_variables.o nosignal_handling.o slices.o slices_methods.o snapshot.o nosolid_cells_mpicomm.o nosolid_cells.o nostreamlines.o struct_func.o sub.o syscalls.o syscalls_ansi.o notestperturb.o timeavg.o noweno_transport.o noyinyang.o noyinyang_mpi.o magnetic.a particles_main.a morton_helper.o nochemistry.o chiral.o cosmicray.o cosmicrayflux.o density.o density_methods.o nodetonate.o dustdensity.o dustvelocity.o entropy.o eos_ionization.o forcing.o gravity_simple.o noheatflux.o hydro.o nohyperresi_strict.o nohypervisc_strict.o noimplicit_physics.o interstellar.o nolorenz_gauge.o noneutraldensity.o noneutralvelocity.o noopacity.o pointmasses.o poisson.o nopolymer.o pscalar.o radiation_ray.o selfgravity.o noSGS_hydro.o shear.o shock.o nospecial.o noascalar.o test_methods/testfield_general.o inactive/testfield.o notestflow.o notestscalar.o viscosity.o nogpu.o timestep.o notraining.o equ.o pencil_check.o run.o -ldl fftpack.o -o run.x
mpif90 cparam.o cdata.o nompicomm.o border_profiles.o boundcond.o nodebug.o debug_io_dist.o deriv.o diagnostics.o nofarray_alloc.o farray.o filter.o nofixed_point.o fourier_fftpack.o general.o geometrical_types.o ghost_check.o ghostfold_nompicomm.o grid.o nogsl.o noimplicit_diffusion.o initcond.o noinitial_condition.o nohdf5_io.o io_dist.o file_io_f95.o nolsode_for_chemistry.o messages.o noNSCBC.o param_io.o persist.o power_spectrum.o nopython.o register.o shared_variables.o nosignal_handling.o slices.o slices_methods.o snapshot.o nosolid_cells_mpicomm.o nosolid_cells.o nostreamlines.o struct_func.o sub.o syscalls.o syscalls_ansi.o notestperturb.o timeavg.o noweno_transport.o noyinyang.o noyinyang_mpi.o magnetic.a particles_main.a morton_helper.o nochemistry.o chiral.o cosmicray.o cosmicrayflux.o density.o density_methods.o nodetonate.o dustdensity.o dustvelocity.o entropy.o eos_ionization.o forcing.o gravity_simple.o noheatflux.o hydro.o nohyperresi_strict.o nohypervisc_strict.o noimplicit_physics.o interstellar.o nolorenz_gauge.o noneutraldensity.o noneutralvelocity.o noopacity.o pointmasses.o poisson.o nopolymer.o pscalar.o radiation_ray.o selfgravity.o noSGS_hydro.o shear.o shock.o nospecial.o noascalar.o test_methods/testfield_general.o inactive/testfield.o notestflow.o notestscalar.o viscosity.o nogpu.o dummy_astaroth_ansi.o notraining.o start.o -ldl fftpack.o -o start.x
make[2]: Leaving directory '/home/pencil/basic/samples/most-modules/src'
${PENCIL_HOME}/utils/pc_identify_revision --write
make[1]: Leaving directory '/home/pencil/basic/samples/most-modules/src'