Changeset 2746 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

Jan 15, 2018 12:06:04 PM (6 years ago)

Author:

suehring

Message:

Read information from statitic driver for resolved vegetation independently from land- or urban-surface model

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Move flag plant canopy to modules
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -73 +76 @@
                initializing_actions, intermediate_timestep_count,              &
                intermediate_timestep_count_max, kappa, km_constant, les_mw,    &
-               ocean, prandtl_number, prho_reference, pt_reference, rans_mode, &
-               rans_tke_e, rans_tke_l, simulated_time, timestep_scheme,        &
-               turbulence_closure, turbulent_inflow, use_upstream_for_tke,     &
-               vpt_reference, ws_scheme_sca
+               ocean, plant_canopy, prandtl_number, prho_reference,            &
+               pt_reference, rans_mode, rans_tke_e, rans_tke_l, simulated_time,&
+               timestep_scheme, turbulence_closure, turbulent_inflow,          &
+               use_upstream_for_tke, vpt_reference, ws_scheme_sca
 
     USE advec_ws,                                                              &
@@ -103 +106 @@
 
     USE plant_canopy_model_mod,                                                &
-        ONLY:  pcm_tendency, plant_canopy
+        ONLY:  pcm_tendency
 
     USE statistics,                                                            &