Changeset 232 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

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

Author:

raasch

Message:

bugfix concerning output of p profile

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

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