Changeset 3643
- Timestamp:
- Dec 24, 2018 1:16:19 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r3638 r3643 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Bugfix: set found logical correct in chem_data_output_2d 30 ! 31 ! 3638 2018-12-20 13:18:23Z forkel 29 32 ! Added missing conversion factor fr2ppm for qvap 30 33 ! … … 1234 1237 INTEGER(iwp) :: m !< running index surface elements 1235 1238 INTEGER(iwp) :: char_len !< length of a character string 1236 found = . TRUE.1239 found = .FALSE. 1237 1240 char_len = LEN_TRIM(variable) 1238 1241 … … 1275 1278 ENDIF 1276 1279 grid = 'zu' 1280 found = .TRUE. 1277 1281 ENDIF 1278 1282 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.