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

    r2954 r2967  
    2525! -----------------
    2626! $Id$
     27! nesting routine is only called if nesting is switched on
     28!
     29! 2954 2018-04-09 14:35:46Z schwenkel
    2730! Bugfix for particle initialization in case of ocean
    2831!
     
    288291        ONLY:  init_kernels
    289292
     293    USE pmc_interface,                                                         &
     294        ONLY: nested_run
     295
    290296    IMPLICIT NONE
    291297
     
    640646    ENDIF
    641647
    642     CALL pmcp_g_init
     648    IF ( nested_run )  CALL pmcp_g_init
    643649
    644650!
Note: See TracChangeset for help on using the changeset viewer.