Changeset 1092 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Feb 2, 2013 11:24:22 AM (11 years ago)

Author:

raasch

Message:

unused variables remove from several routines

File:

• palm/trunk/SOURCE/init_pegrid.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! unused variables removed
 !
 ! Former revisions:
@@ -163 +163 @@
                 maximum_grid_level_l, mg_switch_to_pe0_level_l, mg_levels_x, &
                 mg_levels_y, mg_levels_z, nnx_y, nnx_z, nny_x, nny_z, nnz_x, &
-                nnz_y, numproc_sqr, nx_total, nxl_l, nxr_l, nyn_l, nys_l,    &
+                nnz_y, numproc_sqr, nxl_l, nxr_l, nyn_l, nys_l,    &
                 nzb_l, nzt_l, omp_get_num_threads
 
@@ -170 +170 @@
     INTEGER, DIMENSION(2) :: pdims_remote
 
+#if defined( __mpi2 )
     LOGICAL ::  found
+#endif
 
 !