Changeset 1502 for palm/trunk/SOURCE/write_var_list.f90

Timestamp:

Dec 3, 2014 6:22:31 PM (9 years ago)

Author:

kanani

Message:

canopy parameters removed

File:

• palm/trunk/SOURCE/write_var_list.f90 (modified) (9 diffs)

palm/trunk/SOURCE/write_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Canopy module and parameters removed (parameters are always read from 
+! canopy_par NAMELIST for initial and restart runs),
+! Bugfix: added blanks in "cloud_top_radiation"-string to a total of 30 
+! characters
 ! 
 ! Former revisions:
@@ -139 +142 @@
     USE pegrid
 
-    USE plant_canopy_model_mod,                                                &
-        ONLY:  alpha_lad, beta_lad, canopy_drag_coeff, canopy_mode, cthf, lad, &
-               lad_surface, lad_vertical_gradient, lad_vertical_gradient_level,&
-               lad_vertical_gradient_level_ind,                                &
-               lai_beta, leaf_scalar_exch_coeff, leaf_surface_conc, pch_index, &
-               plant_canopy
-    
     USE statistics,                                                            &
         ONLY:  statistic_regions, hom, hom_sum, u_max, u_max_ijk, v_max,       &
@@ -180 +176 @@
     WRITE ( 14 )  'advected_distance_y           '
     WRITE ( 14 )  advected_distance_y
-    WRITE ( 14 )  'alpha_lad                     '
-    WRITE ( 14 )  alpha_lad
     WRITE ( 14 )  'alpha_surface                 '
     WRITE ( 14 )  alpha_surface
@@ -222 +216 @@
     WRITE ( 14 )  'bc_uv_t                       '
     WRITE ( 14 )  bc_uv_t
-    WRITE ( 14 )  'beta_lad                      '
-    WRITE ( 14 )  beta_lad
     WRITE ( 14 )  'bottom_salinityflux           '
     WRITE ( 14 )  bottom_salinityflux
@@ -238 +230 @@
     WRITE ( 14 )  'call_psolver_at_all_substeps  '
     WRITE ( 14 )  call_psolver_at_all_substeps
-    WRITE ( 14 )  'canopy_drag_coeff              '
-    WRITE ( 14 )  canopy_drag_coeff
-    WRITE ( 14 )  'canopy_mode                   '
-    WRITE ( 14 )  canopy_mode
     WRITE ( 14 )  'canyon_height                 '
     WRITE ( 14 )  canyon_height
@@ -274 +262 @@
     WRITE ( 14 )  'curvature_solution_effects    '
     WRITE ( 14 )  curvature_solution_effects
-    WRITE ( 14 )  'cthf                          '
-    WRITE ( 14 )  cthf
     WRITE ( 14 )  'cycle_mg                      '
     WRITE ( 14 )  cycle_mg
@@ -350 +336 @@
     WRITE ( 14 )  'km_constant                   '
     WRITE ( 14 )  km_constant
-    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 )  'lai_beta                      '
-    WRITE ( 14 )  lai_beta
     WRITE ( 14 )  'large_scale_forcing           '
     WRITE ( 14 )  large_scale_forcing
     WRITE ( 14 )  'large_scale_subsidence        '
     WRITE ( 14 )  large_scale_subsidence
-    WRITE ( 14 )  'leaf_scalar_exch_coeff   '
-    WRITE ( 14 )  leaf_scalar_exch_coeff
-    WRITE ( 14 )  'leaf_surface_conc    '
-    WRITE ( 14 )  leaf_surface_conc
     WRITE ( 14 )  'limiter_sedimentation         '
     WRITE ( 14 )  limiter_sedimentation
@@ -418 +388 @@
     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
@@ -462 +428 @@
     WRITE ( 14 )  'q_vertical_gradient_level_ind '
     WRITE ( 14 )  q_vertical_gradient_level_ind
-    WRITE ( 14 )  'cloud_top_radiation       '
+    WRITE ( 14 )  'cloud_top_radiation           '
     WRITE ( 14 )  cloud_top_radiation
     WRITE ( 14 )  'random_generator              '