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

Timestamp:

Aug 16, 2007 2:30:26 PM (17 years ago)

Author:

raasch

Message:

preliminary update of bugfixes and extensions for non-cyclic BCs

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -5 +5 @@
 ! -----------------
 ! Check coupling_mode and set default (obligatory) values (like boundary
-! conditions for temperature and fluxes) in case of coupled runs
+! conditions for temperature and fluxes) in case of coupled runs.
+! +profiles for w*p* and w"e
 ! Bugfix: Error message concerning output of particle concentration (pc)
 ! modified
@@ -1968 +1969 @@
              dopr_index(i) = 56
              dopr_unit(i)  = 'm2/s3'
-             hom(:,2,56,:) = SPREAD( zu, 2, statistic_regions+1 )
+             hom(:,2,56,:) = SPREAD( zw, 2, statistic_regions+1 )
 
           CASE ( 'w"e/dz' )
@@ -2051 +2052 @@
                 hom(:,2,67,:) = SPREAD( zw, 2, statistic_regions+1 )
              ENDIF
+
+          CASE ( 'w*p*' )
+             dopr_index(i) = 68
+             dopr_unit(i)  = 'm3/s3'
+             hom(:,2,68,:) = SPREAD( zu, 2, statistic_regions+1 )
+
+          CASE ( 'w"e' )
+             dopr_index(i) = 69
+             dopr_unit(i)  = 'm3/s3'
+             hom(:,2,69,:) = SPREAD( zu, 2, statistic_regions+1 )