diff --git a/src/inital.F90 b/src/inital.F90
index 011e3bef94aae8112edf6de08a2a6dff8279b365..c7c0247be7b6a00bd7237e609483221e1d6e76dd 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