Changeset 2644 for palm/trunk/SOURCE/read_3d_binary.f90

Timestamp:

Nov 27, 2017 9:27:09 AM (7 years ago)

Author:

raasch

Message:

further bugfix for r2636 (wrong datatype used for allocation)

File:

• palm/trunk/SOURCE/read_3d_binary.f90 (modified) (2 diffs)

palm/trunk/SOURCE/read_3d_binary.f90

@@ -21 +21 @@
 ! -----------------
 ! 
-! 
+!
 ! Former revisions:
 ! -----------------
 ! $Id$
+! further bugfix for r2636 (wrong datatype used for allocation)
+!
+! 2636 2017-11-22 15:22:20Z raasch
 ! bugfix for reading required for parrallel random number generator
 ! 
@@ -226 +229 @@
     INTEGER(iwp), DIMENSION(numprocs_previous_run,1000) ::  offset_ya  !<
 
+    INTEGER(isp), DIMENSION(:,:),   ALLOCATABLE ::  tmp_2d_id_random   !< temporary array for storing random generator data
+    INTEGER(isp), DIMENSION(:,:,:), ALLOCATABLE ::  tmp_2d_seq_random  !< temporary array for storing random generator data
+
     REAL(wp) ::  rdummy
 
     REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d      !< temporary array for storing 2D data
-    REAL(wp), DIMENSION(:,:), ALLOCATABLE     ::  tmp_2d_id_random    !< temporary array for storing random generator data
-    REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_2d_seq_random   !< temporary array for storing random generator data
     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3d      !< temporary array for storing 3D data
     REAL(wp), DIMENSION(:,:,:), ALLOCATABLE   ::  tmp_3dwul   !<