Changeset 1429 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Jul 15, 2014 12:53:45 PM (10 years ago)

Author:

knoop

Message:

Ensemble run capability added to parallel random number generator.

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Ensemble run capability added to parallel random number generator
 ! 
 ! Former revisions:
@@ -194 +194 @@
     USE indices
 
-    USE lpm_init_mod,                                                              &
+    USE lpm_init_mod,                                                          &
         ONLY:  lpm_init
     
@@ -948 +948 @@
 !--    Initialize the random number generators (from numerical recipes)
        CALL random_function_ini
+       
        IF ( random_generator == 'random-parallel' )  THEN
-          CALL random_function_ini
-          !- asigning an ID to every vertical gridpoint column
+!--       Asigning an ID to every vertical gridpoint column 
+!--       dependig on the ensemble run number.
+          random_dummy=1
           DO j=0,ny
              DO i=0,nx
-                id_random_array(j,i) = 1000000*i + j
+                id_random_array(j,i) = random_dummy + 1E6 * ( ensemble_member_nr - 1000 )
+                random_dummy = random_dummy + 1
              END DO
           ENDDO
-          !- executing the initial ran_parallel
+!--       Initializing with random_seed_parallel for every vertical 
+!--       gridpoint column.
+          random_dummy=0
           DO j = nysg, nyng
              DO i = nxlg, nxrg