Changeset 785 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Nov 28, 2011 9:47:19 AM (13 years ago)

Author:

raasch

Message:

scalar quantities can be excluded from Rayleigh damping; bugfix for long lines in configuration file with more than 300 characters

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -7 +7 @@
 ! Current revisions:
 ! ------------------
-! 
+! initialization of rdf_sc
 !
 ! Former revisions:
@@ -184 +184 @@
               sums_divnew_l(0:statistic_regions),                           &
               sums_divold_l(0:statistic_regions) )
-    ALLOCATE( dp_smooth_factor(nzb:nzt), rdf(nzb+1:nzt) )
+    ALLOCATE( dp_smooth_factor(nzb:nzt), rdf(nzb+1:nzt), rdf_sc(nzb+1:nzt) )
     ALLOCATE( ngp_2dh_outer(nzb:nzt+1,0:statistic_regions),                 &
               ngp_2dh_outer_l(nzb:nzt+1,0:statistic_regions),               &
@@ -1471 +1471 @@
 !
 !-- Initialize Rayleigh damping factors
-    rdf = 0.0
+    rdf    = 0.0
+    rdf_sc = 0.0
     IF ( rayleigh_damping_factor /= 0.0 )  THEN
        IF ( .NOT. ocean )  THEN
@@ -1493 +1494 @@
        ENDIF
     ENDIF
+    IF ( scalar_rayleigh_damping )  rdf_sc = rdf
 
 !