Changeset 1450 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Aug 21, 2014 7:31:51 AM (10 years ago)

Author:

heinze

Message:

bugfixes for large_scale forcing and nudging

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: calculate fac only for simulated_time >= 0.0
 !
 ! Former revisions:
@@ -1012 +1012 @@
 !--    Collect current large scale advection and subsidence tendencies for
 !--    data output
-       IF ( large_scale_forcing )  THEN
+       IF ( large_scale_forcing  .AND.  ( simulated_time .GT. 0.0_wp ) )  THEN
 !
 !--       Interpolation in time of LSF_DATA 
@@ -2768 +2768 @@
 !--    Collect current large scale advection and subsidence tendencies for
 !--    data output
-       IF ( large_scale_forcing )  THEN
+       IF ( large_scale_forcing  .AND.  ( simulated_time .GT. 0.0_wp ) )  THEN
 !
 !--       Interpolation in time of LSF_DATA