Changeset 4444 for palm/trunk/SOURCE/local_stop.f90

Timestamp:

Mar 5, 2020 3:59:50 PM (4 years ago)

Author:

raasch

Message:

bugfix: cpp-directives for serial mode added

File:

• palm/trunk/SOURCE/local_stop.f90 (modified) (3 diffs)

palm/trunk/SOURCE/local_stop.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: misplaced cpp-directive moved
+! 
+! 4360 2020-01-07 11:25:50Z suehring
 ! Corrected "Former revisions" section
 ! 
@@ -40 +43 @@
  SUBROUTINE local_stop
  
+#if defined( __parallel )
 
     USE control_parameters,                                                    &
@@ -52 +56 @@
 
 
-#if defined( __parallel )
     IF ( coupling_mode == 'uncoupled' )  THEN
        IF ( nested_run )  THEN