Changeset 206 for palm/trunk/SOURCE/local_stop.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/local_stop.f90 (modified) (3 diffs)

palm/trunk/SOURCE/local_stop.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
-! 
+! Implementation of a MPI-1 coupling: replaced myid with target_id
 !
 ! Former revisions:
@@ -34 +33 @@
     USE control_parameters
 
+
 #if defined( __parallel )
     IF ( coupling_mode == 'uncoupled' )  THEN
@@ -55 +55 @@
                 terminate_coupled = 1
                 CALL MPI_SENDRECV( &
-                     terminate_coupled,        1, MPI_INTEGER, myid,  0, &
-                     terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
+                     terminate_coupled,        1, MPI_INTEGER, target_id,  0, &
+                     terminate_coupled_remote, 1, MPI_INTEGER, target_id,  0, &
                      comm_inter, status, ierr )
              ENDIF