Changeset 95 for palm/trunk/SOURCE/calc_liquid_water_content.f90

Timestamp:

Jun 2, 2007 4:48:38 PM (17 years ago)

Author:

raasch

Message:

further preliminary uncomplete changes for ocean version

File:

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

palm/trunk/SOURCE/calc_liquid_water_content.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! hydro_press renamed hyp
 !
 ! Former revisions:
@@ -59 +59 @@
 !
 !--          Compute approximation of saturation humidity
-             q_s = 0.622 * e_s / &
-                   ( hydro_press(k) - 0.378 * e_s )
+             q_s = 0.622 * e_s / ( hyp(k) - 0.378 * e_s )
 
 !