Changeset 3932 for palm/trunk/SOURCE/pmc_general_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_general_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/pmc_general_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! ------------------
-! 
+! Increase character length so that also chemistry variable names fully fit
 ! 
 ! Former revisions:
@@ -132 +132 @@
        TYPE(C_PTR)               :: SendBuf      !< data pointer in send buffer
        TYPE(C_PTR)               :: RecvBuf      !< data pointer in receive buffer
-       CHARACTER(LEN=8)          :: Name         !< name of array
+       CHARACTER(LEN=da_namelen) :: Name         !< name of array
        TYPE(arraydef), POINTER   :: next
     END TYPE arraydef