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

Timestamp:

Apr 24, 2019 5:31:34 PM (5 years ago)

Author:

suehring

Message:

Add missing if statements for call of pmc_set_dataarray_name for TKE and dissipation; minor bugfix for nesting of chemical species

File:

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

palm/trunk/SOURCE/pmc_child_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! typo removed
 ! 
 ! Former revisions:
 ! -----------------
 ! $Id$
-! statemnet added to avoid compiler warning
+! statement added to avoid compiler warning
 ! 
 ! 3655 2019-01-07 16:51:22Z knoop
@@ -247 +247 @@
     IF ( m_model_rank == 0 )  THEN
        myindex = myindex + 1
-       myname%couple_index = myIndex
+       myname%couple_index = myindex
        myname%parentdesc   = TRIM( parentarraydesc )
        myname%nameonparent = TRIM( parentarrayname )