Ignore:
Timestamp:
Nov 28, 2007 10:03:58 AM (14 years ago)
Author:
letzel
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/parin.f90

    r110 r138  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +canopy_mode
     7! +drag_coefficient, lad_surface, lad_vertical_gradient,
     8! +lad_vertical_gradient_level, pch_index, plant_canopy
     9! +allocation of leaf area density field
     10!
    711!
    812! Former revisions:
     
    7074                       bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b, &
    7175             bc_q_t,bc_s_b, bc_s_t, bc_sa_t, bc_uv_b, bc_uv_t, &
    72              bottom_salinityflux, building_height, &
    73              building_length_x, building_length_y, building_wall_left, &
    74              building_wall_south, cloud_droplets, cloud_physics, &
     76             bottom_salinityflux, building_height, building_length_x, &
     77             building_length_y, building_wall_left, &
     78             building_wall_south, canopy_mode, cloud_droplets, cloud_physics, &
    7579             conserve_volume_flow, cut_spline_overshoot, damp_level_1d, &
    76              dissipation_1d, dt, dt_pr_1d, dt_run_control_1d, dx, dy, dz, &
    77              dz_max, dz_stretch_factor, dz_stretch_level, e_init, e_min, &
    78              end_time_1d, &
    79              fft_method, galilei_transformation, grid_matching, humidity, &
     80             dissipation_1d, drag_coefficient, dt, dt_pr_1d, &
     81             dt_run_control_1d, dx, dy, dz, dz_max, dz_stretch_factor, &
     82             dz_stretch_level, e_init, e_min, end_time_1d, fft_method, &
     83             galilei_transformation, grid_matching, humidity, &
    8084             inflow_disturbance_begin, inflow_disturbance_end, &
    81              initializing_actions, km_constant, km_damp_max, &
     85             initializing_actions, km_constant, km_damp_max, lad_surface, &
     86             lad_vertical_gradient, lad_vertical_gradient_level, &
    8287             long_filter_factor, loop_optimization, mixing_length_1d, &
    8388             momentum_advec, netcdf_precision, npex, npey, nsor_ini, nx, ny, &
    8489             nz, ocean, omega, outflow_damping_width, overshoot_limit_e, &
    8590             overshoot_limit_pt, overshoot_limit_u, overshoot_limit_v, &
    86              overshoot_limit_w, passive_scalar, phi, prandtl_layer, &
    87              precipitation, pt_reference, pt_surface, &
    88              pt_surface_initial_change, pt_vertical_gradient, &
     91             overshoot_limit_w, passive_scalar, pch_index, phi, & 
     92             plant_canopy, prandtl_layer, precipitation, pt_reference, &
     93             pt_surface, pt_surface_initial_change, pt_vertical_gradient, &
    8994             pt_vertical_gradient_level, q_surface, q_surface_initial_change, &
    9095             q_vertical_gradient, q_vertical_gradient_level, radiation, &
     
    242247       hom = 0.0
    243248
     249       IF ( plant_canopy ) THEN
     250          ALLOCATE( lad(0:nz+1) )
     251          lad(:) = 0.0
     252       ENDIF
     253
    244254    ENDIF
    245255
Note: See TracChangeset for help on using the changeset viewer.