Changeset 138 for palm/trunk/SOURCE/read_var_list.f90

Timestamp:

Nov 28, 2007 10:03:58 AM (16 years ago)

Author:

letzel

Message:

Plant canopy model of Watanabe (2004,BLM 112,307-341) added.

File:

• palm/trunk/SOURCE/read_var_list.f90 (modified) (5 diffs)

palm/trunk/SOURCE/read_var_list.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! +canopy_mode
+! +drag_coefficient, lad, lad_surface, lad_vertical_gradient, 
+! lad_vertical_gradient_level, lad_vertical_gradient_level_ind,
+! pch_index, plant_canopy
+!
 ! +time_sort_particles
 !
@@ -186 +191 @@
           CASE ( 'building_wall_south' )
              READ ( 13 )  building_wall_south
+          CASE ( 'canopy_mode' )
+             READ ( 13 )  canopy_mode
           CASE ( 'cloud_droplets' )
              READ ( 13 )  cloud_droplets
@@ -200 +207 @@
           CASE ( 'dissipation_1d' )
              READ ( 13 )  dissipation_1d
+          CASE ( 'drag_coefficient' )
+             READ ( 13 )  drag_coefficient
           CASE ( 'dt_fixed' )
              READ ( 13 )  dt_fixed
@@ -244 +253 @@
           CASE ( 'km_damp_max' )
              READ ( 13 )  km_damp_max
+          CASE ( 'lad' )
+             READ ( 13 )  lad
+          CASE ( 'lad_surface' )
+             READ ( 13 )  lad_surface
+          CASE ( 'lad_vertical_gradient' )
+             READ ( 13 )  lad_vertical_gradient
+          CASE ( 'lad_vertical_gradient_level' )
+             READ ( 13 )  lad_vertical_gradient_level
+          CASE ( 'lad_vertical_gradient_level_in' )
+             READ ( 13 )  lad_vertical_gradient_level_ind
           CASE ( 'last_dt_change' )
              READ ( 13 )  last_dt_change
@@ -288 +307 @@
           CASE ( 'passive_scalar' )
              READ ( 13 )  passive_scalar
+          CASE ( 'pch_index' )
+             READ ( 13 )  pch_index
           CASE ( 'phi' )
              READ ( 13 )  phi
+          CASE ( 'plant_canopy' )
+             READ ( 13 )  plant_canopy
           CASE ( 'prandtl_layer' )
              READ ( 13 )  prandtl_layer