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

Timestamp:

Aug 26, 2013 9:31:42 AM (11 years ago)

Author:

raasch

Message:

overlapping execution of fft and transpositions (MPI_ALLTOALL), but real overlapping is not activated so far,
fftw implemented for 1D-decomposition
resorting of arrays moved to separate routines resort_for_...
bugfix in mbuild concerning Makefile_check

File:

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

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! +transpose_compute_overlap,
+! several variables are now defined in the serial (non-parallel) case also
 !
 ! Former revisions:
@@ -776 +777 @@
                 scalar_rayleigh_damping = .TRUE., sloping_surface = .FALSE., &
                 stop_dt = .FALSE., synchronous_exchange = .FALSE., &
-                terminate_run = .FALSE., turbulence = .FALSE., &
-                turbulent_inflow = .FALSE., use_cmax = .TRUE., &
-                use_initial_profile_as_reference = .FALSE., &
+                terminate_run = .FALSE., transpose_compute_overlap = .FALSE., &
+                turbulence = .FALSE., turbulent_inflow = .FALSE., &
+                use_cmax = .TRUE., use_initial_profile_as_reference = .FALSE., &
                 use_prescribed_profile_data = .FALSE., &
                 use_single_reference_value = .FALSE., &
@@ -1489 +1490 @@
     CHARACTER(LEN=2) ::  send_receive = 'al'
     CHARACTER(LEN=5) ::  myid_char = ''
-    INTEGER          ::  acc_rank, id_inflow = 0, id_recycling = 0,      &
-                         myid = 0, num_acc_per_node = 0, req_count = 0,  &
-                         target_id, npex = -1, npey = -1, numprocs = 1,  &
-                         numprocs_previous_run = -1,                     &
-                         tasks_per_node = -9999, threads_per_task = 1
+    INTEGER          ::  acc_rank, comm1dx, comm1dy, comm2d, comm_inter,       &
+                         comm_palm, id_inflow = 0, id_recycling = 0, ierr,     &
+                         myid = 0, myidx = 0, myidy = 0, ndim = 2, ngp_a,      &
+                         ngp_o, ngp_xy, ngp_y, npex = -1, npey = -1,           &
+                         numprocs = 1, numprocs_previous_run = -1,             &
+                         num_acc_per_node = 0, pleft, pnorth, pright, psouth,  &
+                         req_count = 0, sendrecvcount_xy, sendrecvcount_yz,    &
+                         sendrecvcount_zx, sendrecvcount_zyd,                  &
+                         sendrecvcount_yxd, target_id, tasks_per_node = -9999, &
+                         threads_per_task = 1, type_x, type_x_int, type_xy,    &
+                         type_y, type_y_int
 
     INTEGER          ::  pdims(2) = 1, req(100)
@@ -1507 +1514 @@
     CHARACTER (LEN=MPI_MAX_PORT_NAME) ::  port_name
 #endif
-
-    INTEGER ::  comm1dx, comm1dy, comm2d, comm_inter, comm_palm, ierr, myidx,  &
-                myidy, ndim = 2, ngp_a, ngp_o, ngp_xy, ngp_y, pleft, pnorth,   &
-                pright, psouth, sendrecvcount_xy, sendrecvcount_yz,            &
-                sendrecvcount_zx, sendrecvcount_zyd, sendrecvcount_yxd,        &
-                type_x, type_x_int, type_xy, type_y, type_y_int
 
     INTEGER ::  ibuf(12), pcoord(2)