From 0ed83e460b5479befc49ef7192080ddd08d4b874 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 22 Dec 2022 18:26:51 +0100
Subject: [PATCH] put rng in inner loop
---
src/inital.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/inital.F90 b/src/inital.F90
index 011e3bef..c7c0247b 100644
--- a/src/inital.F90
+++ b/src/inital.F90
@@ -290,8 +290,8 @@ SUBROUTINE init_phi
DO ikx=ikxs,ikxe
DO iky=ikys,ikye
+ CALL RANDOM_NUMBER(noise)
DO iz=izs,ize
- CALL RANDOM_NUMBER(noise)
phi(iky,ikx,iz) = (init_background + init_noiselvl*(noise-0.5_dp))!*AA_x(ikx)*AA_y(iky)
ENDDO
END DO
--
GitLab