Ignore:
Timestamp:
Apr 8, 2014 3:21:23 PM (7 years ago)
Author:
heinze
Message:

REAL constants provided with KIND-attribute

File:
1 edited

Legend:

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

    r1323 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    8282!-- Defaults: radius rc, strength z,
    8383!--           position of centre: ic, jc, kc
    84     rc =  10.0 * dx
     84    rc =  10.0_wp * dx
    8585    ic =  ( nx+1 ) / 2
    8686    jc =  ic
    87     kc = nzt / 2
     87    kc =  nzt / 2
    8888
    8989!
     
    9797             radius = SQRT( x**2 + y**2 + z**2 )
    9898             IF ( radius <= rc )  THEN
    99                 betrag = 5.0 * EXP( -( radius * 0.001_wp / 2.0_wp )**2 )
     99                betrag = 5.0_wp * EXP( -( radius * 0.001_wp / 2.0_wp )**2 )
    100100             ELSE
    101                 betrag = 0.0
     101                betrag = 0.0_wp
    102102             ENDIF
    103103
Note: See TracChangeset for help on using the changeset viewer.