Changeset 2846 for palm/trunk

Timestamp:

Mar 1, 2018 8:48:47 AM (6 years ago)

Author:

raasch

Message:

FORTRAN bugfix for r2845

File:

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

palm/trunk/SOURCE/init_ocean.f90

@@ -25 +25 @@
 ! ------------------
 ! $Id$
+! FORTRAN bugfix for r2845
+! 
+! 2845 2018-03-01 08:32:34Z raasch
 ! bugfix: set kinematic viscosity for sea water
 ! 
@@ -85 +88 @@
 
     USE control_parameters,                                                    &
-        ONLY:  g, prho_reference, rho_surface, rho_reference,                  &
-               surface_pressure, use_single_reference_value
+        ONLY:  g, molecular_viscosity, prho_reference, rho_surface,            &
+               rho_reference, surface_pressure, use_single_reference_value
 
     USE eqn_state_seawater_mod,                                                &