Changeset 3876 for palm/trunk/SOURCE/multi_agent_system_mod.f90

Timestamp:

Apr 8, 2019 6:41:49 PM (5 years ago)

Author:

knoop

Message:

Moved "photolysis_scheme", "chem_species" and "phot_frequen" to chem_modules

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -2775 +2775 @@
            ONLY:  u, v, pt, exner
 
-!       USE chemistry_model_mod,                                                &
-!           ONLY:  chem_species
-
-!       USE control_parameters,                                                 &
-!              ONLY:  air_chemistry
-
        IMPLICIT NONE
 
@@ -2846 +2840 @@
 !--                Calculate temperature at agent position
                    agents(nl)%t = pt(kl,jl,il) * exner(kl)
-! !
-! !--                Get PM10 concentration at agent position, if possible
-!                    IF ( ind_pm10 == -9 ) THEN
-!                       agents(nl)%pm10 = 0.0_wp
-!                    ELSE
-!                       agents(nl)%pm10 = chem_species(ind_pm10)%conc(kl,jl,il)
-!                    ENDIF
-! !
-! !--                Get PM10 concentration at agent position, if possible
-!                    IF ( ind_pm25 == -9 ) THEN
-!                       agents(nl)%pm25 = 0.0_wp
-!                    ELSE
-!                       agents(nl)%pm25 = chem_species(ind_pm25)%conc(kl,jl,il)
-!                    ENDIF
+
                 ENDDO
 
@@ -3017 +2998 @@
     SUBROUTINE mas_init
 
-!       USE chem_gasphase_mod,                                                  &
-!           ONLY:  nvar
-
-!       USE chemistry_model_mod,                                                &
-!           ONLY:  chem_species
-
        USE control_parameters,                                                 &
            ONLY:  coupling_char, initializing_actions, io_blocks, io_group
@@ -3108 +3083 @@
           ENDDO
        ENDDO
-! !
-! !--    Get indices of PM10 and PM2.5 species, if active
-!        IF ( air_chemistry ) THEN
-!           DO il = 1, nvar
-! print*,chem_species(il)%name
-! !              IF ( spec_name(1:4) == 'PM10' ) THEN  
-! !                 ind_pm10 = il
-! !              ELSEIF ( spec_name(1:4) == 'PM25' ) THEN
-! !                 ind_pm25 = il
-! !              ENDIF
-! 
-!           ENDDO
-!        ENDIF
-! stop
+
        CALL mas_create_obstacle_flags