Changeset 1697 for palm/trunk/SOURCE/land_surface_model.f90

Timestamp:

Oct 28, 2015 5:14:10 PM (8 years ago)

Author:

raasch

Message:

FORTRAN an OpenMP errors removed
misplaced cpp-directive fixed
small E- and F-FORMAT changes to avoid informative compiler messages about insufficient field width

File:

• palm/trunk/SOURCE/land_surface_model.f90 (modified) (2 diffs)

palm/trunk/SOURCE/land_surface_model.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: misplaced cpp-directive
 ! 
 ! Former revisions:
@@ -1374 +1374 @@
        ENDDO
 
-#if defined( __parallel )
 !
 !--    Make a logical OR for all processes. Force radiation call if at
 !--    least one processor
-       IF ( intermediate_timestep_count == intermediate_timestep_count_max-1 )&
+       IF ( intermediate_timestep_count == intermediate_timestep_count_max-1 ) &
        THEN
-
+#if defined( __parallel )
           IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
           CALL MPI_ALLREDUCE( force_radiation_call_l, force_radiation_call,    &