Changeset 1450 for palm/trunk/SOURCE

Timestamp:

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

Author:

heinze

Message:

bugfixes for large_scale forcing and nudging

Location:

palm/trunk/SOURCE

Files:

• flow_statistics.f90 (modified) (3 diffs)
• modules.f90 (modified) (2 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 

palm/trunk/SOURCE/modules.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! ntnudge from 100 to 1000 increased to allow longer simulations
 ! 
 ! Former revisions:
@@ -576 +576 @@
                      maximum_parallel_io_streams = -1, max_pr_user = 0, &
                      mgcycles = 0, mg_cycles = -1, mg_switch_to_pe0_level = 0, mid, &
-                     nlsf = 1000, ntnudge = 100, netcdf_data_format = 2, ngsrb = 2, &
+                     nlsf = 1000, ntnudge = 1000, netcdf_data_format = 2, ngsrb = 2, &
                      nr_timesteps_this_run = 0, &
                      nsor = 20, nsor_ini = 100, n_sor, normalizing_region = 0, &