Changeset 2258 for palm/trunk/SOURCE/pmc_interface_mod.f90

Timestamp:

Jun 8, 2017 7:55:13 AM (7 years ago)

Author:

suehring

Message:

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

File:

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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix, add pre-preprocessor directives to enable non-parrallel mode
+! 
+! 2241 2017-06-01 13:46:13Z hellstea
 ! A minor indexing error in pmci_init_loglaw_correction is corrected.
 ! 
@@ -3954 +3957 @@
 
  SUBROUTINE pmci_set_swaplevel( swaplevel )
+
 !
 !-- After each Runge-Kutta sub-timestep, alternately set buffer one or buffer
@@ -3966 +3970 @@
     INTEGER(iwp)            ::  m           !:
 
+#if defined( __parallel )
     DO  m = 1, SIZE( pmc_parent_for_child )-1
        child_id = pmc_parent_for_child(m)
        CALL pmc_s_set_active_data_array( child_id, swaplevel )
     ENDDO
-
+#endif
  END SUBROUTINE pmci_set_swaplevel