Changeset 2845 for palm/trunk/SOURCE/init_ocean.f90

Timestamp:

Mar 1, 2018 8:32:34 AM (7 years ago)

Author:

raasch

Message:

bugfix: set kinematic viscosity for sea water

File:

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

palm/trunk/SOURCE/init_ocean.f90

@@ -25 +25 @@
 ! ------------------
 ! $Id$
+! bugfix: set kinematic viscosity for sea water
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -115 +118 @@
 
 !
+!-- Set kinematic viscosity to sea water at 20C
+!-- WARNING: This value is especially used for calculating terminal fall
+!--          velocities in the LPM, so lpm_init should always be called after
+!--          init_ocean!
+    molecular_viscosity = 1.05E-6_wp
+
+!
 !-- Calculate initial vertical profile of hydrostatic pressure (in Pa)
 !-- and the reference density (used later in buoyancy term)