Changeset 3761 for palm/trunk/SOURCE/pmc_child_mod.f90

Timestamp:

Feb 25, 2019 3:31:42 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:

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

palm/trunk/SOURCE/pmc_child_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! statemnet added to avoid compiler warning
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! explicit kind settings
 ! 
@@ -291 +294 @@
 !
 !-- Local variables
+    INTEGER ::  idum  !<
     INTEGER ::  mype  !<
     TYPE(dA_namedef) ::  myname  !<
@@ -303 +307 @@
 
     CALL pmc_bcast( myname%couple_index, mype, comm=m_to_parent_comm )
+
+!
+!-- Next statement is just to avoid compiler warnings about unused variables
+    IF ( PRESENT( lastentry ) )  idum = 1
 
  END SUBROUTINE pmc_set_dataarray_name_lastentry