Changeset 3643 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 24, 2018 1:16:19 PM (3 years ago)
Author:
knoop
Message:

Bugfix: set found logical correct in chem_data_output_2d

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r3638 r3643  
    2727! -----------------
    2828! $Id$
     29! Bugfix: set found logical correct in chem_data_output_2d
     30!
     31! 3638 2018-12-20 13:18:23Z forkel
    2932! Added missing conversion factor fr2ppm for qvap
    3033!
     
    12341237    INTEGER(iwp) ::  m               !< running index surface elements
    12351238    INTEGER(iwp) ::  char_len        !< length of a character string
    1236     found = .TRUE.
     1239    found = .FALSE.
    12371240    char_len  = LEN_TRIM(variable)
    12381241
     
    12751278             ENDIF
    12761279              grid = 'zu'           
     1280              found = .TRUE.
    12771281          ENDIF
    12781282       ENDDO
Note: See TracChangeset for help on using the changeset viewer.