constants_m.f90 Source File


This file depends on

sourcefile~~constants_m.f90~~EfferentGraph sourcefile~constants_m.f90 constants_m.f90 sourcefile~precision_m.f90 precision_m.f90 sourcefile~constants_m.f90->sourcefile~precision_m.f90

Files dependent on this one

sourcefile~~constants_m.f90~~AfferentGraph sourcefile~constants_m.f90 constants_m.f90 sourcefile~carthy_equilibrium_m.f90 carthy_equilibrium_m.f90 sourcefile~carthy_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~cerfons_equilibrium_m.f90 cerfons_equilibrium_m.f90 sourcefile~cerfons_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~circular_equilibrium_m.f90 circular_equilibrium_m.f90 sourcefile~circular_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~circular_toroidal_equilibrium_m.f90 circular_toroidal_equilibrium_m.f90 sourcefile~circular_toroidal_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~kisslinger_m.f90 kisslinger_m.f90 sourcefile~circular_toroidal_equilibrium_m.f90->sourcefile~kisslinger_m.f90 sourcefile~coords_polar_m.f90 coords_polar_m.f90 sourcefile~coords_polar_m.f90->sourcefile~constants_m.f90 sourcefile~diagnose_poincare.f90 diagnose_poincare.f90 sourcefile~diagnose_poincare.f90->sourcefile~constants_m.f90 sourcefile~diagnose_poincare.f90->sourcefile~coords_polar_m.f90 sourcefile~equilibrium_factory_m.f90 equilibrium_factory_m.f90 sourcefile~diagnose_poincare.f90->sourcefile~equilibrium_factory_m.f90 sourcefile~dommaschk_equilibrium_m.f90 dommaschk_equilibrium_m.f90 sourcefile~dommaschk_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~dommaschk_equilibrium_m.f90->sourcefile~kisslinger_m.f90 sourcefile~gauss_quadrature_m.f90 gauss_quadrature_m.f90 sourcefile~gauss_quadrature_m.f90->sourcefile~constants_m.f90 sourcefile~helpers_m.f90 helpers_m.f90 sourcefile~helpers_m.f90->sourcefile~constants_m.f90 sourcefile~immersed_trace_m.f90 immersed_trace_m.f90 sourcefile~immersed_trace_m.f90->sourcefile~constants_m.f90 sourcefile~kisslinger_m.f90->sourcefile~constants_m.f90 sourcefile~map_factory_m.f90 map_factory_m.f90 sourcefile~map_factory_m.f90->sourcefile~constants_m.f90 sourcefile~map_factory_m.f90->sourcefile~gauss_quadrature_m.f90 sourcefile~mesh_cart_build_s.f90 mesh_cart_build_s.f90 sourcefile~mesh_cart_build_s.f90->sourcefile~constants_m.f90 sourcefile~numerical_equilibrium_m.f90 numerical_equilibrium_m.f90 sourcefile~numerical_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~parbnd_taylor_m.f90 parbnd_taylor_m.f90 sourcefile~parbnd_taylor_m.f90->sourcefile~constants_m.f90 sourcefile~polar_grid_m.f90 polar_grid_m.f90 sourcefile~polar_grid_m.f90->sourcefile~constants_m.f90 sourcefile~polar_grid_m.f90->sourcefile~circular_equilibrium_m.f90 sourcefile~polar_grid_m.f90->sourcefile~coords_polar_m.f90 sourcefile~safety_factor_m.f90 safety_factor_m.f90 sourcefile~safety_factor_m.f90->sourcefile~constants_m.f90 sourcefile~safety_factor_m.f90->sourcefile~coords_polar_m.f90 sourcefile~salpha_equilibrium_m.f90 salpha_equilibrium_m.f90 sourcefile~salpha_equilibrium_m.f90->sourcefile~constants_m.f90 sourcefile~test_diffusion.f90 test_diffusion.f90 sourcefile~test_diffusion.f90->sourcefile~constants_m.f90 sourcefile~test_diffusion.f90->sourcefile~map_factory_m.f90 sourcefile~test_diffusion.f90->sourcefile~equilibrium_factory_m.f90 sourcefile~testfunctions_m.f90 testfunctions_m.f90 sourcefile~testfunctions_m.f90->sourcefile~constants_m.f90 sourcefile~testfunctions_m.f90->sourcefile~circular_equilibrium_m.f90 sourcefile~testfunctions_m.f90->sourcefile~numerical_equilibrium_m.f90 sourcefile~benchmark_helmholtz_solvers.f90 benchmark_helmholtz_solvers.f90 sourcefile~benchmark_helmholtz_solvers.f90->sourcefile~testfunctions_m.f90 sourcefile~benchmark_helmholtz_solvers.f90->sourcefile~equilibrium_factory_m.f90 sourcefile~dommaschk_equilibrium_netcdf_s.f90 dommaschk_equilibrium_netcdf_s.f90 sourcefile~dommaschk_equilibrium_netcdf_s.f90->sourcefile~dommaschk_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~carthy_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~cerfons_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~circular_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~circular_toroidal_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~dommaschk_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~numerical_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~salpha_equilibrium_m.f90 sourcefile~flare_equilibrium_m.f90 flare_equilibrium_m.f90 sourcefile~equilibrium_factory_m.f90->sourcefile~flare_equilibrium_m.f90 sourcefile~flare_equilibrium_m.f90->sourcefile~kisslinger_m.f90 sourcefile~immersed_factory_m.f90 immersed_factory_m.f90 sourcefile~immersed_factory_m.f90->sourcefile~immersed_trace_m.f90 sourcefile~initialise_numerical_equilibrium.f90 initialise_numerical_equilibrium.f90 sourcefile~initialise_numerical_equilibrium.f90->sourcefile~numerical_equilibrium_m.f90 sourcefile~map_factory_s.f90 map_factory_s.f90 sourcefile~map_factory_s.f90->sourcefile~dommaschk_equilibrium_m.f90 sourcefile~map_factory_s.f90->sourcefile~gauss_quadrature_m.f90 sourcefile~map_factory_s.f90->sourcefile~map_factory_m.f90 sourcefile~parbnd_taylor_netcdf_s.f90 parbnd_taylor_netcdf_s.f90 sourcefile~parbnd_taylor_netcdf_s.f90->sourcefile~parbnd_taylor_m.f90 sourcefile~polar_grid_s.f90 polar_grid_s.f90 sourcefile~polar_grid_s.f90->sourcefile~polar_grid_m.f90 sourcefile~polar_map_factory_m.f90 polar_map_factory_m.f90 sourcefile~polar_map_factory_m.f90->sourcefile~coords_polar_m.f90 sourcefile~polar_map_factory_m.f90->sourcefile~polar_grid_m.f90 sourcefile~zonal_averages_factory_m.f90 zonal_averages_factory_m.f90 sourcefile~zonal_averages_factory_m.f90->sourcefile~coords_polar_m.f90 sourcefile~zonal_averages_factory_m.f90->sourcefile~polar_grid_m.f90

Source Code

module constants_m
    !! Definition of constant parameters
    use precision_m, only : FP
    implicit none
    save

    real(FP), public, parameter :: pi = 4.0_FP*atan(1.0_FP)
    real(FP), public, parameter :: two_pi = 2.0_FP*pi

    real(FP), public, parameter :: phiplaceholder = 0.0_FP

end module constants_m