Ignore:
Timestamp:
May 9, 2014 2:03:54 PM (7 years ago)
Author:
knoop
Message:

Parallel random number generator added (preliminary version).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/read_3d_binary.f90

    r1359 r1400  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! reading of arrays for random_generator_parallel added
    2323!
    2424! Former revisions:
     
    9595    USE random_function_mod,                                                   &
    9696        ONLY:  random_iv, random_iy
     97
     98    USE random_generator_parallel,                                             &
     99        ONLY:  id_random_array, seq_random_array
    97100
    98101    USE statistics,                                                            &
     
    681684                   IF ( k == 1 )  READ ( 13 )  random_iv
    682685                   IF ( k == 1 )  READ ( 13 )  random_iy
     686                   
     687                CASE ( 'seq_random_array' )  ! still unresolved issue
     688                   IF ( k == 1 )  READ ( 13 )  id_random_array
     689                   IF ( k == 1 )  READ ( 13 )  seq_random_array
    683690
    684691                CASE ( 'rho_av' )
Note: See TracChangeset for help on using the changeset viewer.