Ignore:
Timestamp:
Jan 12, 2009 4:04:16 PM (13 years ago)
Author:
letzel
Message:
  • Bugfixes for nonparallel execution
File:
1 edited

Legend:

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

    r206 r222  
    55! -----------------
    66! Implementation of an MPI-1 coupling: replaced myid with target_id
     7! Bugfix for nonparallel execution
    78!
    89! Former revisions:
     
    8081
    8182       terminate_coupled = 3
     83#if defined( __parallel )
    8284       CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,          &
    8385                          target_id, 0,                                      &
     
    8587                          target_id, 0,                                      &
    8688                          comm_inter, status, ierr )
     89#endif
    8790    ENDIF
    8891
     
    125128                terminate_coupled = 5
    126129             ENDIF
     130#if defined( __parallel )
    127131             CALL MPI_SENDRECV( terminate_coupled,        1, MPI_INTEGER,    &
    128132                                target_id,  0,                               &
     
    130134                                target_id,  0,                               &
    131135                                comm_inter, status, ierr )
     136#endif
    132137          ENDIF
    133138       ELSE
Note: See TracChangeset for help on using the changeset viewer.