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

Timestamp:

Oct 21, 2014 10:53:05 AM (10 years ago)

Author:

kanani

Message:

New:
---
Subroutine init_plant_canopy added to module plant_canopy_model_mod. (plant_canopy_model)
Alternative method for lad-profile construction added, also, new parameters added.
(header, package_parin, plant_canopy_model, read_var_list, write_var_list)
plant_canopy_model-dependency added to several subroutines. (Makefile)
New package/namelist canopy_par for canopy-related parameters added. (package_parin)

Changed:
---
Code structure of the plant canopy model changed, all canopy-model related code
combined to module plant_canopy_model_mod. (check_parameters, init_3d_model,
modules, timestep)
Module plant_canopy_model_mod added in USE-lists of some subroutines. (check_parameters,
header, init_3d_model, package_parin, read_var_list, user_init_plant_canopy, write_var_list)
Canopy initialization moved to new subroutine init_plant_canopy. (check_parameters,
init_3d_model, plant_canopy_model)
Calculation of canopy timestep-criterion removed, instead, the canopy
drag is now directly limited in the calculation of the canopy tendency terms.
(plant_canopy_model, timestep)
Some parameters renamed. (check_parameters, header, init_plant_canopy,
plant_canopy_model, read_var_list, write_var_list)
Unnecessary 3d-arrays removed. (init_plant_canopy, plant_canopy_model, user_init_plant_canopy)
Parameter checks regarding canopy initialization added. (check_parameters)
All canopy steering parameters moved from namelist inipar to canopy_par. (package_parin, parin)
Some redundant MPI communication removed. (init_plant_canopy)

Bugfix:
---
Missing KIND-attribute for REAL constant added. (check_parameters)
DO-WHILE-loop for lad-profile output restricted. (header)
Removed double-listing of use_upstream_for_tke in ONLY-list of module
control_parameters. (prognostic_equations)

File:

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

palm/trunk/SOURCE/read_var_list.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Changes in the course of the canopy-model modularization:
+!   parameters alpha_lad, beta_lad, lai_beta added,
+!   module plant_canopy_model_mod added,
+!   drag_coefficient, leaf_surface_concentration and scalar_exchange_coefficient
+!   renamed to canopy_drag_coeff, leaf_surface_conc and leaf_scalar_exch_coeff
 !
 ! Former revisions:
@@ -117 +121 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  inflow_damping_factor, lad, mean_inflow_profiles, pt_init,      &
+        ONLY:  inflow_damping_factor, mean_inflow_profiles, pt_init,           &
                q_init, ref_state, sa_init, u_init, ug, v_init, vg
 
@@ -141 +145 @@
 
     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,                                                            &
@@ -242 +253 @@
           CASE ( 'advected_distance_y' )
              READ ( 13 )  advected_distance_y
+          CASE ( 'alpha_lad' )
+             READ ( 13 )  alpha_lad
           CASE ( 'alpha_surface' )
              READ ( 13 )  alpha_surface
@@ -282 +295 @@
           CASE ( 'bc_uv_t' )
              READ ( 13 )  bc_uv_t
+          CASE ( 'beta_lad' )
+             READ ( 13 )  beta_lad
           CASE ( 'bottom_salinityflux' )
              READ ( 13 )  bottom_salinityflux
@@ -296 +311 @@
           CASE ( 'call_psolver_at_all_substeps' )
              READ ( 13 )  call_psolver_at_all_substeps
+          CASE ( 'canopy_drag_coeff' )
+             READ ( 13 )  canopy_drag_coeff
           CASE ( 'canopy_mode' )
              READ ( 13 )  canopy_mode
@@ -354 +371 @@
           CASE ( 'dpdxy' )
              READ ( 13 )  dpdxy
-          CASE ( 'drag_coefficient' )
-             READ ( 13 )  drag_coefficient
           CASE ( 'drizzle' )
              READ ( 13 )  drizzle
@@ -419 +434 @@
           CASE ( 'lad_vertical_gradient_level_in' )
              READ ( 13 )  lad_vertical_gradient_level_ind
+          CASE ( 'lai_beta' )
+             READ ( 13 )  lai_beta
           CASE ( 'large_scale_forcing' )
              READ ( 13 )  large_scale_forcing
            CASE ( 'large_scale_subsidence' )
              READ ( 13 )  large_scale_subsidence
-          CASE ( 'leaf_surface_concentration' )
-             READ ( 13 )  leaf_surface_concentration
+          CASE ( 'leaf_scalar_exch_coeff' )
+             READ ( 13 )  leaf_scalar_exch_coeff
+          CASE ( 'leaf_surface_conc' )
+             READ ( 13 )  leaf_surface_conc
           CASE ( 'limiter_sedimentation' )
              READ ( 13 )  limiter_sedimentation
@@ -558 +577 @@
           CASE ( 'scalar_advec' )
              READ ( 13 )  scalar_advec
-          CASE ( 'scalar_exchange_coefficient' )
-             READ ( 13 )  scalar_exchange_coefficient
           CASE ( 'simulated_time' )
              READ ( 13 )  simulated_time
@@ -731 +748 @@
 
     USE arrays_3d,                                                             &
-        ONLY:  inflow_damping_factor, lad, mean_inflow_profiles, pt_init,      &
+        ONLY:  inflow_damping_factor, mean_inflow_profiles, pt_init,           &
                q_init, ref_state, sa_init, u_init, ug, v_init, vg