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

Timestamp:

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

Author:

knoop

Message:

Some interface calls moved to module_interface + cleanup

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Some interface calls moved to module_interface + cleanup
+! 
+! 3664 2019-01-09 14:00:37Z forkel
 ! Replaced misplaced location message by @todo
 ! 
@@ -454 +457 @@
     END INTERFACE chem_header
 
+    INTERFACE chem_init_arrays
+       MODULE PROCEDURE chem_init_arrays
+    END INTERFACE chem_init_arrays
+
     INTERFACE chem_init
        MODULE PROCEDURE chem_init
@@ -564 +571 @@
          chem_check_data_output_pr, chem_check_parameters,                    &
          chem_data_output_2d, chem_data_output_3d, chem_data_output_mask,     &
-         chem_define_netcdf_grid, chem_header, chem_init,                     &
+         chem_define_netcdf_grid, chem_header, chem_init, chem_init_arrays,   &
          chem_init_profiles, chem_integrate, chem_parin,                      &
          chem_prognostic_equations, chem_rrd_local,                           &
@@ -1182 +1189 @@
 !-- temporary switch of this part of the check
 !    RETURN                !bK commented
+    CALL chem_init_internal
 !---------------------
 
@@ -1717 +1725 @@
 ! Description:
 ! ------------
+!> Subroutine initializating chemistry_model_mod specific arrays
+!------------------------------------------------------------------------------!
+ SUBROUTINE chem_init_arrays
+
+!-- Please use this place to allocate required arrays
+
+ END SUBROUTINE chem_init_arrays
+
+!
+!------------------------------------------------------------------------------!
+!
+! Description:
+! ------------
 !> Subroutine initializating chemistry_model_mod
 !------------------------------------------------------------------------------!
  SUBROUTINE chem_init
+
+    USE chem_emissions_mod,                                                    &
+        ONLY:  chem_emissions_init
+
+    IMPLICIT NONE
+
+
+    IF ( do_emis )  CALL chem_emissions_init
+
+
+ END SUBROUTINE chem_init
+
+!
+!------------------------------------------------------------------------------!
+!
+! Description:
+! ------------
+!> Subroutine initializating chemistry_model_mod
+!> internal workaround for chem_species dependency in chem_check_parameters
+!------------------------------------------------------------------------------!
+ SUBROUTINE chem_init_internal
 
     USE control_parameters,                                                  &
@@ -1727 +1769 @@
     USE pegrid
 
+    USE netcdf_data_input_mod,                                                 &
+        ONLY:  chem_emis, chem_emis_att, netcdf_data_input_chemistry_data
+
     IMPLICIT NONE
 
@@ -1736 +1781 @@
     INTEGER(iwp) ::  lpr_lev           !< running index for chem spcs profile level
 
+    IF ( do_emis ) THEN
+       CALL netcdf_data_input_chemistry_data( chem_emis_att, chem_emis )
+    ENDIF
 !
 !-- Allocate memory for chemical species
@@ -1861 +1909 @@
     ENDDO
 
+!    CALL photolysis_init   ! probably also required for restart
+
     RETURN
 
- END SUBROUTINE chem_init
+ END SUBROUTINE chem_init_internal
 
 !