Ignore:
Timestamp:
Jul 5, 2014 10:57:53 AM (7 years ago)
Author:
knoop
Message:

Bugfix for parallel random number generator.

File:
1 edited

Legend:

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

    r1401 r1425  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! bugfix: Parallel random number generator loop: print-statement no needed
    2323!
    2424! Former revisions:
     
    135135                ENDIF
    136136             ENDDO
    137 !              IF (myid == 0) PRINT*, nxl, i, nxr, i, nys, j, nyn, j
    138137             CALL random_seed_parallel( get=seq_random_array(:, j, i) )
    139138          ENDDO
Note: See TracChangeset for help on using the changeset viewer.