Ignore:
Timestamp:
Nov 27, 2017 9:27:09 AM (4 years ago)
Author:
raasch
Message:

further bugfix for r2636 (wrong datatype used for allocation)

File:
1 edited

Legend:

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

    r2636 r2644  
    2121! -----------------
    2222!
    23 ! 
     23!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! further bugfix for r2636 (wrong datatype used for allocation)
     28!
     29! 2636 2017-11-22 15:22:20Z raasch
    2730! bugfix for reading required for parrallel random number generator
    2831!
     
    226229    INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  offset_ya  !<
    227230
     231    INTEGER(isp), DIMENSION(:,:),   ALLOCATABLE ::  tmp_2d_id_random   !< temporary array for storing random generator data
     232    INTEGER(isp), DIMENSION(:,:,:), ALLOCATABLE ::  tmp_2d_seq_random  !< temporary array for storing random generator data
     233
    228234    REAL(wp) ::  rdummy
    229235
    230236    REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d      !< temporary array for storing 2D data
    231     REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d_id_random    !< temporary array for storing random generator data
    232     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_2d_seq_random   !< temporary array for storing random generator data
    233237    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d      !< temporary array for storing 3D data
    234238    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !<
Note: See TracChangeset for help on using the changeset viewer.