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/local_stop.f90

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
     22! REAL constants provided with KIND-attribute
    2223!
    2324! Former revisions:
     
    135136             ENDIF
    136137             terminate_run = .TRUE.
    137              time_restart = 9999999.9
     138             time_restart = 9999999.9_wp
    138139
    139140       END SELECT
Note: See TracChangeset for help on using the changeset viewer.