Changeset 1353 for palm/trunk/SOURCE/eqn_state_seawater.f90

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

• palm/trunk/SOURCE/eqn_state_seawater.f90 (modified) (7 diffs)

palm/trunk/SOURCE/eqn_state_seawater.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL constants provided with KIND-attribute 
 !
 ! Former revisions:
@@ -124 +124 @@
 !
 !--             Pressure is needed in dbar
-                p1 = hyp(k) * 1E-4
+                p1 = hyp(k) * 1E-4_wp
                 p2 = p1 * p1
                 p3 = p2 * p1
@@ -130 +130 @@
 !
 !--             Temperature needed in degree Celsius
-                pt1 = pt_p(k,j,i) - 273.15
+                pt1 = pt_p(k,j,i) - 273.15_wp
                 pt2 = pt1 * pt1
                 pt3 = pt1 * pt2
@@ -197 +197 @@
 !
 !--       Pressure is needed in dbar
-          p1 = hyp(k) * 1E-4
+          p1 = hyp(k) * 1E-4_wp
           p2 = p1 * p1
           p3 = p2 * p1
@@ -203 +203 @@
 !
 !--       Temperature needed in degree Celsius
-          pt1 = pt_p(k,j,i) - 273.15
+          pt1 = pt_p(k,j,i) - 273.15_wp
           pt2 = pt1 * pt1
           pt3 = pt1 * pt2
@@ -269 +269 @@
 !
 !--    Pressure is needed in dbar
-       p1 = p  * 1E-4
+       p1 = p  * 1E-4_wp
        p2 = p1 * p1
        p3 = p2 * p1
@@ -275 +275 @@
 !
 !--    Temperature needed in degree Celsius
-       pt1 = pt - 273.15
+       pt1 = pt - 273.15_wp
        pt2 = pt1 * pt1
        pt3 = pt1 * pt2