Changeset 206 for palm/trunk/SOURCE/init_dvrp.f90

Timestamp:

Oct 13, 2008 2:59:11 PM (16 years ago)

Author:

raasch

Message:

ocean-atmosphere coupling realized with MPI-1, adjustments in mrun, mbuild, subjob for lcxt4

File:

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

palm/trunk/SOURCE/init_dvrp.f90

@@ -7 +7 @@
 ! TEST: print* statements
 ! ToDo: checking of mode_dvrp for legal values is not correct
-!
+! Implementation of a MPI-1 coupling: __mpi2 adjustments for MPI_COMM_WORLD
 ! Former revisions:
 ! -----------------
@@ -49 +49 @@
     USE pegrid
     USE control_parameters
+
+!
+!-- New coupling
+    USE coupling
 
     IMPLICIT NONE
@@ -600 +604 @@
     WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_SPLIT'
     CALL local_flush( 9 )
+
+!
+!-- Adjustment for new MPI-1 coupling. This might be unnecessary.
+#if defined( __mpi2 )
        CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
+#else
+    IF ( coupling_mode /= 'uncoupled' ) THEN
+       CALL DVRP_SPLIT( comm_inter, comm_palm )
+    ELSE
+       CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
+    ENDIF
+#endif
+
     WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_SPLIT'
     CALL local_flush( 9 )