Changeset 3274 for palm/trunk/SOURCE/buoyancy.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/buoyancy.f90 (modified) (4 diffs)

palm/trunk/SOURCE/buoyancy.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused Variable removed
 !
@@ -114 +117 @@
 !------------------------------------------------------------------------------!
  MODULE buoyancy_mod
- 
+
+    USE basic_constants_and_equations_mod,                                     &
+        ONLY:  g
 
     PRIVATE
@@ -138 +143 @@
 
        USE control_parameters,                                                 &
-           ONLY:  atmos_ocean_sign, cos_alpha_surface, g, message_string,      &
+           ONLY:  atmos_ocean_sign, cos_alpha_surface, message_string,         &
                   pt_surface, sin_alpha_surface, sloping_surface
 
@@ -244 +249 @@
 
        USE control_parameters,                                                 &
-           ONLY:  atmos_ocean_sign, cos_alpha_surface, g, message_string,      &
+           ONLY:  atmos_ocean_sign, cos_alpha_surface, message_string,         &
                   pt_surface, sin_alpha_surface, sloping_surface