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

Timestamp:

Apr 8, 2019 7:09:16 PM (5 years ago)

Author:

knoop

Message:

Added chem_actions module interface to chemistry_model_mod and moved photolysis_control call into it

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -394 +394 @@
         ONLY:  nspec, nvar, spc_names
 
-    USE chem_photolysis_mod,                                                   &
-        ONLY:  photolysis_control
-
     USE chemistry_model_mod,                                                   &
         ONLY:  chem_boundary_conds, chem_depo, chem_integrate,                 &
@@ -536 +533 @@
 !-- concentrations of chemical species                                    
     IF ( air_chemistry )  THEN
-       lsp_usr = 1
 !
 !--    Chemical reactions and deposition
        IF ( chem_gasphase_on ) THEN
-!
-!--       If required, calculate photolysis frequencies - 
-!--       UNFINISHED: Why not before the intermediate timestep loop?
-          IF ( intermediate_timestep_count ==  1 )  THEN
-             CALL photolysis_control
-          ENDIF
 
           IF ( intermediate_timestep_count == 1 .OR.                        &