Changeset 1609 for palm/trunk/SOURCE

Timestamp:

Jul 3, 2015 3:37:58 PM (9 years ago)

Author:

maronga

Message:

minor changes in mrun and bugfix in poismg_fast

File:

• palm/trunk/SOURCE/poismg_fast.f90 (modified) (7 diffs)

palm/trunk/SOURCE/poismg_fast.f90

@@ -23 +23 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix: allow compilation without __parallel.
 !
 ! Former revisions:
@@ -55 +55 @@
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point_s
+
     USE kinds
-    USE MPI
+
     USE pegrid
 
@@ -1685 +1686 @@
 !++          ATTENTION: Check reason for this error. Remove it or replace WRITE
 !++                     by PALM message
+#if defined ( __parallel )
              IF ( ind /= ind_even_odd )  THEN
                 WRITE (0,*) 'ERROR ==> illegal ind_even_odd ',ind,ind_even_odd,l
                 CALL MPI_ABORT(MPI_COMM_WORLD,i,j)
              ENDIF
+#endif
 !
 !--          Sort the data with odd k index
@@ -2354 +2357 @@
                   nyn_mg, nzb, nzt, nzt_mg
 
-       USE pegrid,                                                             &
-           ONLY:  ngp_xz, ngp_yz
-
        IMPLICIT NONE
 
@@ -2381 +2381 @@
                            nxl_mg(grid_level-1)-1:nxr_mg(grid_level-1)+1) ::  temp  !:
 
-
+#if defined ( __parallel )
        sendrecv_in_background_save = sendrecv_in_background
        sendrecv_in_background      = .FALSE.
@@ -2865 +2865 @@
 
        ELSE
+
 !
 !--       Standard horizontal ghost boundary exchange for small coarse grid
@@ -2877 +2878 @@
        synchronous_exchange   = synchronous_exchange_save
        send_receive = 'al'
+#else
+
+!
+!--    Standard horizontal ghost boundary exchange for small coarse grid
+!--    levels, where the transfer time is latency bound
+       CALL exchange_horiz( p_mg, 1 )
+#endif
+
+
 
     END SUBROUTINE special_exchange_horiz