Ignore:
Timestamp:
Mar 1, 2018 8:32:34 AM (4 years ago)
Author:
raasch
Message:

bugfix: set kinematic viscosity for sea water

File:
1 edited

Legend:

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

    r2718 r2845  
    2525! ------------------
    2626! $Id$
     27! bugfix: set kinematic viscosity for sea water
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    115118
    116119!
     120!-- Set kinematic viscosity to sea water at 20C
     121!-- WARNING: This value is especially used for calculating terminal fall
     122!--          velocities in the LPM, so lpm_init should always be called after
     123!--          init_ocean!
     124    molecular_viscosity = 1.05E-6_wp
     125
     126!
    117127!-- Calculate initial vertical profile of hydrostatic pressure (in Pa)
    118128!-- and the reference density (used later in buoyancy term)
Note: See TracChangeset for help on using the changeset viewer.