Changeset 2059

Timestamp:

Nov 10, 2016 2:20:40 PM (8 years ago)

Author:

maronga

Message:

bugfix: min/max values of Rif set to old values

File:

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

palm/trunk/SOURCE/init_1d_model.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Corrected min/max values of Rif.
 ! 
 ! Former revisions:
@@ -242 +242 @@
                intermediate_timestep_count_max, f, g, ibc_e_b, kappa,          &  
                mixing_length_1d,                                               &
-               simulated_time_chr, timestep_scheme, tsc, zeta_max, zeta_min
+               simulated_time_chr, timestep_scheme, tsc
                 
     USE indices,                                                               &
@@ -572 +572 @@
 !--          range. It is exceeded excessively for very small velocities
 !--          (u,v --> 0).
-             WHERE ( rif1d < zeta_min )  rif1d = zeta_min
-             WHERE ( rif1d > zeta_max )  rif1d = zeta_max
+             WHERE ( rif1d < -5.0_wp )  rif1d = -5.0_wp
+             WHERE ( rif1d > 1.0_wp )  rif1d = 1.0_wp
 
 !