Ignore:
Timestamp:
Oct 13, 2008 2:59:11 PM (13 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/local_stop.f90

    r198 r206  
    44! Actual revisions:
    55! -----------------
    6 !
    7 !
     6! Implementation of a MPI-1 coupling: replaced myid with target_id
    87!
    98! Former revisions:
     
    3433    USE control_parameters
    3534
     35
    3636#if defined( __parallel )
    3737    IF ( coupling_mode == 'uncoupled' )  THEN
     
    5555                terminate_coupled = 1
    5656                CALL MPI_SENDRECV( &
    57                      terminate_coupled,        1, MPI_INTEGER, myid,  0, &
    58                      terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
     57                     terminate_coupled,        1, MPI_INTEGER, target_id,  0, &
     58                     terminate_coupled_remote, 1, MPI_INTEGER, target_id,  0, &
    5959                     comm_inter, status, ierr )
    6060             ENDIF
Note: See TracChangeset for help on using the changeset viewer.