Changeset 3643 for palm

Timestamp:

Dec 24, 2018 1:16:19 PM (6 years ago)

Author:

knoop

Message:

Bugfix: set found logical correct in chem_data_output_2d

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Bugfix: set found logical correct in chem_data_output_2d
+! 
+! 3638 2018-12-20 13:18:23Z forkel
 ! Added missing conversion factor fr2ppm for qvap
 ! 
@@ -1234 +1237 @@
     INTEGER(iwp) ::  m               !< running index surface elements
     INTEGER(iwp) ::  char_len        !< length of a character string
-    found = .TRUE.
+    found = .FALSE.
     char_len  = LEN_TRIM(variable)
 
@@ -1275 +1278 @@
              ENDIF
               grid = 'zu'           
+              found = .TRUE.
           ENDIF
        ENDDO