Changeset 138 for palm/trunk/SOURCE/parin.f90
 Timestamp:
 Nov 28, 2007 10:03:58 AM (14 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/parin.f90
r110 r138 4 4 ! Actual revisions: 5 5 !  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 ! 7 11 ! 8 12 ! Former revisions: … … 70 74 bc_ns, bc_p_b, bc_p_t, bc_pt_b, bc_pt_t, bc_q_b, & 71 75 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, c loud_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, & 75 79 conserve_volume_flow, cut_spline_overshoot, damp_level_1d, & 76 dissipation_1d, d t, dt_pr_1d, dt_run_control_1d, dx, dy, dz, &77 d z_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, & 80 84 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, & 82 87 long_filter_factor, loop_optimization, mixing_length_1d, & 83 88 momentum_advec, netcdf_precision, npex, npey, nsor_ini, nx, ny, & 84 89 nz, ocean, omega, outflow_damping_width, overshoot_limit_e, & 85 90 overshoot_limit_pt, overshoot_limit_u, overshoot_limit_v, & 86 overshoot_limit_w, passive_scalar, p hi, prandtl_layer, &87 p recipitation, 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, & 89 94 pt_vertical_gradient_level, q_surface, q_surface_initial_change, & 90 95 q_vertical_gradient, q_vertical_gradient_level, radiation, & … … 242 247 hom = 0.0 243 248 249 IF ( plant_canopy ) THEN 250 ALLOCATE( lad(0:nz+1) ) 251 lad(:) = 0.0 252 ENDIF 253 244 254 ENDIF 245 255
Note: See TracChangeset
for help on using the changeset viewer.