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

Timestamp:

Feb 1, 2008 12:41:46 PM (16 years ago)

Author:

raasch

Message:

further updates for turbulent inflow: reading input data of a precursor run using a smaller total domain is working

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
+! +hor_index_bounds, hor_index_bounds_previous_run, numprocs_previous_run,
+! nx_on_file, ny_on_file
 ! -myid_char_14
 !
@@ -595 +596 @@
 !------------------------------------------------------------------------------!
 
-    INTEGER ::  ngp_sums, nnx, nx = 0, nxa, nxl, nxlu, nxr, nxra, nny, ny = 0, &
-                nya, nyn, nyna, nys, nysv, nnz, nz = 0, nza, nzb, nzb_diff,    &
-                nzt, nzta, nzt_diff
+    INTEGER ::  ngp_sums, nnx, nx = 0, nxa, nxl, nxlu, nxr, nxra, nx_on_file,  &
+                nny, ny = 0, nya, nyn, nyna, nys, nysv, ny_on_file, nnz,       &
+                nz = 0, nza, nzb, nzb_diff, nzt, nzta, nzt_diff
 
     INTEGER, DIMENSION(:), ALLOCATABLE ::                                      &