TABLE OF CONTENTS
- 1. /yukawa
- 1.1. yukawa/yukawaFlag
- 1.2. yukawa/smu
- 1.3. yukawa/debug
- 1.4. yukawa/tuneYukawaMass
- 1.5. yukawa/getYukawaFlag
- 1.6. yukawa/getYukawaAlpha
- 1.7. yukawa/init
- 1.8. yukawa/Yukawa
- 1.9. yukawa/yuint
- 1.10. yukawa/updateYukawa
- 1.11. yukawa/yukpot
/yukawa [ Modules ]
NAME
module yukawa
PURPOSE
This module contains the implementation of the Yukawa potential. Only minor changes were made with respect to the old BUU code.
yukawa/yukawaFlag [ Global module-variables ]
[ Top ] [ yukawa ] [ Global module-variables ]
PURPOSE
Switches Yukawa potential on/off
SOURCE
logical, save :: yukawaFlag = .false.
NOTES
can be set in jobcard, namelist yukawa
yukawa/smu [ Global module-variables ]
[ Top ] [ yukawa ] [ Global module-variables ]
PURPOSE
Yukawa mass in fm**(-1). (range of potential)
SOURCE
real, save, public :: smu = 2.175
NOTES
can be set in jobcard, namelist yukawa
yukawa/debug [ Global module-variables ]
[ Top ] [ yukawa ] [ Global module-variables ]
PURPOSE
Switches debugging output on/off
SOURCE
logical, parameter :: debug = .false.
yukawa/tuneYukawaMass [ Subroutines ]
[ Top ] [ yukawa ] [ Subroutines ]
NAME
subroutine tuneYukawaMass(amplitude)
PURPOSE
Tunes the yukawa mass "smu" such that the radii oszillations get minimalized. Output to "YukawaTuning.dat".
INPUTS
real, intent(in) :: amplitude ! Minimal radius of the nucleus in one run
yukawa/getYukawaFlag [ Functions ]
[ Top ] [ yukawa ] [ Functions ]
NAME
logical function getYukawaFlag()
PURPOSE
returns yukawaFlag
yukawa/getYukawaAlpha [ Functions ]
[ Top ] [ yukawa ] [ Functions ]
NAME
real function getYukawaAlpha()
PURPOSE
returns the normalization for the mean field potential due to a Yukawa term in the Hamiltonian
NOTES
alpha_Skyrme -> alpha_Skyrme-alpha_Yukawa
yukawa/init [ Functions ]
[ Top ] [ yukawa ] [ Functions ]
NAME
subroutine init
PURPOSE
initializes input
yukawa/Yukawa [ Namelists ]
[ Top ] [ yukawa ] [ Namelists ]
NAME
NAMELIST /yukawa/
PURPOSE
Includes the input switches:
yukawa/yuint [ Functions ]
[ Top ] [ yukawa ] [ Functions ]
NAME
subroutine yuint
PURPOSE
Calculate the initial value of yukawa variables.
yukawa/updateYukawa [ Functions ]
[ Top ] [ yukawa ] [ Functions ]
NAME
subroutine updateYukawa(start, numberIterationsIn)
PURPOSE
Update Yukawa potential, calculating the yukawa potential from (m) to (m+1) of the iteration. Evaluates the Yukawa potential according to the testparticle density (therefore we need the calculation of the dynamic density in updateDensity).
INPUTS
- logical :: start --- .true. if the fields should be reinitialized
- integer, optional :: numberIterationsIn --- number of iterations
NOTES
we declare this subroutine recursive, since it call yuinit, which again calls this subroutine
yukawa/yukpot [ Functions ]
[ Top ] [ yukawa ] [ Functions ]
NAME
real function yukpot(rhap)
PURPOSE
Interface between yukawa routine and potential routine. Initializes Yukawa at first call. Returns the yukawa potential dependent on position.
INPUTS
- real, dimension(1:3),intent(in) :: rhap --- position