Changeset 3483 for palm/trunk/SOURCE/surface_output_mod.f90

Timestamp:

Nov 2, 2018 2:19:26 PM (6 years ago)

Author:

raasch

Message:

bugfix: misplaced positions of cpp-directives for netCDF and MPI fixed; output format limited to a maximum line length of 80

File:

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

palm/trunk/SOURCE/surface_output_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missed directives for MPI added
+! 
+! 3421 2018-10-24 18:39:32Z gronemeier
 ! Add output variables
 ! Write data into binary file
-! Initial implenentation from Klaus Ketelsen and Matthias Suehring
+! Initial implementation from Klaus Ketelsen and Matthias Suehring
 !
 ! 3420 2018-10-24 17:30:08Z gronemeier
@@ -796 +799 @@
                WRITE ( 25+av )  surfaces%polygons
             ENDIF
+#if defined( __parallel )
             CALL MPI_BARRIER( comm2d, ierr )
+#endif
             first_output(av) = .TRUE.
          ENDDO
@@ -808 +813 @@
             WRITE ( 25+av )  simulated_time
          ENDIF
+#if defined( __parallel )
          CALL MPI_BARRIER( comm2d, ierr )
+#endif
       ENDDO
 
@@ -1941 +1948 @@
                WRITE ( 25+av )  surfaces%var_out
             ENDIF
+#if defined( __parallel )
             CALL MPI_BARRIER( comm2d, ierr )
+#endif
          ENDDO