Changeset 3880 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Apr 8, 2019 9:43:02 PM (5 years ago)

Author:

knoop

Message:

Moved chem_prognostic_equations into module_interface

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -387 +387 @@
         ONLY:  buoyancy
 
-    USE chem_modules,                                                          &
-        ONLY:  chem_gasphase_on, deposition_dry, chem_species
-
-    USE chem_gasphase_mod,                                                     &
-        ONLY:  nspec, spc_names
-
     USE chemistry_model_mod,                                                   &
-        ONLY:  chem_boundary_conds_decycle, chem_prognostic_equations
+        ONLY:  chem_boundary_conds_decycle
 
     USE control_parameters,                                                    &
@@ -518 +512 @@
 
     LOGICAL      ::  loop_start          !<
-    INTEGER(iwp) ::  lsp
 
 
@@ -1113 +1106 @@
           CALL module_interface_prognostic_equations( i, j, i_omp_start, tn )
 
-!
-!--       Calculate prognostic equation for chemical quantites
-          IF ( air_chemistry )  THEN
-             !> TODO: remove time measurement since it slows down performance because it will be called extremely often
-!
-!--          Loop over chemical species
-             DO  lsp = 1, nspec
-                CALL chem_prognostic_equations( chem_species(lsp)%conc_p,      &
-                                     chem_species(lsp)%conc,                   &
-                                     chem_species(lsp)%tconc_m,                &
-                                     chem_species(lsp)%conc_pr_init,           &
-                                     i, j, i_omp_start, tn, lsp,               &
-                                     chem_species(lsp)%flux_s_cs,              &
-                                     chem_species(lsp)%diss_s_cs,              &
-                                     chem_species(lsp)%flux_l_cs,              &
-                                     chem_species(lsp)%diss_l_cs )       
-             ENDDO
-
-          ENDIF   ! Chemical equations
-
        ENDDO  ! loop over j
     ENDDO  ! loop over i
@@ -1160 +1133 @@
     INTEGER(iwp) ::  j     !<
     INTEGER(iwp) ::  k     !<
-    INTEGER(iwp) ::  lsp   !< running index for chemical species
 
     REAL(wp)     ::  sbt  !<
@@ -1895 +1867 @@
     CALL module_interface_prognostic_equations()
 
-!
-!-- Calculate prognostic equation for chemical quantites
-    IF ( air_chemistry )  THEN
-       CALL cpu_log( log_point_s(25), 'chem.advec+diff+prog', 'start' )
-!
-!--    Loop over chemical species
-       DO  lsp = 1, nspec
-          CALL chem_prognostic_equations( chem_species(lsp)%conc_p,            &
-                                          chem_species(lsp)%conc,              &
-                                          chem_species(lsp)%tconc_m,           &
-                                          chem_species(lsp)%conc_pr_init,      &
-                                          lsp )
-       ENDDO
-
-       CALL cpu_log( log_point_s(25), 'chem.advec+diff+prog', 'stop' )             
-    ENDIF   ! Chemicals equations
-
  END SUBROUTINE prognostic_equations_vector