Changeset 2967 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Apr 13, 2018 11:22:08 AM (6 years ago)

Author:

raasch

Message:

bugfix: missing parallel cpp-directives added

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! bugfix: missing parallel cpp-directives added
+! 
+! 2964 2018-04-12 16:04:03Z Giersch
 ! Error message PA0491 has been introduced which could be previously found in 
 ! check_open. The variable numprocs_previous_run is only known in case of 
@@ -5964 +5967 @@
         ENDIF
 
+#if defined( __parallel )
         CALL MPI_BARRIER( comm2d, ierr )
+#endif
 !         CALL radiation_write_debug_log( 'End of radiation_calc_svf (after mpi_barrier)' )
 
@@ -6223 +6228 @@
       INTEGER(iwp)                           ::  ip           !< number of processor where gridbox reside
       INTEGER(iwp)                           ::  ig           !< 1D index of gridbox in global 2D array
-      INTEGER(MPI_ADDRESS_KIND)              ::  wdisp        !< RMA window displacement
       INTEGER(iwp)                           ::  wcount       !< RMA window item count
       INTEGER(iwp)                           ::  maxboxes     !< max no of CSF created
@@ -6241 +6245 @@
       REAL(wp), PARAMETER                    ::  grow_factor = 1.5_wp !< factor of expansion of grow arrays
 
+#if defined( __parallel )
+      INTEGER(MPI_ADDRESS_KIND)              ::  wdisp        !< RMA window displacement
+#endif
       
       yxorigin(:) = origin(2:3)