Changeset 3685 for palm/trunk/SOURCE/palm.f90

Timestamp:

Jan 21, 2019 1:02:11 AM (5 years ago)

Author:

knoop

Message:

Some interface calls moved to module_interface + cleanup

File:

• palm/trunk/SOURCE/palm.f90 (modified) (5 diffs)

palm/trunk/SOURCE/palm.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3648 2019-01-02 16:35:46Z suehring
 ! Rename subroutines for surface-data output
 ! 
@@ -265 +268 @@
 !> flows
 !> see the PALM homepage https://palm-model.org for further information
-!>
-!> @todo move chem_init call to init_3d_model or to check_parameters
 !------------------------------------------------------------------------------!
  PROGRAM palm
@@ -275 +276 @@
     USE bulk_cloud_model_mod,                                                  &
         ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert
-
-    USE chem_modules,                                                          &
-        ONLY:  do_emis
-
-    USE chemistry_model_mod,                                                   &
-        ONLY:  chem_check_data_output_pr, chem_init
-
-!    USE chem_photolysis_mod,                                                   &
-!        ONLY:  photolysis_init
 
     USE control_parameters,                                                    &
@@ -308 +300 @@
 
     USE netcdf_data_input_mod,                                                 &
-        ONLY:  chem_emis, chem_emis_att, netcdf_data_input_chemistry_data,     &
-               netcdf_data_input_inquire_file, netcdf_data_input_init,         &
+        ONLY:  netcdf_data_input_inquire_file, netcdf_data_input_init,         &
                netcdf_data_input_surface_data, netcdf_data_input_topo
 
@@ -439 +430 @@
     CALL netcdf_data_input_surface_data
 !
-!-- Initialize chemistry (called before check_parameters due to dependencies)
-!-- --> Needs to be moved!! What is the dependency about?
-! IF (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
-    IF ( air_chemistry )  THEN
-
-       IF ( do_emis ) THEN
-          CALL netcdf_data_input_chemistry_data(chem_emis_att,chem_emis)
-       ENDIF
-
-       CALL chem_init
-
-!       CALL photolysis_init   ! probably also required for restart
-
-    ENDIF
-! END IF
-!
 !-- Check control parameters and deduce further quantities
     CALL check_parameters
-
-!
-!-- Initialize all necessary variables
 !
 !-- Initial time for chem_emissions_mod