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

    r206 r222  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Bugfix for nonparallel execution
    77!
    88! Former revisions:
     
    4141!-- In this case, distribute PEs to 2 new communicators.
    4242!-- ATTENTION: numprocs will be reset according to the new communicators
     43#if defined ( __parallel )
    4344    IF ( myid == 0 )  THEN
    4445       READ (*,*,ERR=10,END=10)  coupling_mode, bc_data(1), bc_data(2)
     
    108109    ENDIF
    109110#endif
     111#endif
    110112
    111113    IF ( coupling_mode == 'ocean_to_atmosphere' )  coupling_char = '_O'
Note: See TracChangeset for help on using the changeset viewer.