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

Timestamp:

Sep 24, 2018 3:42:55 PM (6 years ago)

Author:

knoop

Message:

Modularization of all bulk cloud physics code components

File:

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

palm/trunk/SOURCE/init_ocean.f90

@@ -25 +25 @@
 ! ------------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3270 2018-09-24 06:28:20Z raasch
 ! bugfix for r2502: wrong calculation of hyp(nzt) in second iterative step
 ! 
@@ -90 +93 @@
         ONLY:  dzu, hyp, pt_init, ref_state, sa_init, zu, zw
 
+    USE basic_constants_and_equations_mod,                                     &
+        ONLY:  g
+
     USE control_parameters,                                                    &
-        ONLY:  g, molecular_viscosity, prho_reference, rho_surface,            &
+        ONLY:  molecular_viscosity, prho_reference, rho_surface,               &
                rho_reference, surface_pressure, use_single_reference_value