Skip to content
Snippets Groups Projects
Commit 5ebc1b03 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

Replaced only Na00 start option with phi start option

parent 39cf2ca1
No related branches found
No related tags found
No related merge requests found
...@@ -8,7 +8,7 @@ MODULE initial_par ...@@ -8,7 +8,7 @@ MODULE initial_par
! Initial background level ! Initial background level
REAL(dp), PUBLIC, PROTECTED :: initback_moments=0._dp REAL(dp), PUBLIC, PROTECTED :: initback_moments=0._dp
! Initial background level ! Initial background level
LOGICAL, PUBLIC, PROTECTED :: only_Na00 = .false. LOGICAL, PUBLIC, PROTECTED :: INIT_NOISY_PHI = .false.
! Initial background noise amplitude ! Initial background noise amplitude
REAL(dp), PUBLIC, PROTECTED :: initnoise_moments=1E-6_dp REAL(dp), PUBLIC, PROTECTED :: initnoise_moments=1E-6_dp
! Initialization for random number generator ! Initialization for random number generator
...@@ -36,7 +36,7 @@ CONTAINS ...@@ -36,7 +36,7 @@ CONTAINS
USE prec_const USE prec_const
IMPLICIT NONE IMPLICIT NONE
NAMELIST /INITIAL_CON/ only_Na00 NAMELIST /INITIAL_CON/ INIT_NOISY_PHI
NAMELIST /INITIAL_CON/ initback_moments NAMELIST /INITIAL_CON/ initback_moments
NAMELIST /INITIAL_CON/ initnoise_moments NAMELIST /INITIAL_CON/ initnoise_moments
NAMELIST /INITIAL_CON/ iseed NAMELIST /INITIAL_CON/ iseed
...@@ -59,7 +59,7 @@ CONTAINS ...@@ -59,7 +59,7 @@ CONTAINS
INTEGER, INTENT(in) :: fidres INTEGER, INTENT(in) :: fidres
CHARACTER(len=256), INTENT(in) :: str CHARACTER(len=256), INTENT(in) :: str
CALL attach(fidres, TRIM(str), "only_Na00", only_Na00) CALL attach(fidres, TRIM(str), "INIT_NOISY_PHI", INIT_NOISY_PHI)
CALL attach(fidres, TRIM(str), "initback_moments", initback_moments) CALL attach(fidres, TRIM(str), "initback_moments", initback_moments)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment