Ignore:
Timestamp:
Apr 13, 2018 11:22:08 AM (3 years ago)
Author:
raasch
Message:

bugfix: missing parallel cpp-directives added

File:
1 edited

Legend:

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

    r2883 r2967  
    2525! -----------------
    2626! $Id$
     27! bugfix: missing parallel cpp-directives added
     28!
     29! 2883 2018-03-14 08:29:10Z Giersch
    2730! Format of the output of dt_dopr_listing (325) has been changed
    2831!
     
    422425        ONLY:  pcm_header
    423426
     427#if defined( __parallel )
    424428    USE pmc_handle_communicator,                                               &
    425429        ONLY:  pmc_get_model_info
     430#endif
    426431
    427432    USE pmc_interface,                                                         &
     
    608613    IF ( nested_run )  THEN
    609614
     615#if defined( __parallel )
    610616       WRITE ( io, 600 )  TRIM( nesting_mode ),                                &
    611617                          TRIM( nesting_datatransfer_mode )
     
    627633                             TRIM( cpl_name )
    628634       ENDDO
     635#endif
     636
    629637    ENDIF
    630638    WRITE ( io, 99 )
Note: See TracChangeset for help on using the changeset viewer.