Ignore:
Timestamp:
Jun 2, 2007 4:48:38 PM (14 years ago)
Author:
raasch
Message:

further preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r39 r95  
    44! Actual revisions:
    55! -----------------
    6 !
     6! hydro_press renamed hyp
    77!
    88! Former revisions:
     
    5959!
    6060!--          Compute approximation of saturation humidity
    61              q_s = 0.622 * e_s / &
    62                    ( hydro_press(k) - 0.378 * e_s )
     61             q_s = 0.622 * e_s / ( hyp(k) - 0.378 * e_s )
    6362
    6463!
Note: See TracChangeset for help on using the changeset viewer.