Changeset 3126 for palm

Timestamp:

Jul 13, 2018 3:13:54 PM (6 years ago)

Author:

gronemeier

Message:

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

File:

• palm/trunk/SOURCE/model_1d_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/model_1d_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: define c_0 = 0.03^0.25 = 0.416179145
+! 
+! 3083 2018-06-19 14:03:12Z gronemeier
 ! Bugfixes:
 !   - preset te_diss and te_e to avoid runtime errors
@@ -194 +197 @@
 
     REAL(wp) ::  alpha_buoyancy                !< model constant according to Koblitz (2013)
-    REAL(wp) ::  c_0 = 0.03_wp**0.25_wp        !< model constant according to Koblitz (2013)
+    REAL(wp) ::  c_0 = 0.416179145_wp          !< = 0.03^0.25; model constant according to Koblitz (2013)
     REAL(wp) ::  c_1 = 1.52_wp                 !< model constant according to Koblitz (2013)
     REAL(wp) ::  c_2 = 1.83_wp                 !< model constant according to Koblitz (2013)