Ignore:
Timestamp:
Jun 10, 2009 11:19:35 AM (12 years ago)
Author:
raasch
Message:

several small bugfixes; some more dvrp changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/eqn_state_seawater.f90

    r231 r336  
    7676!
    7777!--             Pressure is needed in dbar
    78                 p1 = hyp(0) * 1E-4
     78!                p1 = hyp(0) * 1E-4
     79!                p1 = 0.0
     80                p1 = hyp(k) * 1E-4
    7981                p2 = p1 * p1
    8082                p3 = p2 * p1
     
    132134!
    133135!--       Pressure is needed in dbar
    134           p1 = hyp(0) * 1E-4
     136!          p1 = hyp(0) * 1E-4
     137!          p1 = 0.0
     138          p1 = hyp(k) * 1E-4
    135139          p2 = p1 * p1
    136140          p3 = p2 * p1
Note: See TracChangeset for help on using the changeset viewer.