c*********************************************************************** subroutine default_parameters(N_species) c*********************************************************************** integer ns parameter(ns=5) c canopy parameters integer N_species,specie integer N_layer common /layer_segments/ N_layer character *15 specie_name(ns) common /specie_names/specie_name real rms_height_cm,cor_length_cm common /surface_stats/rms_height_cm,cor_length_cm character*1000 comment common /test_comment/ comment c program run switches integer canopy_coho_flag,specie_coho_flag(ns) integer plant_coho_flag(ns) common /coho_flags_v/ canopy_coho_flag,specie_coho_flag, & plant_coho_flag integer vvvv_flg,hhhh_flg,hvhv_flg,hhvv_flg common /pol_flags/ vvvv_flg,hhhh_flg,hvhv_flg,hhvv_flg integer leaf_flag_v(ns),stalk_flag_v(ns),grain_flag_v(ns) integer grain_leaf_flag(ns),grain_stalk_flag(ns) integer stalk_leaf_flag(ns),leaf_leaf_flag(ns) common /scat_term_flags_v/ leaf_flag_v,stalk_flag_v & ,grain_flag_v,grain_leaf_flag,grain_stalk_flag, & stalk_leaf_flag,leaf_leaf_flag c radar parameters real frequency_ghz,incident_angle_degrees,azimuth_angle_degrees common/radar/frequency_ghz,incident_angle_degrees & ,azimuth_angle_degrees character *15 illumination common /antenna_pattern/ illumination real spot_size_sqr_meters common /pattern_data_in/ spot_size_sqr_meters c specie parameters character *15 specie_structure(ns) common /specie_structure_v/ specie_structure real N_plants_per_sqr_meter(ns) common /unfrm_data_in/ N_plants_per_sqr_meter c row structure parameters real N_plants_per_row_meter(ns),row_spacing_cm(ns) real row_sigma_cm(ns) common /row_data_in/N_plants_per_row_meter,row_spacing_cm & ,row_sigma_cm character *15 row_plant_pdf_x_v(ns),row_plant_pdf_y_v(ns) character *15 row_plant_depend_v(ns) common /row_plant_dist_v/ row_plant_pdf_x_v,row_plant_pdf_y_v, & row_plant_depend_v character *15 row_space_stat_v(ns) common /row_space_model_v/ row_space_stat_v real azimuth_sweep_min_degrees(ns),azimuth_sweep_max_degrees(ns) real azimuth_incrmnt_degrees(ns) integer azimuth_sweep_flag_v(ns) common /azimuth_sweep_data_v/azimuth_sweep_min_degrees, & azimuth_sweep_max_degrees,azimuth_incrmnt_degrees, & azimuth_sweep_flag_v real shadow_bound common/shadow/ shadow_bound real pi c plant structure parameters real canopy_layer_height_cm,leaf_layer_size_cm(ns) real leaf_center_cm(ns),leaf_hole_cm(ns) common /layer_structure/ canopy_layer_height_cm, & leaf_layer_size_cm,leaf_center_cm,leaf_hole_cm integer N_leaf_per_plant(ns) common /leaf_number_v/ N_leaf_per_plant c dielectric parameters real leaf_volumetric_moisture_Mv(ns) real stalk_volumetric_moisture_Mv(ns) real grain_volumetric_moisture_Mv(ns) real soil_volumetric_moisture_Mv common /volumetric_moisture/ leaf_volumetric_moisture_Mv, & stalk_volumetric_moisture_Mv,grain_volumetric_moisture_Mv, & soil_volumetric_moisture_Mv real soil_prcnt_clay,soil_prcnt_sand common /soil_composition/ soil_prcnt_clay,soil_prcnt_sand real vegetation_temperature_deg_C common /temperatures/vegetation_temperature_deg_C complex epsln_leaf(ns),epsln_soil_in complex epsln_stalk(ns),epsln_grain(ns) common /dielectrics_v/ epsln_leaf,epsln_soil_in, & epsln_stalk,epsln_grain c leaf structure parameters character*15 leaf_cross_section(ns) common /leaf_cross_section/leaf_cross_section real leaf_blade_thick_cm(ns),leaf_blade_width_cm(ns) real leaf_blade_curvature(ns) real leaf_angle_degrees(ns) common /leaf_blade_cross_section/leaf_blade_thick_cm, & leaf_blade_width_cm,leaf_blade_curvature, & leaf_angle_degrees character*15 leaf_blade_taper(ns) common /blade_leaf_taper_v/ leaf_blade_taper real leaf_diameter_cm(ns) common /leaf_circle_cross_section/leaf_diameter_cm character*15 leaf_circle_taper(ns) common /circ_leaf_taper_v/ leaf_circle_taper character *15 leaf_alpha_pdf(ns),leaf_v_pdf(ns) common /leaf_pdf_v/ leaf_alpha_pdf,leaf_v_pdf real leaf_model_correlation(3,3,ns),leaf_model_mean(3,ns) common /leaf_model_stats/leaf_model_correlation,leaf_model_mean c stalk structure parameters character*15 stalk_cross_section(ns) common /stalk_cross_section/ stalk_cross_section real stalk_blade_thick_cm(ns),stalk_blade_width_cm(ns) real stalk_blade_curvature(ns) real stalk_angle_degrees(ns) common /stalk_blade_cross_section/stalk_blade_thick_cm, & stalk_blade_width_cm,stalk_blade_curvature, & stalk_angle_degrees character*15 stalk_blade_taper(ns) common /blade_stalk_taper_v/ stalk_blade_taper real stalk_diameter_cm(ns),stalk_diam_taper(ns) common /stalk_circle_cross_section/stalk_diameter_cm, & stalk_diam_taper character*15 stalk_circle_taper(ns) common /circ_stalk_taper_v/ stalk_circle_taper character*15 stalk_alpha_pdf(ns),stalk_a_pdf(ns) character*15 stalk_z0_pdf(ns) common /stalk_pdf_v/ stalk_alpha_pdf,stalk_a_pdf,stalk_z0_pdf real a_mean(ns),a_sigma(ns) common /a_stat_v/ a_mean,a_sigma real z0_mean_cm(ns),z0_sigma_cm(ns) common /z0_stat_v/ z0_mean_cm,z0_sigma_cm c grain structure parameters real grain_diameter_cm(ns) common /grain_circle_cross_section/grain_diameter_cm character*15 grain_alpha_pdf(ns),grain_a_pdf(ns) character*15 grain_h_pdf(ns) common /grain_pdf_v/ grain_alpha_pdf,grain_a_pdf,grain_h_pdf real grn_a_mean(ns),grn_a_sigma(ns) common /grn_a_stat_v/ grn_a_mean,grn_a_sigma real h_mean_cm(ns),h_sigma_cm(ns) common /h_stat_v/ h_mean_cm,h_sigma_cm real bound common/int_data/ bound do specie=1,N_species c canopy parameters N_layer=15 specie_name(specie)='wheat' rms_height_cm=0.3 c rms_height_cm=0.28 cor_length_cm=10.0 comment='5/17 data; C-band' c program run switches canopy_coho_flag=0 specie_coho_flag(specie)=0 plant_coho_flag(specie)=0 vvvv_flg=1 hhhh_flg=1 hvhv_flg=1 hhvv_flg=0 leaf_flag_v(specie)=1 stalk_flag_v(specie)=1 grain_flag_v(specie)=0 grain_leaf_flag(specie)=0 grain_stalk_flag(specie)=0 stalk_leaf_flag(specie)=0 leaf_leaf_flag(specie)=0 c radar parameters frequency_ghz=5.3 incident_angle_degrees=70.0 azimuth_angle_degrees=0.0 illumination='uniform' spot_size_sqr_meters=0.70 c specie parameters specie_structure(specie)='uniform' N_plants_per_sqr_meter(specie)=427.4 c N_plants_per_sqr_meter(specie)=564.1 c row structure parameters N_plants_per_row_meter(specie)=82.7 row_spacing_cm(specie)=19.35 c row_spacing_cm(specie)=14.66 row_sigma_cm(specie)=0.0 row_plant_pdf_x_v(specie)='gaussian' row_plant_pdf_y_v(specie)='uniform' row_plant_depend_v(specie)='independent' row_space_stat_v(specie)='deterministic' azimuth_sweep_min_degrees(specie)=0.0 azimuth_sweep_max_degrees(specie)=60.0 azimuth_incrmnt_degrees(specie)=1.0 azimuth_sweep_flag_v(specie)=0 pi=4.0*atan(1.0) shadow_bound=0.5*row_spacing_cm(specie)/ & tan(incident_angle_degrees*pi/180.) c shadow_bound=0.0 print*, 'shadow_bound',shadow_bound c plant structure parameters canopy_layer_height_cm= 34.0 leaf_layer_size_cm(specie)=21.9 leaf_center_cm(specie)=13.95 c leaf_center_cm(specie)=20.0 leaf_hole_cm(specie)=0.1 N_leaf_per_plant(specie)=4 c dielectric parameters leaf_volumetric_moisture_Mv(specie)=0.525 stalk_volumetric_moisture_Mv(specie)=0.57 grain_volumetric_moisture_Mv(specie)=0.0 soil_volumetric_moisture_Mv=0.09 soil_prcnt_clay=0.0853 soil_prcnt_sand=0.4196 vegetation_temperature_deg_C=22.0 epsln_leaf(specie)=cmplx(1.0,0.0) epsln_soil_in=cmplx(1.0,0.0) epsln_stalk(specie)=cmplx(1.0,0.0) epsln_grain(specie)=cmplx(1.0,0.0) c leaf structure parameters leaf_cross_section(specie)='blade' leaf_blade_thick_cm(specie)=0.02 leaf_blade_width_cm(specie)=1.0 leaf_blade_curvature(specie)=0.01 leaf_angle_degrees(specie)=5.0 leaf_blade_taper(specie)='straight' leaf_diameter_cm(specie)=0.3 leaf_circle_taper(specie)='straight' leaf_alpha_pdf(specie)='uniform' leaf_v_pdf(specie)='gaussian' leaf_model_correlation(1,1,specie)=1.08202 leaf_model_correlation(1,2,specie)=0.133551 leaf_model_correlation(1,3,specie)=-1.55155 leaf_model_correlation(2,1,specie)=0.133551 leaf_model_correlation(2,2,specie)=0.0364981 leaf_model_correlation(2,3,specie)=-0.0446371 leaf_model_correlation(3,1,specie)=-1.55155 leaf_model_correlation(3,2,specie)=-0.0446371 leaf_model_correlation(3,3,specie)=6.65970 leaf_model_mean(1,specie)=3.80629 leaf_model_mean(2,specie)=0.567172 leaf_model_mean(3,specie)=8.88620 c stalk structure parameters stalk_cross_section(specie)='circle' stalk_blade_thick_cm(specie)=0.0254 stalk_blade_width_cm(specie)=0.45 stalk_blade_curvature(specie)=0.01 stalk_angle_degrees(specie)=5.0 stalk_blade_taper(specie)='straight' stalk_diameter_cm(specie)=0.301 stalk_diam_taper(specie)=0.19 stalk_circle_taper(specie)='poly_4' stalk_alpha_pdf(specie)='uniform' stalk_a_pdf(specie)='rayleigh' stalk_z0_pdf(specie)='gaussian' c a_mean(specie)=0.128 c a_sigma(specie)=0.128 a_mean(specie)=0.128 a_sigma(specie)=0.128 z0_mean_cm(specie)=24.9 z0_sigma_cm(specie)=2.26 c grain structure parameters grain_diameter_cm(specie)=1.0 c grain_diameter_cm(specie)=0.7 grain_alpha_pdf(specie)='uniform' grain_a_pdf(specie)='rayleigh' grain_h_pdf(specie)='gaussian' grn_a_mean(specie)=0.03 grn_a_sigma(specie)=0.03 c h_mean_cm(specie)=6.44 h_mean_cm(specie)=10.0 h_sigma_cm(specie)=1.0 c integration parameters bound=0.05 enddo return end