Changeset 2696 for palm/trunk/SOURCE/random_generator_parallel_mod.f90

Timestamp:

Dec 14, 2017 5:12:51 PM (7 years ago)

Author:

kanani

Message:

Merge of branch palm4u into trunk

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/random_generator_parallel_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/random_generator_parallel_mod.f90

@@ -1 +1 @@
 !> @file random_generator_parallel_mod.f90
 !------------------------------------------------------------------------------!
-! This file is part of PALM.
+! This file is part of the PALM model system.
 !
 ! PALM is free software: you can redistribute it and/or modify it under the
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Formatting (MS)
+! 
+! 2255 2017-06-07 11:58:09Z knoop
 ! Implemented PALM specific error message handling
 ! 
@@ -158 +161 @@
       id_random_array  = 0
 
-!--       Asigning an ID to every vertical gridpoint column 
-!--       dependig on the ensemble run number.
-          DO i=nxl, nxr
-             DO j=nys, nyn
-                id_random_array(j,i) = j*(nx+1.0_wp) + i + 1.0_wp + 1E6 * &
-                                       ( ensemble_member_nr - 1000 )
-             ENDDO
-          ENDDO
-!--       Initializing with random_seed_parallel for every vertical 
-!--       gridpoint column.
-          random_dummy=0
-          DO i = nxl, nxr
-             DO j = nys, nyn
-                CALL random_seed_parallel (random_sequence=id_random_array(j, i))
-                CALL random_number_parallel (random_dummy)
-                CALL random_seed_parallel (get=seq_random_array(:, j, i))
-             ENDDO
-          ENDDO
+!--   Asigning an ID to every vertical gridpoint column 
+!--   dependig on the ensemble run number.
+      DO i=nxl, nxr
+         DO j=nys, nyn
+            id_random_array(j,i) = j*(nx+1.0_wp) + i + 1.0_wp + 1E6 * &
+                                   ( ensemble_member_nr - 1000 )
+         ENDDO
+      ENDDO
+!--   Initializing with random_seed_parallel for every vertical 
+!--   gridpoint column.
+      random_dummy=0
+      DO i = nxl, nxr
+         DO j = nys, nyn
+            CALL random_seed_parallel (random_sequence=id_random_array(j, i))
+            CALL random_number_parallel (random_dummy)
+            CALL random_seed_parallel (get=seq_random_array(:, j, i))
+         ENDDO
+      ENDDO
 
    END SUBROUTINE init_parallel_random_generator