Ignore:
Timestamp:
Mar 20, 2014 4:38:49 PM (8 years ago)
Author:
raasch
Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:
1 edited

Legend:

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

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants defined as wp-kind
    2323!
    2424! Former revisions:
     
    9696    l_d_rv = l_v / r_v
    9797
    98     schmidt_p_1d3 = schmidt**( 1.0 / 3.0 )
     98    schmidt_p_1d3 = schmidt**( 1.0_wp / 3.0_wp )
    9999
    100100    pirho_l  = pi * rho_l / 6.0
     
    125125       ENDIF
    126126       hyp(k)    = surface_pressure * 100.0 * &
    127                    ( (t_surface - g/cp * zu(k)) / t_surface )**(1.0/0.286)
     127                   ( (t_surface - g/cp * zu(k)) / t_surface )**(1.0_wp/0.286_wp)
    128128       pt_d_t(k) = ( 100000.0 / hyp(k) )**0.286
    129129       t_d_pt(k) = 1.0 / pt_d_t(k)
Note: See TracChangeset for help on using the changeset viewer.