Changeset 1353 for palm/trunk/SOURCE/eqn_state_seawater.f90
 Timestamp:
 Apr 8, 2014 3:21:23 PM (7 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/eqn_state_seawater.f90
r1321 r1353 20 20 ! Current revisions: 21 21 !  22 ! 22 ! REAL constants provided with KINDattribute 23 23 ! 24 24 ! Former revisions: … … 124 124 ! 125 125 ! Pressure is needed in dbar 126 p1 = hyp(k) * 1E4 126 p1 = hyp(k) * 1E4_wp 127 127 p2 = p1 * p1 128 128 p3 = p2 * p1 … … 130 130 ! 131 131 ! Temperature needed in degree Celsius 132 pt1 = pt_p(k,j,i)  273.15 132 pt1 = pt_p(k,j,i)  273.15_wp 133 133 pt2 = pt1 * pt1 134 134 pt3 = pt1 * pt2 … … 197 197 ! 198 198 ! Pressure is needed in dbar 199 p1 = hyp(k) * 1E4 199 p1 = hyp(k) * 1E4_wp 200 200 p2 = p1 * p1 201 201 p3 = p2 * p1 … … 203 203 ! 204 204 ! Temperature needed in degree Celsius 205 pt1 = pt_p(k,j,i)  273.15 205 pt1 = pt_p(k,j,i)  273.15_wp 206 206 pt2 = pt1 * pt1 207 207 pt3 = pt1 * pt2 … … 269 269 ! 270 270 ! Pressure is needed in dbar 271 p1 = p * 1E4 271 p1 = p * 1E4_wp 272 272 p2 = p1 * p1 273 273 p3 = p2 * p1 … … 275 275 ! 276 276 ! Temperature needed in degree Celsius 277 pt1 = pt  273.15 277 pt1 = pt  273.15_wp 278 278 pt2 = pt1 * pt1 279 279 pt3 = pt1 * pt2
Note: See TracChangeset
for help on using the changeset viewer.