Changeset 3126


Ignore:
Timestamp:
Jul 13, 2018 3:13:54 PM (3 years ago)
Author:
gronemeier
Message:

bugfix for pgi compiler: assign value of c_0 directly to variable instead of calculating it

File:
1 edited

Legend:

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

    r3083 r3126  
    2525! -----------------
    2626! $Id$
     27! Bugfix: define c_0 = 0.03^0.25 = 0.416179145
     28!
     29! 3083 2018-06-19 14:03:12Z gronemeier
    2730! Bugfixes:
    2831!   - preset te_diss and te_e to avoid runtime errors
     
    194197
    195198    REAL(wp) ::  alpha_buoyancy                !< model constant according to Koblitz (2013)
    196     REAL(wp) ::  c_0 = 0.03_wp**0.25_wp        !< model constant according to Koblitz (2013)
     199    REAL(wp) ::  c_0 = 0.416179145_wp          !< = 0.03^0.25; model constant according to Koblitz (2013)
    197200    REAL(wp) ::  c_1 = 1.52_wp                 !< model constant according to Koblitz (2013)
    198201    REAL(wp) ::  c_2 = 1.83_wp                 !< model constant according to Koblitz (2013)
Note: See TracChangeset for help on using the changeset viewer.