Changeset 222 for palm/trunk/SOURCE/init_coupling.f90

Timestamp:

Jan 12, 2009 4:04:16 PM (15 years ago)

Author:

letzel

Message:

• Bugfixes for nonparallel execution

File:

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

palm/trunk/SOURCE/init_coupling.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix for nonparallel execution
 !
 ! Former revisions:
@@ -41 +41 @@
 !-- In this case, distribute PEs to 2 new communicators.
 !-- ATTENTION: numprocs will be reset according to the new communicators
+#if defined ( __parallel )
     IF ( myid == 0 )  THEN
        READ (*,*,ERR=10,END=10)  coupling_mode, bc_data(1), bc_data(2)
@@ -108 +109 @@
     ENDIF
 #endif
+#endif
 
     IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'