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

Timestamp:

Feb 1, 2008 12:41:46 PM (16 years ago)

Author:

raasch

Message:

further updates for turbulent inflow: reading input data of a precursor run using a smaller total domain is working

File:

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

palm/trunk/SOURCE/local_stop.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: a stop command was missing in some cases of the parallel branch
 ! 
 !
@@ -34 +34 @@
     IF ( coupling_mode == 'uncoupled' )  THEN
        CALL MPI_FINALIZE( ierr )
+       STOP
     ELSE
 
@@ -56 +57 @@
              ENDIF
              CALL MPI_FINALIZE( ierr )
+             STOP
 
           CASE ( 1 )
@@ -64 +66 @@
              ENDIF
              CALL MPI_FINALIZE( ierr )
+             STOP
 
           CASE ( 2 )