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

    r1323 r1353  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    399399!
    400400!-- Indices for direct transpositions z --> y (used for calculating spectra)
    401     IF ( dt_dosp /= 9999999.9 )  THEN
     401    IF ( dt_dosp /= 9999999.9_wp )  THEN
    402402       IF ( MOD( nz, pdims(2) ) /= 0 )  THEN
    403403          WRITE( message_string, * ) 'direct transposition z --> y (needed ', &
Note: See TracChangeset for help on using the changeset viewer.