Changeset 2967 for palm/trunk/SOURCE/lpm_init.f90

Timestamp:

Apr 13, 2018 11:22:08 AM (6 years ago)

Author:

raasch

Message:

bugfix: missing parallel cpp-directives added

File:

• palm/trunk/SOURCE/lpm_init.f90 (modified) (3 diffs)

palm/trunk/SOURCE/lpm_init.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! nesting routine is only called if nesting is switched on
+! 
+! 2954 2018-04-09 14:35:46Z schwenkel
 ! Bugfix for particle initialization in case of ocean
 ! 
@@ -288 +291 @@
         ONLY:  init_kernels
 
+    USE pmc_interface,                                                         &
+        ONLY: nested_run
+
     IMPLICIT NONE
 
@@ -640 +646 @@
     ENDIF
 
-    CALL pmcp_g_init
+    IF ( nested_run )  CALL pmcp_g_init
 
 !