Changeset 138 for palm/trunk/SOURCE/write_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/write_var_list.f90 (modified) (5 diffs)

palm/trunk/SOURCE/write_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
 !
@@ -132 +137 @@
     WRITE ( 14 )  'building_wall_south           '
     WRITE ( 14 )  building_wall_south
+    WRITE ( 14 )  'canopy_mode                   '
+    WRITE ( 14 )  canopy_mode
     WRITE ( 14 )  'cloud_droplets                '
     WRITE ( 14 )  cloud_droplets
@@ -146 +153 @@
     WRITE ( 14 )  'dissipation_1d                '
     WRITE ( 14 )  dissipation_1d
+    WRITE ( 14 )  'drag_coefficient              '
+    WRITE ( 14 )  drag_coefficient
     WRITE ( 14 )  'dt_fixed                      '
     WRITE ( 14 )  dt_fixed
@@ -190 +199 @@
     WRITE ( 14 )  'km_damp_max                   '
     WRITE ( 14 )  km_damp_max
+    WRITE ( 14 )  'lad                           '
+    WRITE ( 14 )  lad
+    WRITE ( 14 )  'lad_surface                   '
+    WRITE ( 14 )  lad_surface
+    WRITE ( 14 )  'lad_vertical_gradient         '
+    WRITE ( 14 )  lad_vertical_gradient
+    WRITE ( 14 )  'lad_vertical_gradient_level   '
+    WRITE ( 14 )  lad_vertical_gradient_level
+    WRITE ( 14 )  'lad_vertical_gradient_level_in'
+    WRITE ( 14 )  lad_vertical_gradient_level_ind
     WRITE ( 14 )  'last_dt_change                '
     WRITE ( 14 )  last_dt_change
@@ -234 +253 @@
     WRITE ( 14 )  'passive_scalar                '
     WRITE ( 14 )  passive_scalar
+    WRITE ( 14 )  'pch_index                     '
+    WRITE ( 14 )  pch_index
     WRITE ( 14 )  'phi                           '
     WRITE ( 14 )  phi
+    WRITE ( 14 )  'plant_canopy                  '
+    WRITE ( 14 )  plant_canopy
     WRITE ( 14 )  'prandtl_layer                 '
     WRITE ( 14 )  prandtl_layer