Changeset 4372 for palm/trunk


Ignore:
Timestamp:
Jan 14, 2020 10:20:35 AM (5 years ago)
Author:
banzhafs
Message:

added namelist flag emiss_read_legacy_mode to allow concurrent

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r4273 r4372  
    2222! Current revisions:
    2323! -----------------
    24 ! 
     24!
    2525!
    2626! Former revisions:
    2727! -----------------
    2828! $Id$
     29! added namelist flag 'emiss_read_legacy_mode' to allow concurrent
     30! functioning of new emission read mode under development (ECC)
     31!
     32! 4273 2019-10-24 13:40:54Z monakurppa
    2933! Add logical switches nesting_chem and nesting_offline_chem (both .TRUE.
    3034! by default)
    31 ! 
     35!
    3236! 4182 2019-08-22 15:20:23Z scharf
    3337! Corrected "Former revisions" section
     
    138142    LOGICAL ::  emissions_anthropogenic   = .FALSE.  !< namelist parameter: flag for turning on anthropogenic emissions
    139143    LOGICAL ::  emission_output_required  = .TRUE.   !< internal flag for requiring emission outputs
     144    LOGICAL ::  emiss_read_legacy_mode    = .TRUE.   !< namelist parameter: flag to read emission data using legacy mode
    140145    LOGICAL ::  nesting_chem              = .TRUE.   !< apply self-nesting for the chemistry model
    141146    LOGICAL ::  nesting_offline_chem      = .TRUE.   !< apply offline nesting for the chemistry model
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r4370 r4372  
    2222! Current revisions:
    2323! -----------------
    24 ! 
    25 ! 
     24!
     25!
    2626! Former revisions:
    2727! -----------------
    2828! $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
    2936! vector directives added to force vectorization on Intel19 compiler
    30 ! 
     37!
    3138! 4346 2019-12-18 11:55:56Z motisi
    3239! Introduction of wall_flags_total_0, which currently sets bits based on static
     
    23002307         emiss_lod,                        &
    23012308         emiss_factor_main,                &
    2302          emiss_factor_side,                &                     
     2309         emiss_factor_side,                &
     2310         emiss_read_legacy_mode,           &
    23032311         icntrl,                           &
    23042312         main_street_id,                   &
     
    23602368 20 CONTINUE
    23612369
     2370
     2371
    23622372!
    23632373!-- synchronize emiss_lod and mod_emis only if emissions_anthropogenic
    23642374!-- is activated in the namelist.  Otherwise their values are "don't care"
    23652375    IF ( emissions_anthropogenic )  THEN
     2376
    23662377!
    23672378!--    check for emission mode for chem species
     
    24102421       
    24112422          message_string = 'Synchronizing mode_emis to defined emiss_lod'               //  &
    2412                            CHAR(10)  //  '          '                                   //  &
     2423                           CHAR(10)  //  '                    '                         //  &
    24132424                           'NOTE - mode_emis will be depreciated in future releases'    //  &
    2414                            CHAR(10)  //  '          '                                   //  &
     2425                           CHAR(10)  //  '                    '                         //  &
    24152426                           'please use emiss_lod to define emission mode'
    24162427 
     
    24292440
    24302441          message_string = 'emiss_lod undefined.  Using existing mod_emiss setting'     //  &
    2431                            CHAR(10)  //  '          '                                   //  &
     2442                           CHAR(10)  //  '                    '                         //  &
    24322443                           'NOTE - mode_emis will be depreciated in future releases'    //  &
    2433                            CHAR(10)  //  '          '                                   //  &
    2434                            '       please use emiss_lod to define emission mode'
     2444                           CHAR(10)  //  '                    '                         //  &
     2445                           'please use emiss_lod to define emission mode'
    24352446
    24362447          CALL message ( 'parin_chem', 'CM0464', 0, 0, 0, 6, 0 )
    24372448       ENDIF
    24382449
     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                           
    24392495    ENDIF  ! if emissions_anthropengic
     2496
    24402497
    24412498    t_steps = my_steps         
Note: See TracChangeset for help on using the changeset viewer.