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

Timestamp:

Oct 30, 2018 2:51:23 PM (5 years ago)

Author:

kanani

Message:

Reintegrated fixes/changes from branch chemistry

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! remove duplicate USE chem_modules
+! from chemistry branch r3443, banzhafs, basit:
+! chem_depo call introduced
+! code added for decycling chemistry
+!
+! 3386 2018-10-19 16:28:22Z gronemeier
 ! Renamed tcm_prognostic to tcm_prognostic_equations
 ! 
@@ -340 +346 @@
     USE buoyancy_mod,                                                          &
         ONLY:  buoyancy
-
-    USE chemistry_model_mod,                                                   &
-        ONLY:  chem_integrate, chem_species,  chem_prognostic_equations,       &
-               nspec, nvar, spc_names, chem_boundary_conds
            
     USE chem_modules,                                                          &
-        ONLY:  call_chem_at_all_substeps, chem_gasphase_on
+        ONLY:  call_chem_at_all_substeps, chem_gasphase_on, cs_name, do_depo
 
     USE chem_photolysis_mod,                                                   &
         ONLY:  photolysis_control
 
-    USE chem_modules,                                                          &
-        ONLY:  call_chem_at_all_substeps, chem_gasphase_on, cs_name
+    USE chemistry_model_mod,                                                   &
+        ONLY:  chem_boundary_conds, chem_depo, chem_integrate,                 &
+               chem_prognostic_equations, chem_species,                        &
+               nspec, nvar, spc_names
 
     USE control_parameters,                                                    &
@@ -495 +499 @@
 
                 IF ( intermediate_timestep_count == 1 .OR.                        &
-                     call_chem_at_all_substeps ) THEN
-                   CALL chem_integrate (i,j)                                                
+                     call_chem_at_all_substeps )  THEN
+                   CALL chem_integrate (i,j)
+                   IF ( do_depo )  THEN
+                      CALL chem_depo(i,j)
+                   ENDIF
                 ENDIF
              ENDDO