Changeset 4372 for palm/trunk/SOURCE/chemistry_model_mod.f90
- Timestamp:
- Jan 14, 2020 10:20:35 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r4370 r4372 22 22 ! Current revisions: 23 23 ! ----------------- 24 ! 25 ! 24 ! 25 ! 26 26 ! Former revisions: 27 27 ! ----------------- 28 28 ! $Id$ 29 ! chem_parin : added handler for new namelist item emiss_legacy_read_mode (ECC) 30 ! added messages 31 ! CM0465 - legacy read mode selection 32 ! CM0466 - legacy read mode force selection 33 ! CM0467 - new read mode selection 34 ! 35 ! 4370 2020-01-10 14:00:44Z raasch 29 36 ! vector directives added to force vectorization on Intel19 compiler 30 ! 37 ! 31 38 ! 4346 2019-12-18 11:55:56Z motisi 32 39 ! Introduction of wall_flags_total_0, which currently sets bits based on static … … 2300 2307 emiss_lod, & 2301 2308 emiss_factor_main, & 2302 emiss_factor_side, & 2309 emiss_factor_side, & 2310 emiss_read_legacy_mode, & 2303 2311 icntrl, & 2304 2312 main_street_id, & … … 2360 2368 20 CONTINUE 2361 2369 2370 2371 2362 2372 ! 2363 2373 !-- synchronize emiss_lod and mod_emis only if emissions_anthropogenic 2364 2374 !-- is activated in the namelist. Otherwise their values are "don't care" 2365 2375 IF ( emissions_anthropogenic ) THEN 2376 2366 2377 ! 2367 2378 !-- check for emission mode for chem species … … 2410 2421 2411 2422 message_string = 'Synchronizing mode_emis to defined emiss_lod' // & 2412 CHAR(10) // ' '// &2423 CHAR(10) // ' ' // & 2413 2424 'NOTE - mode_emis will be depreciated in future releases' // & 2414 CHAR(10) // ' '// &2425 CHAR(10) // ' ' // & 2415 2426 'please use emiss_lod to define emission mode' 2416 2427 … … 2429 2440 2430 2441 message_string = 'emiss_lod undefined. Using existing mod_emiss setting' // & 2431 CHAR(10) // ' '// &2442 CHAR(10) // ' ' // & 2432 2443 'NOTE - mode_emis will be depreciated in future releases' // & 2433 CHAR(10) // ' '// &2434 ' 2444 CHAR(10) // ' ' // & 2445 'please use emiss_lod to define emission mode' 2435 2446 2436 2447 CALL message ( 'parin_chem', 'CM0464', 0, 0, 0, 6, 0 ) 2437 2448 ENDIF 2438 2449 2450 ! 2451 !-- (ECC) input check for emission read mode. 2452 !-- legacy : business as usual (everything read / set up at start of run) 2453 !-- new : emission based on timestamp, and for lod2 data is loaded on an hourly basis 2454 2455 ! 2456 !-- (ECC) handler for emiss_read_legacy_mode 2457 !-- * emiss_read_legacy_mode is defaulted to TRUE 2458 !-- * if emiss_read_legacy_mode is TRUE and LOD is 0 or 1, 2459 !-- force emission_read_legacy_mode to TRUE (not yet implemented) 2460 2461 IF ( emiss_read_legacy_mode ) THEN !< notify legacy read mode 2462 2463 message_string = 'Legacy emission read mode activated' // & 2464 CHAR(10) // ' ' // & 2465 'All emissions data will be loaded ' // & 2466 'prior to start of simulation' 2467 CALL message ( 'parin_chem', 'CM0465', 0, 0, 0, 6, 0 ) 2468 2469 ELSE !< if new read mode selected 2470 2471 IF ( emiss_lod < 2 ) THEN !< check LOD compatibility 2472 2473 message_string = 'New emission read mode ' // & 2474 'currently unavailable for LODs 0 and 1.' // & 2475 CHAR(10) // ' ' // & 2476 'Reverting to legacy emission read mode' 2477 CALL message ( 'parin_chem', 'CM0466', 0, 0, 0, 6, 0 ) 2478 emiss_read_legacy_mode = .TRUE. 2479 2480 ELSE !< notify new read mode 2481 2482 message_string = 'New emission read mode activated' // & 2483 CHAR(10) // ' ' // & 2484 'LOD 2 emissions will be read on an ' // & 2485 'hourly basis according to' // & 2486 CHAR(10) // ' ' // & 2487 'indicated timestamps' 2488 CALL message ( 'parin_chem', 'CM0467', 0, 0, 0, 6, 0 ) 2489 2490 ENDIF 2491 2492 ENDIF ! if emiss_read_legacy_mode 2493 2494 2439 2495 ENDIF ! if emissions_anthropengic 2496 2440 2497 2441 2498 t_steps = my_steps
Note: See TracChangeset
for help on using the changeset viewer.