Ignore:
Timestamp:
Jun 8, 2017 7:55:13 AM (4 years ago)
Author:
suehring
Message:

Bugfix, add pre-preprocessor directives to enable non-parrallel mode

File:
1 edited

Legend:

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

    r2233 r2258  
    2525! -----------------
    2626! $Id$
     27! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
     28!
     29! 2233 2017-05-30 18:08:54Z suehring
    2730!
    2831! 2232 2017-05-30 17:47:52Z suehring
     
    353356    USE plant_canopy_model_mod,                                                &
    354357        ONLY:  pcm_header, plant_canopy
    355 
     358       
     359#if defined( __parallel )
    356360    USE pmc_handle_communicator,                                               &
    357361        ONLY:  pmc_get_model_info
     362#endif
    358363
    359364    USE pmc_interface,                                                         &
     
    547552       WRITE ( io, 600 )  TRIM( nesting_mode ),                                &
    548553                          TRIM( nesting_datatransfer_mode )
     554#if defined( __parallel )
    549555       CALL pmc_get_model_info( ncpl = ncpl, cpl_id = my_cpl_id )
    550556
     
    564570                             TRIM( cpl_name )
    565571       ENDDO
     572#endif
    566573    ENDIF
    567574    WRITE ( io, 99 )
Note: See TracChangeset for help on using the changeset viewer.