Changeset 145 for palm/trunk/SOURCE/modules.f90

Timestamp:

Jan 9, 2008 8:17:38 AM (16 years ago)

Author:

raasch

Message:

second preliminary update for turbulent inflow

File:

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

palm/trunk/SOURCE/modules.f90

@@ -5 +5 @@
 ! Actual revisions:
 ! -----------------
-! 
+! +hor_index_bounds, hor_index_bounds_previous_run, numprocs_previous_run
 !
 ! Former revisions:
@@ -959 +959 @@
     CHARACTER(LEN=5)       ::  myid_char = '', myid_char_14 = ''
     INTEGER                ::  myid=0, npex = -1, npey = -1, numprocs = 1, &
+                               numprocs_previous_run = -1,                 &
                                tasks_per_node = -9999, threads_per_task = 1
+
+    INTEGER, DIMENSION(:,:), ALLOCATABLE ::  hor_index_bounds, &
+                                             hor_index_bounds_previous_run
 
 #if defined( __parallel )