Ignore:
Timestamp:
Jan 21, 2019 1:02:11 AM (2 years ago)
Author:
knoop
Message:

Some interface calls moved to module_interface + cleanup

File:
1 edited

Legend:

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

    r3648 r3685  
    2525! -----------------
    2626! $Id$
     27! Some interface calls moved to module_interface + cleanup
     28!
     29! 3648 2019-01-02 16:35:46Z suehring
    2730! Rename subroutines for surface-data output
    2831!
     
    265268!> flows
    266269!> see the PALM homepage https://palm-model.org for further information
    267 !>
    268 !> @todo move chem_init call to init_3d_model or to check_parameters
    269270!------------------------------------------------------------------------------!
    270271 PROGRAM palm
     
    275276    USE bulk_cloud_model_mod,                                                  &
    276277        ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
    277 
    278     USE chem_modules,                                                          &
    279         ONLY:  do_emis
    280 
    281     USE chemistry_model_mod,                                                   &
    282         ONLY:  chem_check_data_output_pr, chem_init
    283 
    284 !    USE chem_photolysis_mod,                                                   &
    285 !        ONLY:  photolysis_init
    286278
    287279    USE control_parameters,                                                    &
     
    308300
    309301    USE netcdf_data_input_mod,                                                 &
    310         ONLY:  chem_emis, chem_emis_att, netcdf_data_input_chemistry_data,     &
    311                netcdf_data_input_inquire_file, netcdf_data_input_init,         &
     302        ONLY:  netcdf_data_input_inquire_file, netcdf_data_input_init,         &
    312303               netcdf_data_input_surface_data, netcdf_data_input_topo
    313304
     
    439430    CALL netcdf_data_input_surface_data
    440431!
    441 !-- Initialize chemistry (called before check_parameters due to dependencies)
    442 !-- --> Needs to be moved!! What is the dependency about?
    443 ! IF (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
    444     IF ( air_chemistry )  THEN
    445 
    446        IF ( do_emis ) THEN
    447           CALL netcdf_data_input_chemistry_data(chem_emis_att,chem_emis)
    448        ENDIF
    449 
    450        CALL chem_init
    451 
    452 !       CALL photolysis_init   ! probably also required for restart
    453 
    454     ENDIF
    455 ! END IF
    456 !
    457432!-- Check control parameters and deduce further quantities
    458433    CALL check_parameters
    459 
    460 !
    461 !-- Initialize all necessary variables
    462434!
    463435!-- Initial time for chem_emissions_mod
Note: See TracChangeset for help on using the changeset viewer.