From 6b60bf9d6697d58771bb60907bb2fab45652af28 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 22 Jun 2020 14:48:35 +0200
Subject: [PATCH] Poke initialization (Ni00(t0) != 0 only) to imitate MOLI
---
src/inital.F90 | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/src/inital.F90 b/src/inital.F90
index 49e8f9a8..77755599 100644
--- a/src/inital.F90
+++ b/src/inital.F90
@@ -40,21 +40,21 @@ SUBROUTINE init_profiles
DO ip=ips_e,ipe_e
DO ij=ijs_e,ije_e
CALL RANDOM_NUMBER(noise)
- moments_e( ip,ij, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp) ! Re
- CALL RANDOM_NUMBER(noise)
- moments_e( ip,ij, ikr,ikz, :) = imagu * (initback_moments + initnoise_moments*(noise-0.5_dp)) ! Im
+ !moments_e( ip,ij, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
END DO
END DO
DO ip=ips_i,ipe_i
DO ij=ijs_i,ije_i
CALL RANDOM_NUMBER(noise)
- moments_i( ip,ij, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp) ! Re
- CALL RANDOM_NUMBER(noise)
- moments_i( ip,ij, ikr,ikz, :) = imagu * (initback_moments + initnoise_moments*(noise-0.5_dp)) ! Im
+ !moments_i( ip,ij, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
+ END DO
END DO
- END DO
-
+
+ ! Poke initialization on only Ne00 and Ni00
+ moments_e( 1,1, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
+ moments_i( 1,1, ikr,ikz, :) = initback_moments + initnoise_moments*(noise-0.5_dp)
+
END DO
END DO
--
GitLab