constants_m.f90 Source File

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