Ignore:
Timestamp:
Apr 8, 2019 9:43:02 PM (2 years ago)
Author:
knoop
Message:

Moved chem_prognostic_equations into module_interface

File:
1 edited

Legend:

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

    r3879 r3880  
    387387        ONLY:  buoyancy
    388388
    389     USE chem_modules,                                                          &
    390         ONLY:  chem_gasphase_on, deposition_dry, chem_species
    391 
    392     USE chem_gasphase_mod,                                                     &
    393         ONLY:  nspec, spc_names
    394 
    395389    USE chemistry_model_mod,                                                   &
    396         ONLY:  chem_boundary_conds_decycle, chem_prognostic_equations
     390        ONLY:  chem_boundary_conds_decycle
    397391
    398392    USE control_parameters,                                                    &
     
    518512
    519513    LOGICAL      ::  loop_start          !<
    520     INTEGER(iwp) ::  lsp
    521514
    522515
     
    11131106          CALL module_interface_prognostic_equations( i, j, i_omp_start, tn )
    11141107
    1115 !
    1116 !--       Calculate prognostic equation for chemical quantites
    1117           IF ( air_chemistry )  THEN
    1118              !> TODO: remove time measurement since it slows down performance because it will be called extremely often
    1119 !
    1120 !--          Loop over chemical species
    1121              DO  lsp = 1, nspec
    1122                 CALL chem_prognostic_equations( chem_species(lsp)%conc_p,      &
    1123                                      chem_species(lsp)%conc,                   &
    1124                                      chem_species(lsp)%tconc_m,                &
    1125                                      chem_species(lsp)%conc_pr_init,           &
    1126                                      i, j, i_omp_start, tn, lsp,               &
    1127                                      chem_species(lsp)%flux_s_cs,              &
    1128                                      chem_species(lsp)%diss_s_cs,              &
    1129                                      chem_species(lsp)%flux_l_cs,              &
    1130                                      chem_species(lsp)%diss_l_cs )       
    1131              ENDDO
    1132 
    1133           ENDIF   ! Chemical equations
    1134 
    11351108       ENDDO  ! loop over j
    11361109    ENDDO  ! loop over i
     
    11601133    INTEGER(iwp) ::  j     !<
    11611134    INTEGER(iwp) ::  k     !<
    1162     INTEGER(iwp) ::  lsp   !< running index for chemical species
    11631135
    11641136    REAL(wp)     ::  sbt  !<
     
    18951867    CALL module_interface_prognostic_equations()
    18961868
    1897 !
    1898 !-- Calculate prognostic equation for chemical quantites
    1899     IF ( air_chemistry )  THEN
    1900        CALL cpu_log( log_point_s(25), 'chem.advec+diff+prog', 'start' )
    1901 !
    1902 !--    Loop over chemical species
    1903        DO  lsp = 1, nspec
    1904           CALL chem_prognostic_equations( chem_species(lsp)%conc_p,            &
    1905                                           chem_species(lsp)%conc,              &
    1906                                           chem_species(lsp)%tconc_m,           &
    1907                                           chem_species(lsp)%conc_pr_init,      &
    1908                                           lsp )
    1909        ENDDO
    1910 
    1911        CALL cpu_log( log_point_s(25), 'chem.advec+diff+prog', 'stop' )             
    1912     ENDIF   ! Chemicals equations
    1913 
    19141869 END SUBROUTINE prognostic_equations_vector
    19151870
Note: See TracChangeset for help on using the changeset viewer.