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

    r1321 r1353  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! REAL constants provided with KIND-attribute
    2323!
    2424! Former revisions:
     
    124124!
    125125!--             Pressure is needed in dbar
    126                 p1 = hyp(k) * 1E-4
     126                p1 = hyp(k) * 1E-4_wp
    127127                p2 = p1 * p1
    128128                p3 = p2 * p1
     
    130130!
    131131!--             Temperature needed in degree Celsius
    132                 pt1 = pt_p(k,j,i) - 273.15
     132                pt1 = pt_p(k,j,i) - 273.15_wp
    133133                pt2 = pt1 * pt1
    134134                pt3 = pt1 * pt2
     
    197197!
    198198!--       Pressure is needed in dbar
    199           p1 = hyp(k) * 1E-4
     199          p1 = hyp(k) * 1E-4_wp
    200200          p2 = p1 * p1
    201201          p3 = p2 * p1
     
    203203!
    204204!--       Temperature needed in degree Celsius
    205           pt1 = pt_p(k,j,i) - 273.15
     205          pt1 = pt_p(k,j,i) - 273.15_wp
    206206          pt2 = pt1 * pt1
    207207          pt3 = pt1 * pt2
     
    269269!
    270270!--    Pressure is needed in dbar
    271        p1 = p  * 1E-4
     271       p1 = p  * 1E-4_wp
    272272       p2 = p1 * p1
    273273       p3 = p2 * p1
     
    275275!
    276276!--    Temperature needed in degree Celsius
    277        pt1 = pt - 273.15
     277       pt1 = pt - 273.15_wp
    278278       pt2 = pt1 * pt1
    279279       pt3 = pt1 * pt2
Note: See TracChangeset for help on using the changeset viewer.