Changeset 880 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Apr 13, 2012 6:28:59 AM (12 years ago)

Author:

raasch

Message:

Bugfix: preprocessor statements for parallel execution added

File:

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

palm/trunk/SOURCE/surface_coupler.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix: preprocessor statements for parallel execution added
 !
 ! Former revisions:
@@ -390 +390 @@
 
   SUBROUTINE interpolate_to_atmos( tag )
+
+#if defined( __parallel )
 
     USE arrays_3d
@@ -454 +456 @@
     CALL MPI_BARRIER( comm2d, ierr )
 
+#endif
+
   END SUBROUTINE interpolate_to_atmos
 
 
   SUBROUTINE interpolate_to_ocean( tag )
+
+#if defined( __parallel )
 
     USE arrays_3d
@@ -518 +524 @@
     CALL MPI_BARRIER( comm2d, ierr )  
 
+#endif
+
   END SUBROUTINE interpolate_to_ocean