Ignore:
Timestamp:
Oct 2, 2018 12:21:11 PM (3 years ago)
Author:
kanani
Message:

Merge chemistry branch at r3297 to trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/palm.f90

    r3274 r3298  
    2525! -----------------
    2626! $Id$
     27! - Minor formatting (kanani)
     28! - Added Call of date_and_time_init (Russo)
     29! - Added Call of calc_date_and_time before call of init_3d where emissions
     30!   are initialized:
     31!   we have to know the time indices to initialize emission values (Russo)
     32! - Added Call of netcdf_data_input_chemistry_data (Russo)
     33!
     34! 3274 2018-09-24 15:42:55Z knoop
    2735! Modularization of all bulk cloud physics code components
    2836!
     
    241249    USE arrays_3d
    242250
     251    USE bulk_cloud_model_mod,                                                  &
     252        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
     253
     254    USE chem_modules,                                                          &
     255        ONLY:  do_emis
     256
    243257    USE chemistry_model_mod,                                                   &
    244         ONLY:  chem_init
    245 
    246     USE chem_photolysis_mod,                                                   &
    247         ONLY:  photolysis_init
     258        ONLY:  chem_check_data_output_pr, chem_init
     259
     260!    USE chem_photolysis_mod,                                                   &
     261!        ONLY:  photolysis_init
    248262
    249263    USE control_parameters,                                                    &
     
    259273        ONLY:  cpu_log, log_point, log_point_s, cpu_statistics
    260274
     275    USE date_and_time_mod,                                                     &
     276        ONLY:  calc_date_and_time, init_date_and_time
     277
    261278    USE indices,                                                               &
    262279        ONLY:  nbgp
     
    264281    USE kinds
    265282
    266     USE bulk_cloud_model_mod,                                                  &
    267         ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
    268 
    269283    USE multi_agent_system_mod,                                                &
    270284        ONLY:  agents_active, mas_last_actions
    271285
    272286    USE netcdf_data_input_mod,                                                 &
    273         ONLY:  netcdf_data_input_inquire_file, netcdf_data_input_init,         &
     287        ONLY:  chem_emis, chem_emis_att, netcdf_data_input_chemistry_data,     &
     288               netcdf_data_input_inquire_file, netcdf_data_input_init,         &
    274289               netcdf_data_input_surface_data, netcdf_data_input_topo
    275290
     
    410425!-- --> Needs to be moved!! What is the dependency about?
    411426! IF (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
    412     IF ( air_chemistry )  THEN
     427    IF ( air_chemistry  .AND.  do_emis )  THEN
     428
     429       IF ( do_emis ) THEN
     430          CALL netcdf_data_input_chemistry_data(chem_emis_att,chem_emis)
     431       ENDIF
     432
    413433       CALL chem_init
    414        CALL photolysis_init   ! probably also required for restart
     434!       CALL photolysis_init   ! probably also required for restart
     435
     436       CALL init_date_and_time     !initialize the time of chemistry emissions
     437
    415438    ENDIF
    416439! END IF
     
    421444!
    422445!-- Initialize all necessary variables
     446    CALL calc_date_and_time !this is required for chemistry emissions
     447
    423448    CALL init_3d_model
    424449
Note: See TracChangeset for help on using the changeset viewer.