Changeset 232 for palm/trunk

Timestamp:

Feb 10, 2009 2:25:26 AM (16 years ago)

Author:

raasch

Message:

bugfix concerning output of p profile

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -19 +19 @@
 with a minimum size of 10 tails if there is no tail initially (init_particles,
 advec_particles)
- 
+
+Bugfix: pressure included for profile output (check_parameters)
+
+advec_particles, check_parameters, init_particles

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Bugfix: pressure included for profile output
 !
 ! Former revisions:
@@ -1715 +1715 @@
              hom(:,2,39,:) = SPREAD( zw, 2, statistic_regions+1 )
 
+          CASE ( 'p' )
+             dopr_index(i) = 40
+             dopr_unit(i)  = 'Pa'
+             hom(:,2,40,:) = SPREAD( zu, 2, statistic_regions+1 )
+
           CASE ( 'q', '#q' )
              IF ( .NOT. humidity )  THEN