Changeset 3637 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Dec 20, 2018 1:51:36 AM (5 years ago)

Author:

knoop

Message:

M Makefile

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Implementation of the PALM module interface
+! 
+! 3636 2018-12-19 13:48:34Z raasch
 ! nopointer option removed
 !
@@ -588 +591 @@
     INTEGER(iwp) :: lsp                 !< running index for chem spcs
 
+    IF ( (variable(1:3) == 'kc_' .OR. variable(1:3) == 'em_')  )  THEN
 
     IF ( mode == 'allocate' )  THEN
@@ -662 +666 @@
           ENDIF
        ENDDO
+
+    ENDIF
 
     ENDIF