Changeset 4342 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Dec 16, 2019 1:49:14 PM (5 years ago)

Author:

Giersch

Message:

last commit corrected by replacing read_from_file_3d with read_from_file in all relevant p3d files, minor changes in plant_canopy_model_mod (use statements moved to module level, ocean dependency removed, redundant variables removed)

File:

• palm/trunk/SOURCE/salsa_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! cdc replaced by canopy_drag_coeff
+! 
+! 4329 2019-12-10 15:46:36Z motisi
 ! Renamed wall_flags_0 to wall_flags_static_0
 ! 
@@ -3831 +3834 @@
  SUBROUTINE deposition( paero, tk, adn, mag_u, lad, kvis, schmidt_num, vc )
 
-    USE plant_canopy_model_mod,                                                                    &
-        ONLY:  cdc
+    USE plant_canopy_model_mod,                                                &
+        ONLY:  canopy_drag_coeff
 
     IMPLICIT NONE
@@ -3930 +3933 @@
 !
 !--       Friction velocity for deposition on vegetation. Calculated following Prandtl (1925):
-          ustar = SQRT( cdc ) * mag_u
+          ustar = SQRT( canopy_drag_coeff ) * mag_u
           SELECT CASE ( depo_pcm_par_num )