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_slope.f90

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
     22! REAL constants defined as wp_kind
    2223!
    2324! Former revisions:
     
    109110!
    110111!--       Compute temperatures in the rotated coordinate system
    111           alpha    = alpha + alpha_surface / 180.0 * pi
     112          alpha    = alpha + alpha_surface / 180.0_wp * pi
    112113          pt_value = pt_surface + radius * SIN( alpha ) * &
    113                                   pt_vertical_gradient(1) / 100.0
     114                                  pt_vertical_gradient(1) / 100.0_wp
    114115          pt_slope_ref(k,i) = pt_value
    115116       ENDDO               
     
    120121!-- used for the cyclic boundary in x-direction
    121122    pt_slope_offset = (nx+1) * dx * sin_alpha_surface * &
    122                       pt_vertical_gradient(1) / 100.0
     123                      pt_vertical_gradient(1) / 100.0_wp
    123124
    124125
Note: See TracChangeset for help on using the changeset viewer.