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

Timestamp:

Jun 19, 2018 2:03:12 PM (6 years ago)

Author:

gronemeier

Message:

merge with branch rans

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/check_parameters.f90 (modified) (2 diffs, 1 prop)

palm/trunk/SOURCE/check_parameters.f90

@@ -24 +24 @@
 ! Former revisions:
 ! -----------------
-! $Id$
+! $Id: check_parameters.f90 2520 2017-10-05 13:50:26Z gronemeier &
+! Add inital profile output for e (TG)
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! dz was replaced by dz(1), error message revised
 ! 
@@ -2455 +2458 @@
              ENDIF
 
-          CASE ( 'e' )
+          CASE ( 'e', '#e' )
              dopr_index(i)  = 8
              dopr_unit(i)   = 'm2/s2'
              hom(:,2,8,:)   = SPREAD( zu, 2, statistic_regions+1 )
              hom(nzb,2,8,:) = 0.0_wp
+             IF ( data_output_pr(i)(1:1) == '#' )  THEN
+                dopr_initial_index(i) = 8
+                hom(:,2,8,:)          = SPREAD( zu, 2, statistic_regions+1 )
+                data_output_pr(i)     = data_output_pr(i)(2:)
+             ENDIF
 
           CASE ( 'km', '#km' )