Changeset 1425 for palm/trunk/SOURCE/disturb_field.f90
- Timestamp:
- Jul 5, 2014 10:57:53 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/disturb_field.f90
r1401 r1425 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! bugfix: Parallel random number generator loop: print-statement no needed 23 23 ! 24 24 ! Former revisions: … … 135 135 ENDIF 136 136 ENDDO 137 ! IF (myid == 0) PRINT*, nxl, i, nxr, i, nys, j, nyn, j138 137 CALL random_seed_parallel( get=seq_random_array(:, j, i) ) 139 138 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.