Changeset 2967 for palm/trunk/SOURCE/pmc_interface_mod.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/pmc_interface_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: missing parallel cpp-directives added
+! 
+! 2951 2018-04-06 09:05:08Z kanani
 ! Add log_point_s for pmci_model_configuration
 ! 
@@ -745 +748 @@
     INTEGER(iwp) ::  ncpl   !<  number of nest domains
 
+#if defined( __parallel )
     CALL location_message( 'setup the nested model configuration', .FALSE. )
     CALL cpu_log( log_point_s(79), 'pmci_model_config', 'start' )
@@ -769 +773 @@
     CALL cpu_log( log_point_s(79), 'pmci_model_config', 'stop' )
     CALL location_message( 'finished', .TRUE. )
+#endif
 
  END SUBROUTINE pmci_modelconfiguration
@@ -3330 +3335 @@
 END SUBROUTINE pmci_set_array_pointer
 
+
 INTEGER FUNCTION get_number_of_childs ()
+
    IMPLICIT NONE
 
+#if defined( __parallel )
    get_number_of_childs = SIZE( pmc_parent_for_child ) - 1
+#else
+   get_number_of_childs = 0
+#endif
 
    RETURN
+
 END FUNCTION get_number_of_childs
 
+
 INTEGER FUNCTION get_childid (id_index)
+
    IMPLICIT NONE
 
    INTEGER,INTENT(IN)                 :: id_index
 
+#if defined( __parallel )
    get_childid = pmc_parent_for_child(id_index)
+#else
+   get_childid = 0
+#endif
 
    RETURN
+
 END FUNCTION get_childid
+
 
 SUBROUTINE  get_child_edges (m, lx_coord, lx_coord_b, rx_coord, rx_coord_b,    &