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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Move flag plant canopy to modules
+! 
+! 2724 2018-01-05 12:12:38Z maronga
 ! Set default of average_radiation to .FALSE.
 ! 
@@ -235 +238 @@
                initializing_actions, io_blocks, io_group,                      &
                latitude, longitude, large_scale_forcing, lsf_surf,             &
-               message_string, microphysics_morrison, pt_surface,              &
+               message_string, microphysics_morrison, plant_canopy, pt_surface,&
                rho_surface, surface_pressure, time_since_reference_point
 
@@ -268 +271 @@
 
     USE plant_canopy_model_mod,                                                &
-        ONLY:  plant_canopy, pc_heating_rate, lad_s, usm_lad_rma
+        ONLY:  pc_heating_rate, lad_s, usm_lad_rma
 
     USE pegrid
@@ -4423 +4426 @@
 
        USE plant_canopy_model_mod,                                             &      
-           ONLY:  plant_canopy, pch_index,                                     &
-                  pc_heating_rate, lad_s, prototype_lad, usm_lad_rma       
+           ONLY:  pch_index, pc_heating_rate, lad_s, prototype_lad, usm_lad_rma       
        
        IMPLICIT NONE