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

Timestamp:

Sep 16, 2008 3:29:03 PM (16 years ago)

Author:

raasch

Message:

further adjustments for SGI and other small changes

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -10 +10 @@
 ! Leaf area density (LAD) explicitly set to its surface value at k=0
 ! Case of reading data for recycling included in initializing_actions,
-! check of turbulent_inflow and calculation of recycling_plane
+! check of turbulent_inflow and calculation of recycling_plane.
+! q*2 profile added
 !
 ! Former revisions:
@@ -2256 +2257 @@
              hom(:,2,69,:) = SPREAD( zu, 2, statistic_regions+1 )
 
+          CASE ( 'q*2' )
+             IF ( .NOT. humidity )  THEN
+                IF ( myid == 0 )  THEN
+                   PRINT*, '+++ check_parameters:  data_output_pr = ', &
+                           data_output_pr(i),                          &
+                           '    is not implemented for humidity = FALSE'
+                ENDIF
+                CALL local_stop
+             ELSE
+                dopr_index(i) = 70
+                dopr_unit(i)  = 'kg2/kg2'
+                hom(:,2,70,:) = SPREAD( zu, 2, statistic_regions+1 )
+             ENDIF
 
           CASE DEFAULT