Changeset 4127 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Jul 30, 2019 2:47:10 PM (5 years ago)

Author:

suehring

Message:

Merge with branch resler: biomet- output of bio_mrt added; plant_canopy - separate vertical dimension for 3D output (to save disk space); radiation - remove unused plant canopy variables; urban-surface model - do not add anthropogenic heat during wall spin-up

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Remove unused pch_index (merge from branch resler)
+! 
+! 4089 2019-07-11 14:30:27Z suehring
 ! - Correct level 2 initialization of spectral albedos in rrtmg branch, long- and
 !   shortwave albedos were mixed-up. 
@@ -6194 +6197 @@
        USE control_parameters,                                                 &
            ONLY:  dz_stretch_level_start
-           
-       USE netcdf_data_input_mod,                                              &
-           ONLY:  leaf_area_density_f
 
        USE plant_canopy_model_mod,                                             &
-           ONLY:  pch_index, lad_s
+           ONLY:  lad_s
 
        IMPLICIT NONE
@@ -6259 +6259 @@
            nzutl = MAX( nzutl, MAXVAL( pct ) )
            nzptl = MAXVAL( pct )
-!--        code of plant canopy model uses parameter pch_index
-!--        we need to setup it here to right value
-!--        (pch_index, lad_s and other arrays in PCM are defined flat)
-           pch_index = MERGE( leaf_area_density_f%nz - 1, MAXVAL( pch ),       &
-                              leaf_area_density_f%from_file )
 
            prototype_lad = MAXVAL( lad_s ) * .9_wp  !< better be *1.0 if lad is either 0 or maxval(lad) everywhere