Changeset 3274 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Sep 24, 2018 3:42:55 PM (6 years ago)

Author:

knoop

Message:

Modularization of all bulk cloud physics code components

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3248 2018-09-14 09:42:06Z sward
 ! Minor formating changes
 ! 
@@ -144 +147 @@
                                  intermediate_timestep_count_max,              &
                                  timestep_scheme, use_prescribed_profile_data  
-   USE arrays_3d,          ONLY: hyp, pt, rdf_sc, tend, zu                     
+   USE arrays_3d,          ONLY: hyp, pt, rdf_sc, tend, zu, exner
    USE chem_gasphase_mod,  ONLY: nspec, spc_names, nkppctrl, nmaxfixsteps,     &
                                  t_steps, fill_temp, chem_gasphase_integrate,  &
@@ -939 +942 @@
     IF (chem_gasphase_on) THEN
 
-       tmp_temp(:) = pt(:,j,i) * ( hyp(nzb+1:nzt) / 100000.0_wp )**0.286_wp
+       tmp_temp(:) = pt(:,j,i) * exner(nzb+1:nzt)
 ! ppm to molecules/cm**3
 !      tmp_fact = 1.e-6_wp*6.022e23_wp/(22.414_wp*1000._wp) * 273.15_wp * hyp(nzb+1:nzt)/( 101300.0_wp * tmp_temp )