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

palm/trunk/SOURCE/surface_coupler.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -101 +104 @@
         ONLY:  pt, rho_ocean, sa, total_2d_a, total_2d_o, u, v
 
-    USE cloud_parameters,                                                      &
-        ONLY:  cp, l_v
+    USE basic_constants_and_equations_mod,                                     &
+        ONLY:  c_p, l_v
 
     USE control_parameters,                                                    &
@@ -477 +480 @@
              
              surf_def_h(2)%shf(m) = surf_def_h(2)%shf(m) +                     &
-                                    surf_def_h(2)%qsws(m) * l_v / cp
+                                    surf_def_h(2)%qsws(m) * l_v / c_p
 !
 !--          ...and convert it to a salinity flux at the sea surface (top)
@@ -498 +501 @@
           j = surf_def_h(2)%j(m)
           surf_def_h(2)%shf(m) = surf_def_h(2)%shf(m) / rho_ocean(nzt,j,i) *   &
-                                 cp / cpw
+                                 c_p / cpw
 
           surf_def_h(2)%usws(m) = surf_def_h(2)%usws(m) / rho_ocean(nzt,j,i)