Ignore:
Timestamp:
Dec 14, 2017 5:12:51 PM (4 years ago)
Author:
kanani
Message:

Merge of branch palm4u into trunk

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/random_generator_parallel_mod.f90

    r2255 r2696  
    11!> @file random_generator_parallel_mod.f90
    22!------------------------------------------------------------------------------!
    3 ! This file is part of PALM.
     3! This file is part of the PALM model system.
    44!
    55! PALM is free software: you can redistribute it and/or modify it under the
     
    2525! -----------------
    2626! $Id$
     27! Formatting (MS)
     28!
     29! 2255 2017-06-07 11:58:09Z knoop
    2730! Implemented PALM specific error message handling
    2831!
     
    158161      id_random_array  = 0
    159162
    160 !--       Asigning an ID to every vertical gridpoint column
    161 !--       dependig on the ensemble run number.
    162           DO i=nxl, nxr
    163              DO j=nys, nyn
    164                 id_random_array(j,i) = j*(nx+1.0_wp) + i + 1.0_wp + 1E6 * &
    165                                        ( ensemble_member_nr - 1000 )
    166              ENDDO
    167           ENDDO
    168 !--       Initializing with random_seed_parallel for every vertical
    169 !--       gridpoint column.
    170           random_dummy=0
    171           DO i = nxl, nxr
    172              DO j = nys, nyn
    173                 CALL random_seed_parallel (random_sequence=id_random_array(j, i))
    174                 CALL random_number_parallel (random_dummy)
    175                 CALL random_seed_parallel (get=seq_random_array(:, j, i))
    176              ENDDO
    177           ENDDO
     163!--   Asigning an ID to every vertical gridpoint column
     164!--   dependig on the ensemble run number.
     165      DO i=nxl, nxr
     166         DO j=nys, nyn
     167            id_random_array(j,i) = j*(nx+1.0_wp) + i + 1.0_wp + 1E6 * &
     168                                   ( ensemble_member_nr - 1000 )
     169         ENDDO
     170      ENDDO
     171!--   Initializing with random_seed_parallel for every vertical
     172!--   gridpoint column.
     173      random_dummy=0
     174      DO i = nxl, nxr
     175         DO j = nys, nyn
     176            CALL random_seed_parallel (random_sequence=id_random_array(j, i))
     177            CALL random_number_parallel (random_dummy)
     178            CALL random_seed_parallel (get=seq_random_array(:, j, i))
     179         ENDDO
     180      ENDDO
    178181
    179182   END SUBROUTINE init_parallel_random_generator
Note: See TracChangeset for help on using the changeset viewer.