Changeset 2059 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 10, 2016 2:20:40 PM (7 years ago)
Author:
maronga
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_1d_model.f90

    r2001 r2059  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Corrected min/max values of Rif.
    2323!
    2424! Former revisions:
     
    242242               intermediate_timestep_count_max, f, g, ibc_e_b, kappa,          & 
    243243               mixing_length_1d,                                               &
    244                simulated_time_chr, timestep_scheme, tsc, zeta_max, zeta_min
     244               simulated_time_chr, timestep_scheme, tsc
    245245               
    246246    USE indices,                                                               &
     
    572572!--          range. It is exceeded excessively for very small velocities
    573573!--          (u,v --> 0).
    574              WHERE ( rif1d < zeta_min )  rif1d = zeta_min
    575              WHERE ( rif1d > zeta_max )  rif1d = zeta_max
     574             WHERE ( rif1d < -5.0_wp )  rif1d = -5.0_wp
     575             WHERE ( rif1d > 1.0_wp )  rif1d = 1.0_wp
    576576
    577577!
Note: See TracChangeset for help on using the changeset viewer.