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

Legend:

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

    r206 r222  
    55! -----------------
    66! Implementation of a MPI-1 Coupling: replaced myid with target_id
     7! Bugfix for nonparallel execution
    78!
    89! Former revisions:
     
    216217!--       and its reason, provided the remote model has not already been
    217218!--       informed of another termination reason (terminate_coupled > 0) before.
     219#if defined( __parallel )
    218220          IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0 )  THEN
    219221             terminate_coupled = 2
     
    223225                  comm_inter, status, ierr )
    224226          ENDIF
    225 
     227#endif
    226228       ENDIF
    227229
Note: See TracChangeset for help on using the changeset viewer.