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/timestep.f90

    r110 r206  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Implementation of a MPI-1 Coupling: replaced myid with target_id
    77!
    88! Former revisions:
     
    219219             terminate_coupled = 2
    220220             CALL MPI_SENDRECV( &
    221                   terminate_coupled,        1, MPI_INTEGER, myid,  0, &
    222                   terminate_coupled_remote, 1, MPI_INTEGER, myid,  0, &
     221                  terminate_coupled,        1, MPI_INTEGER, target_id,  0, &
     222                  terminate_coupled_remote, 1, MPI_INTEGER, target_id,  0, &
    223223                  comm_inter, status, ierr )
    224224          ENDIF
Note: See TracChangeset for help on using the changeset viewer.