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

Timestamp:

Jun 10, 2009 11:19:35 AM (15 years ago)

Author:

raasch

Message:

several small bugfixes; some more dvrp changes

File:

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

palm/trunk/SOURCE/eqn_state_seawater.f90

@@ -76 +76 @@
 !
 !--             Pressure is needed in dbar
-                p1 = hyp(0) * 1E-4
+!                p1 = hyp(0) * 1E-4
+!                p1 = 0.0
+                p1 = hyp(k) * 1E-4
                 p2 = p1 * p1
                 p3 = p2 * p1
@@ -132 +134 @@
 !
 !--       Pressure is needed in dbar
-          p1 = hyp(0) * 1E-4
+!          p1 = hyp(0) * 1E-4
+!          p1 = 0.0
+          p1 = hyp(k) * 1E-4
           p2 = p1 * p1
           p3 = p2 * p1