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

    r1321 r1322  
    2020! Current revisions:
    2121! -----------------
     22! REAL constants defined as wp_kind
    2223!
    2324! Former revisions:
     
    9394             radius = SQRT( x**2 + y**2 + z**2 )
    9495             IF ( radius <= rc )  THEN
    95                 betrag = 5.0 * EXP( -( radius * 0.001 / 2.0 )**2 )
     96                betrag = 5.0 * EXP( -( radius * 0.001_wp / 2.0_wp )**2 )
    9697             ELSE
    9798                betrag = 0.0
Note: See TracChangeset for help on using the changeset viewer.