Ignore:
Timestamp:
Apr 8, 2019 7:09:16 PM (2 years ago)
Author:
knoop
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/prognostic_equations.f90

    r3876 r3877  
    394394        ONLY:  nspec, nvar, spc_names
    395395
    396     USE chem_photolysis_mod,                                                   &
    397         ONLY:  photolysis_control
    398 
    399396    USE chemistry_model_mod,                                                   &
    400397        ONLY:  chem_boundary_conds, chem_depo, chem_integrate,                 &
     
    536533!-- concentrations of chemical species                                   
    537534    IF ( air_chemistry )  THEN
    538        lsp_usr = 1
    539535!
    540536!--    Chemical reactions and deposition
    541537       IF ( chem_gasphase_on ) THEN
    542 !
    543 !--       If required, calculate photolysis frequencies -
    544 !--       UNFINISHED: Why not before the intermediate timestep loop?
    545           IF ( intermediate_timestep_count ==  1 )  THEN
    546              CALL photolysis_control
    547           ENDIF
    548538
    549539          IF ( intermediate_timestep_count == 1 .OR.                        &
Note: See TracChangeset for help on using the changeset viewer.