From e65c4c4cea2102c3a71d5ccdadcf1d26bc9fc6f0 Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 23 Sep 2022 00:00:11 +0100 Subject: [PATCH 01/10] Problem with socrates compilation is that the path_names file is statically defined, so it is not automatically updated when a new version of socrates is used. It would be useful to be able to support more than 1 version of socrates. Here I have split the socrates-specific path names into seperate files depending on the version, and have allowed the socrates-version to be specified as an argument when the SocratesCodeBase object is defined. --- src/extra/model/socrates/path_names | 293 ----------------- .../socrates/socrates_version_paths/1703 | 293 +++++++++++++++++ .../socrates/socrates_version_paths/2207 | 296 ++++++++++++++++++ src/extra/python/isca/codebase.py | 10 +- 4 files changed, 597 insertions(+), 295 deletions(-) create mode 100644 src/extra/model/socrates/socrates_version_paths/1703 create mode 100644 src/extra/model/socrates/socrates_version_paths/2207 diff --git a/src/extra/model/socrates/path_names b/src/extra/model/socrates/path_names index c92ad053f..3bc331864 100644 --- a/src/extra/model/socrates/path_names +++ b/src/extra/model/socrates/path_names @@ -197,299 +197,6 @@ shared/topography/gaussian_topog.F90 shared/topography/topography.F90 shared/tracer_manager/tracer_manager.F90 shared/tridiagonal/tridiagonal.F90 -atmos_param/socrates/src/trunk/src/aux/cdf_struc.finc -atmos_param/socrates/src/trunk/src/aux/cdl_struc.finc -atmos_param/socrates/src/trunk/src/aux/dec_disort.finc -atmos_param/socrates/src/trunk/src/aux/call_disort.finc -atmos_param/socrates/src/trunk/src/general/batch_error_main.finc -atmos_param/socrates/src/trunk/src/general/aerosol_component.finc -atmos_param/socrates/src/trunk/src/radiance_core/gauss_angle.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_dirn_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_brdf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eval_uplm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/shell_sort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rad_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/check_phf_term.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_surf_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_absorb.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calculate_density.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_flux_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ice_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_tbl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eig_sys.F90 -atmos_param/socrates/src/trunk/src/radiance_core/adjust_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_rad_layer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_dimen.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/interp1d.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_zero.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_fit.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gaussian_weight_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_list_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/trans_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/band_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_sample.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_matrix_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/grey_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_gauss_weight_90.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sum_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ses_rescale_contm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_evaluate.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cg_kappa_ms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_bound.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_gas_flux.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_pointer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_geometry.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_phase_fnc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_sph.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_one_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_top_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_cloud_parameter.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_level_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv_scl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_matrix_pentadiagonal.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_out.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sol_scat_cos.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_full.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eigenvalue_tri.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_homogen_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_continuum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mixed_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_aer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_inhom_corr_cairns.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rebin_esft_terms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_gather_spline.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_cg_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ukca_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_wenyi.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering_all.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt.F90 -atmos_param/socrates/src/trunk/src/radiance_core/overlap_coupled.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_cld.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_coefficient_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/build_sph_matrix.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_tiled_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/column_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_control.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_no_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_water_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/legendre_weight.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_without_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_albedo_basis.F90 -atmos_param/socrates/src/trunk/src/radiance_core/increment_rad_cf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scat_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_ses.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_ss_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/layer_part_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_optical_properties.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/hemi_sph_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/read_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_t_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_stream.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_tseq.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cloud_maxcs_split.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_atm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region.F90 -atmos_param/socrates/src/trunk/src/radiance_core/quicksort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_omega.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_radiance_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_poly.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_truncation.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/aggregate_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/radiance_calc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ir_source.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_wat.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_gill.F90 -atmos_param/socrates/src/trunk/src/aux/write_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/read_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_representation_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_profile_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/write_samson.f90 -atmos_param/socrates/src/trunk/src/aux/filter_function.f90 -atmos_param/socrates/src/trunk/src/aux/qsat_alg_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/method_merge_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/rand_gauss.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_11.f90 -atmos_param/socrates/src/trunk/src/general/make_block_12.f90 -atmos_param/socrates/src/trunk/src/general/sum_unity.f90 -atmos_param/socrates/src/trunk/src/general/trapezoid_90.f90 -atmos_param/socrates/src/trunk/src/general/get_free_unit.F90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter.f90 -atmos_param/socrates/src/trunk/src/general/make_block_18.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_gas_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_17.f90 -atmos_param/socrates/src/trunk/src/general/make_block_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_19.f90 -atmos_param/socrates/src/trunk/src/general/make_block_0.f90 -atmos_param/socrates/src/trunk/src/general/make_block_10.f90 -atmos_param/socrates/src/trunk/src/general/make_block_14.f90 -atmos_param/socrates/src/trunk/src/general/read_solar_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_cont_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3_1.f90 -atmos_param/socrates/src/trunk/src/general/set_interactive.f90 -atmos_param/socrates/src/trunk/src/general/make_block_8.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3.f90 -atmos_param/socrates/src/trunk/src/general/make_block_15.f90 -atmos_param/socrates/src/trunk/src/general/make_block_9.f90 -atmos_param/socrates/src/trunk/src/general/read_instrument_response_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_4.f90 -atmos_param/socrates/src/trunk/src/general/map_heap_func.f90 -atmos_param/socrates/src/trunk/src/general/make_block_6.f90 -atmos_param/socrates/src/trunk/src/general/out_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_jeans_tail.f90 -atmos_param/socrates/src/trunk/src/general/solar_intensity.f90 -atmos_param/socrates/src/trunk/src/general/make_block_5.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_h2he.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_refract.f90 -atmos_param/socrates/src/trunk/src/modules_gen/scatter_pp_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_std_io_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdl_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/refract_re_ccf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_inst_flt.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_pp_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/weighting_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/error_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/file_type_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_data_in_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/unit_list_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/realtypefx_rd.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_solarspec.f90 -atmos_param/socrates/src/trunk/src/modules_gen/interp_mode_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_fixed_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/input_head_pcf.f90 -atmos_param/socrates/src/trunk/src/radiation_control/close_cloud_gen.F90 -atmos_param/socrates/src/trunk/src/radiation_control/mcica_order.F90 -atmos_param/socrates/src/trunk/src/radiation_control/rand_no_mcica.F90 -atmos_param/socrates/src/trunk/src/radiation_control/set_moist_aerosol_properties.F90 -atmos_param/socrates/src/trunk/src/radiation_control/mcica_mod.F90 -atmos_param/socrates/src/trunk/src/radiation_control/cld_generator_mod.F90 -atmos_param/socrates/src/trunk/src/radiation_control/open_cloud_gen.F90 -atmos_param/socrates/src/trunk/src/modules_core/errormessagelength_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90 -atmos_param/socrates/src/trunk/src/modules_core/rad_ccf.F90 -atmos_param/socrates/src/trunk/src/modules_core/yomhook.F90 -atmos_param/socrates/src/trunk/src/modules_core/parkind1.F90 -atmos_param/socrates/src/trunk/src/modules_core/file_manager.F90 -atmos_param/socrates/src/trunk/src/modules_core/missing_data_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/vectlib_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/ereport_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/realtype_rd.f90 -atmos_param/socrates/src/trunk/src/modules_core/filenamelength_mod.F90 -atmos_param/socrates/src/trunk/src/aux/output_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_ss_cdl.f -atmos_param/socrates/src/trunk/src/aux/split_cdl_line.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_samson_p_field.f -atmos_param/socrates/src/trunk/src/aux/output_opt_profile_cdl.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdl.f -atmos_param/socrates/src/trunk/src/aux/fnc_density.f -atmos_param/socrates/src/trunk/src/aux/calc_volume_fraction.f -atmos_param/socrates/src/trunk/src/aux/calc_cdl_stride.f -atmos_param/socrates/src/trunk/src/aux/interp.f -atmos_param/socrates/src/trunk/src/aux/merge_pressure.f -atmos_param/socrates/src/trunk/src/aux/angular_control_cdf.f -atmos_param/socrates/src/trunk/src/aux/extinction_profile.f -atmos_param/socrates/src/trunk/src/aux/read_genln2_flux.f -atmos_param/socrates/src/trunk/src/aux/write_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_var_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_dimen_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/seaalbedo_driver.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdf.f -atmos_param/socrates/src/trunk/src/aux/angular_control.f -atmos_param/socrates/src/trunk/src/aux/output_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_view_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg_ice.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdf.f -atmos_param/socrates/src/trunk/src/aux/name_length.f -atmos_param/socrates/src/trunk/src/aux/sort_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/read_averaged_scatter.f -atmos_param/socrates/src/trunk/src/aux/write_cdl_field.f -atmos_param/socrates/src/trunk/src/aux/planck_ss_source.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdf.f -atmos_param/socrates/src/trunk/src/aux/interpolate_p.f -atmos_param/socrates/src/trunk/src/aux/write_profile.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdl.f -atmos_param/socrates/src/trunk/src/aux/planck_cumul.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_surf_cdl.f -atmos_param/socrates/src/trunk/src/aux/mono_rad_ss.f -atmos_param/socrates/src/trunk/src/aux/assign_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/qsat.f -atmos_param/socrates/src/trunk/src/aux/set_state.f -atmos_param/socrates/src/trunk/src/aux/l_find_component.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg.f -atmos_param/socrates/src/trunk/src/aux/read_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdl.f -atmos_param/socrates/src/trunk/src/general/non_blank.f -atmos_param/socrates/src/trunk/src/general/remove_blank.f -atmos_param/socrates/src/trunk/src/general/simpsons_rule.f -atmos_param/socrates/src/trunk/src/general/point_bracket.f -atmos_param/socrates/src/trunk/src/general/trapezoid.f -atmos_param/socrates/src/trunk/src/general/planck.f -atmos_param/socrates/src/trunk/src/general/read_line.f -atmos_param/socrates/src/trunk/src/general/make_block_6_1.f -atmos_param/socrates/src/trunk/src/general/calc_thermal_coeff.f -atmos_param/socrates/src/trunk/src/general/open_file_out.f -atmos_param/socrates/src/trunk/src/general/back_substitute.f -atmos_param/socrates/src/trunk/src/general/open_file_in.f -atmos_param/socrates/src/trunk/src/general/integrate_spline.f -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_air.f -atmos_param/socrates/src/trunk/src/general/lock_code.f -atmos_param/socrates/src/trunk/src/general/make_block_6_2.f -atmos_param/socrates/src/trunk/src/general/inner_bracket.f -atmos_param/socrates/src/trunk/src/general/svd_decompose.f -atmos_param/socrates/src/trunk/src/general/calc_planck_tbl.f -atmos_param/socrates/src/trunk/src/general/read_word.f atmos_param/socrates/interface/read_control.F90 atmos_param/socrates/interface/set_atm.F90 atmos_param/socrates/interface/set_cld.F90 diff --git a/src/extra/model/socrates/socrates_version_paths/1703 b/src/extra/model/socrates/socrates_version_paths/1703 new file mode 100644 index 000000000..067d163e1 --- /dev/null +++ b/src/extra/model/socrates/socrates_version_paths/1703 @@ -0,0 +1,293 @@ +atmos_param/socrates/src/trunk/src/aux/cdf_struc.finc +atmos_param/socrates/src/trunk/src/aux/cdl_struc.finc +atmos_param/socrates/src/trunk/src/aux/dec_disort.finc +atmos_param/socrates/src/trunk/src/aux/call_disort.finc +atmos_param/socrates/src/trunk/src/general/batch_error_main.finc +atmos_param/socrates/src/trunk/src/general/aerosol_component.finc +atmos_param/socrates/src/trunk/src/radiance_core/gauss_angle.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_dirn_weights.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_brdf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/triple_solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/eval_uplm.F90 +atmos_param/socrates/src/trunk/src/radiance_core/shell_sort.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rad_pcf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/check_phf_term.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_n_source_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_surf_rad.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap.F90 +atmos_param/socrates/src/trunk/src/radiance_core/scale_absorb.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calculate_density.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_flux_ipa.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ice_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_tbl.F90 +atmos_param/socrates/src/trunk/src/radiance_core/eig_sys.F90 +atmos_param/socrates/src/trunk/src/radiance_core/adjust_ir_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_rad_layer.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_dimen.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mcica_column.F90 +atmos_param/socrates/src/trunk/src/radiance_core/interp1d.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_zero.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spline_fit.F90 +atmos_param/socrates/src/trunk/src/radiance_core/gaussian_weight_pcf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/gas_list_pcf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/trans_source_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/band_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mcica_sample.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct_hogan.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_sol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sph_matrix_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_spectrum.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_app_scat.F90 +atmos_param/socrates/src/trunk/src/radiance_core/grey_opt_prop.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_gauss_weight_90.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sum_k.F90 +atmos_param/socrates/src/trunk/src/radiance_core/ses_rescale_contm.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spline_evaluate.F90 +atmos_param/socrates/src/trunk/src/radiance_core/cg_kappa_ms.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_bound.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_gas_flux.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_pointer.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_geometry.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_phase_fnc.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_sph.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_k.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_one_gas.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_top_rad.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_n_cloud_parameter.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_level_weights.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv_scl.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_matrix_pentadiagonal.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mix_app_scat.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_out.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sol_scat_cos.F90 +atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_full.F90 +atmos_param/socrates/src/trunk/src/radiance_core/eigenvalue_tri.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_homogen_direct.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_continuum.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mixed_solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_aer.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_inhom_corr_cairns.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rebin_esft_terms.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mix_column.F90 +atmos_param/socrates/src/trunk/src/radiance_core/prsc_gather_spline.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_cg_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_pt_lookup.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ukca_aerosol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/scale_wenyi.F90 +atmos_param/socrates/src/trunk/src/radiance_core/triple_column.F90 +atmos_param/socrates/src/trunk/src/radiance_core/single_scattering_all.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_pt.F90 +atmos_param/socrates/src/trunk/src/radiance_core/overlap_coupled.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_cld.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solar_coefficient_basic.F90 +atmos_param/socrates/src/trunk/src/radiance_core/build_sph_matrix.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv.F90 +atmos_param/socrates/src/trunk/src/radiance_core/augment_tiled_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/column_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/augment_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_control.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_basic.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sph_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_no_scat.F90 +atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_sol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_water_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/legendre_weight.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_without_gas.F90 +atmos_param/socrates/src/trunk/src/radiance_core/diff_albedo_basis.F90 +atmos_param/socrates/src/trunk/src/radiance_core/increment_rad_cf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/single_scat_sol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_aerosol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_ses.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_ss_prop.F90 +atmos_param/socrates/src/trunk/src/radiance_core/prsc_opt_prop.F90 +atmos_param/socrates/src/trunk/src/radiance_core/layer_part_integ.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_fast_lw.F90 +atmos_param/socrates/src/trunk/src/radiance_core/gas_optical_properties.F90 +atmos_param/socrates/src/trunk/src/radiance_core/single_scattering.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_ir_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/hemi_sph_integ.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/read_spectrum.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_t_lookup.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_triple.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_stream.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_hogan.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_tseq.F90 +atmos_param/socrates/src/trunk/src/radiance_core/cloud_maxcs_split.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_atm.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region.F90 +atmos_param/socrates/src/trunk/src/radiance_core/quicksort.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_omega.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_radiance_ipa.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region_fast_lw.F90 +atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_poly.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_truncation.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/aggregate_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/radiance_calc.F90 +atmos_param/socrates/src/trunk/src/radiance_core/ir_source.F90 +atmos_param/socrates/src/trunk/src/aux/qsat_wat.F90 +atmos_param/socrates/src/trunk/src/aux/qsat_gill.F90 +atmos_param/socrates/src/trunk/src/aux/write_cdf.f90 +atmos_param/socrates/src/trunk/src/aux/read_cdf.f90 +atmos_param/socrates/src/trunk/src/aux/aerosol_representation_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/aerosol_profile_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/write_samson.f90 +atmos_param/socrates/src/trunk/src/aux/filter_function.f90 +atmos_param/socrates/src/trunk/src/aux/qsat_alg_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/method_merge_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/rand_gauss.f90 +atmos_param/socrates/src/trunk/src/general/make_block_2_1.f90 +atmos_param/socrates/src/trunk/src/general/make_block_11.f90 +atmos_param/socrates/src/trunk/src/general/make_block_12.f90 +atmos_param/socrates/src/trunk/src/general/sum_unity.f90 +atmos_param/socrates/src/trunk/src/general/trapezoid_90.f90 +atmos_param/socrates/src/trunk/src/general/get_free_unit.F90 +atmos_param/socrates/src/trunk/src/general/rayleigh_scatter.f90 +atmos_param/socrates/src/trunk/src/general/make_block_18.f90 +atmos_param/socrates/src/trunk/src/general/remove_negative_gas_90.f90 +atmos_param/socrates/src/trunk/src/general/make_block_17.f90 +atmos_param/socrates/src/trunk/src/general/make_block_1.f90 +atmos_param/socrates/src/trunk/src/general/make_block_19.f90 +atmos_param/socrates/src/trunk/src/general/make_block_0.f90 +atmos_param/socrates/src/trunk/src/general/make_block_10.f90 +atmos_param/socrates/src/trunk/src/general/make_block_14.f90 +atmos_param/socrates/src/trunk/src/general/read_solar_spectrum.f90 +atmos_param/socrates/src/trunk/src/general/remove_negative_cont_90.f90 +atmos_param/socrates/src/trunk/src/general/make_block_3_1.f90 +atmos_param/socrates/src/trunk/src/general/set_interactive.f90 +atmos_param/socrates/src/trunk/src/general/make_block_8.f90 +atmos_param/socrates/src/trunk/src/general/make_block_3.f90 +atmos_param/socrates/src/trunk/src/general/make_block_15.f90 +atmos_param/socrates/src/trunk/src/general/make_block_9.f90 +atmos_param/socrates/src/trunk/src/general/read_instrument_response_90.f90 +atmos_param/socrates/src/trunk/src/general/make_block_4.f90 +atmos_param/socrates/src/trunk/src/general/map_heap_func.f90 +atmos_param/socrates/src/trunk/src/general/make_block_6.f90 +atmos_param/socrates/src/trunk/src/general/out_spectrum.f90 +atmos_param/socrates/src/trunk/src/general/make_block_2.f90 +atmos_param/socrates/src/trunk/src/general/rayleigh_jeans_tail.f90 +atmos_param/socrates/src/trunk/src/general/solar_intensity.f90 +atmos_param/socrates/src/trunk/src/general/make_block_5.f90 +atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_h2he.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_cdf_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_refract.f90 +atmos_param/socrates/src/trunk/src/modules_gen/scatter_pp_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_std_io_icf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdl_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/refract_re_ccf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_inst_flt.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_pp_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/weighting_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/error_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/file_type_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_data_in_icf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdf_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/unit_list_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/realtypefx_rd.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_solarspec.f90 +atmos_param/socrates/src/trunk/src/modules_gen/interp_mode_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_fixed_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/input_head_pcf.f90 +atmos_param/socrates/src/trunk/src/radiation_control/close_cloud_gen.F90 +atmos_param/socrates/src/trunk/src/radiation_control/mcica_order.F90 +atmos_param/socrates/src/trunk/src/radiation_control/rand_no_mcica.F90 +atmos_param/socrates/src/trunk/src/radiation_control/set_moist_aerosol_properties.F90 +atmos_param/socrates/src/trunk/src/radiation_control/mcica_mod.F90 +atmos_param/socrates/src/trunk/src/radiation_control/cld_generator_mod.F90 +atmos_param/socrates/src/trunk/src/radiation_control/open_cloud_gen.F90 +atmos_param/socrates/src/trunk/src/modules_core/errormessagelength_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90 +atmos_param/socrates/src/trunk/src/modules_core/rad_ccf.F90 +atmos_param/socrates/src/trunk/src/modules_core/yomhook.F90 +atmos_param/socrates/src/trunk/src/modules_core/parkind1.F90 +atmos_param/socrates/src/trunk/src/modules_core/file_manager.F90 +atmos_param/socrates/src/trunk/src/modules_core/missing_data_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/vectlib_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/ereport_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/realtype_rd.f90 +atmos_param/socrates/src/trunk/src/modules_core/filenamelength_mod.F90 +atmos_param/socrates/src/trunk/src/aux/output_vert_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_input_ss_cdl.f +atmos_param/socrates/src/trunk/src/aux/split_cdl_line.f +atmos_param/socrates/src/trunk/src/aux/input_cloud_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdl.f +atmos_param/socrates/src/trunk/src/aux/read_samson_p_field.f +atmos_param/socrates/src/trunk/src/aux/output_opt_profile_cdl.f +atmos_param/socrates/src/trunk/src/aux/input_cloud_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_radiance_cdl.f +atmos_param/socrates/src/trunk/src/aux/fnc_density.f +atmos_param/socrates/src/trunk/src/aux/calc_volume_fraction.f +atmos_param/socrates/src/trunk/src/aux/calc_cdl_stride.f +atmos_param/socrates/src/trunk/src/aux/interp.f +atmos_param/socrates/src/trunk/src/aux/merge_pressure.f +atmos_param/socrates/src/trunk/src/aux/angular_control_cdf.f +atmos_param/socrates/src/trunk/src/aux/extinction_profile.f +atmos_param/socrates/src/trunk/src/aux/read_genln2_flux.f +atmos_param/socrates/src/trunk/src/aux/write_cdl.f +atmos_param/socrates/src/trunk/src/aux/find_var_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdf.f +atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdl.f +atmos_param/socrates/src/trunk/src/aux/find_dimen_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_flux_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_horiz_cdl.f +atmos_param/socrates/src/trunk/src/aux/seaalbedo_driver.f +atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdf.f +atmos_param/socrates/src/trunk/src/aux/angular_control.f +atmos_param/socrates/src/trunk/src/aux/output_vert_cdf.f +atmos_param/socrates/src/trunk/src/aux/output_view_cdl.f +atmos_param/socrates/src/trunk/src/aux/read_raw_profile.f +atmos_param/socrates/src/trunk/src/aux/qsat_gg_ice.f +atmos_param/socrates/src/trunk/src/aux/output_flux_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdf.f +atmos_param/socrates/src/trunk/src/aux/name_length.f +atmos_param/socrates/src/trunk/src/aux/sort_raw_profile.f +atmos_param/socrates/src/trunk/src/aux/read_averaged_scatter.f +atmos_param/socrates/src/trunk/src/aux/write_cdl_field.f +atmos_param/socrates/src/trunk/src/aux/planck_ss_source.f +atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdf.f +atmos_param/socrates/src/trunk/src/aux/output_radiance_cdf.f +atmos_param/socrates/src/trunk/src/aux/interpolate_p.f +atmos_param/socrates/src/trunk/src/aux/write_profile.f +atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdl.f +atmos_param/socrates/src/trunk/src/aux/planck_cumul.f +atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdf.f +atmos_param/socrates/src/trunk/src/aux/output_surf_cdl.f +atmos_param/socrates/src/trunk/src/aux/mono_rad_ss.f +atmos_param/socrates/src/trunk/src/aux/assign_horiz_cdl.f +atmos_param/socrates/src/trunk/src/aux/qsat.f +atmos_param/socrates/src/trunk/src/aux/set_state.f +atmos_param/socrates/src/trunk/src/aux/l_find_component.f +atmos_param/socrates/src/trunk/src/aux/qsat_gg.f +atmos_param/socrates/src/trunk/src/aux/read_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdl.f +atmos_param/socrates/src/trunk/src/general/non_blank.f +atmos_param/socrates/src/trunk/src/general/remove_blank.f +atmos_param/socrates/src/trunk/src/general/simpsons_rule.f +atmos_param/socrates/src/trunk/src/general/point_bracket.f +atmos_param/socrates/src/trunk/src/general/trapezoid.f +atmos_param/socrates/src/trunk/src/general/planck.f +atmos_param/socrates/src/trunk/src/general/read_line.f +atmos_param/socrates/src/trunk/src/general/make_block_6_1.f +atmos_param/socrates/src/trunk/src/general/calc_thermal_coeff.f +atmos_param/socrates/src/trunk/src/general/open_file_out.f +atmos_param/socrates/src/trunk/src/general/back_substitute.f +atmos_param/socrates/src/trunk/src/general/open_file_in.f +atmos_param/socrates/src/trunk/src/general/integrate_spline.f +atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_air.f +atmos_param/socrates/src/trunk/src/general/lock_code.f +atmos_param/socrates/src/trunk/src/general/make_block_6_2.f +atmos_param/socrates/src/trunk/src/general/inner_bracket.f +atmos_param/socrates/src/trunk/src/general/svd_decompose.f +atmos_param/socrates/src/trunk/src/general/calc_planck_tbl.f +atmos_param/socrates/src/trunk/src/general/read_word.f \ No newline at end of file diff --git a/src/extra/model/socrates/socrates_version_paths/2207 b/src/extra/model/socrates/socrates_version_paths/2207 new file mode 100644 index 000000000..1c2f68854 --- /dev/null +++ b/src/extra/model/socrates/socrates_version_paths/2207 @@ -0,0 +1,296 @@ +atmos_param/socrates/src/trunk/src/aux/cdf_struc.finc +atmos_param/socrates/src/trunk/src/aux/cdl_struc.finc +atmos_param/socrates/src/trunk/src/aux/dec_disort.finc +atmos_param/socrates/src/trunk/src/aux/call_disort.finc +atmos_param/socrates/src/trunk/src/general/batch_error_main.finc +atmos_param/socrates/src/trunk/src/general/aerosol_component.finc +atmos_param/socrates/src/trunk/src/radiance_core/gauss_angle.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_dirn_weights.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_brdf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/triple_solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/eval_uplm.F90 +atmos_param/socrates/src/trunk/src/radiance_core/shell_sort.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rad_pcf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/check_phf_term.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_n_source_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_surf_rad.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap.F90 +atmos_param/socrates/src/trunk/src/radiance_core/scale_absorb.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_flux_ipa.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ice_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_mod.F90 +atmos_param/socrates/src/trunk/src/radiance_core/eig_sys.F90 +atmos_param/socrates/src/trunk/src/radiance_core/adjust_ir_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_rad_layer.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_dimen.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mcica_column.F90 +atmos_param/socrates/src/trunk/src/radiance_core/interp1d.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_zero.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spline_fit.F90 +atmos_param/socrates/src/trunk/src/radiance_core/gaussian_weight_pcf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/gas_list_pcf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/trans_source_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/band_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mcica_sample.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct_hogan.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_sol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sph_matrix_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_spectrum.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_app_scat.F90 +atmos_param/socrates/src/trunk/src/radiance_core/grey_opt_prop.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_gauss_weight_90.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sum_k.F90 +atmos_param/socrates/src/trunk/src/radiance_core/ses_rescale_contm.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spline_evaluate.F90 +atmos_param/socrates/src/trunk/src/radiance_core/cg_kappa_ms.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_bound.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_gas_flux.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_pointer.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_geometry.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_phase_fnc.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_sph.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_k.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_one_gas.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_top_rad.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_n_cloud_parameter.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_level_weights.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv_scl.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_matrix_pentadiagonal.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mix_app_scat.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_out.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sol_scat_cos.F90 +atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_full.F90 +atmos_param/socrates/src/trunk/src/radiance_core/eigenvalue_tri.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_homogen_direct.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_continuum.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mixed_solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_aer.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_inhom_corr_cairns.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rebin_esft_terms.F90 +atmos_param/socrates/src/trunk/src/radiance_core/mix_column.F90 +atmos_param/socrates/src/trunk/src/radiance_core/prsc_gather_spline.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_cg_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_pt_lookup.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ukca_aerosol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/scale_wenyi.F90 +atmos_param/socrates/src/trunk/src/radiance_core/triple_column.F90 +atmos_param/socrates/src/trunk/src/radiance_core/single_scattering_all.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_pt.F90 +atmos_param/socrates/src/trunk/src/radiance_core/overlap_coupled.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_cld.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solar_coefficient_basic.F90 +atmos_param/socrates/src/trunk/src/radiance_core/build_sph_matrix.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv.F90 +atmos_param/socrates/src/trunk/src/radiance_core/augment_tiled_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/column_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/augment_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_control.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_basic.F90 +atmos_param/socrates/src/trunk/src/radiance_core/sph_solver.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_no_scat.F90 +atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_sol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_water_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/legendre_weight.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_without_gas.F90 +atmos_param/socrates/src/trunk/src/radiance_core/diff_albedo_basis.F90 +atmos_param/socrates/src/trunk/src/radiance_core/increment_rad_cf.F90 +atmos_param/socrates/src/trunk/src/radiance_core/single_scat_sol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_aerosol.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solve_band_ses.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_ss_prop.F90 +atmos_param/socrates/src/trunk/src/radiance_core/prsc_opt_prop.F90 +atmos_param/socrates/src/trunk/src/radiance_core/layer_part_integ.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_fast_lw.F90 +atmos_param/socrates/src/trunk/src/radiance_core/gas_optical_properties.F90 +atmos_param/socrates/src/trunk/src/radiance_core/single_scattering.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_ir_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/hemi_sph_integ.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/read_spectrum.F90 +atmos_param/socrates/src/trunk/src/radiance_core/inter_t_lookup.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_triple.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_stream.F90 +atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_hogan.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_tseq.F90 +atmos_param/socrates/src/trunk/src/radiance_core/cloud_maxcs_split.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_atm.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region.F90 +atmos_param/socrates/src/trunk/src/radiance_core/quicksort.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_omega.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_radiance_ipa.F90 +atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region_fast_lw.F90 +atmos_param/socrates/src/trunk/src/radiance_core/set_truncation.F90 +atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance.F90 +atmos_param/socrates/src/trunk/src/radiance_core/aggregate_cloud.F90 +atmos_param/socrates/src/trunk/src/radiance_core/radiance_calc.F90 +atmos_param/socrates/src/trunk/src/radiance_core/ir_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_planck.F90 +atmos_param/socrates/src/trunk/src/radiance_core/def_spherical_geometry.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spherical_trans_coeff.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spherical_solar_source.F90 +atmos_param/socrates/src/trunk/src/radiance_core/diffusivity_factor.F90 +atmos_param/socrates/src/trunk/src/radiance_core/planck_flux_band_mod.F90 +atmos_param/socrates/src/trunk/src/radiance_core/spherical_path.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_actinic_flux_mod.F90 +atmos_param/socrates/src/trunk/src/nlte/interpolate_p_mod.F90 +atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_csr.F90 +atmos_param/socrates/src/trunk/src/radiance_core/calc_contrib_func.F90 +atmos_param/socrates/src/trunk/src/radiance_core/circumsolar_fraction.F90 +atmos_param/socrates/src/trunk/src/radiance_core/legendre_mod.F90 +atmos_param/socrates/src/trunk/src/aux/qsat_wat.F90 +atmos_param/socrates/src/trunk/src/aux/qsat_gill.F90 +atmos_param/socrates/src/trunk/src/aux/write_cdf.f90 +atmos_param/socrates/src/trunk/src/aux/read_cdf.f90 +atmos_param/socrates/src/trunk/src/aux/aerosol_representation_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/aerosol_profile_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/write_samson.f90 +atmos_param/socrates/src/trunk/src/aux/filter_function.f90 +atmos_param/socrates/src/trunk/src/aux/qsat_alg_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/method_merge_pcf.f90 +atmos_param/socrates/src/trunk/src/aux/rand_gauss.f90 +atmos_param/socrates/src/trunk/src/general/make_block_2_1.f90 +atmos_param/socrates/src/trunk/src/general/make_block_11.f90 +atmos_param/socrates/src/trunk/src/general/make_block_12.f90 +atmos_param/socrates/src/trunk/src/general/sum_unity.f90 +atmos_param/socrates/src/trunk/src/general/trapezoid_90.f90 +atmos_param/socrates/src/trunk/src/general/get_free_unit.F90 +atmos_param/socrates/src/trunk/src/general/rayleigh_scatter.f90 +atmos_param/socrates/src/trunk/src/general/make_block_18.f90 +atmos_param/socrates/src/trunk/src/general/remove_negative_gas_90.f90 +atmos_param/socrates/src/trunk/src/general/make_block_17.f90 +atmos_param/socrates/src/trunk/src/general/make_block_1.f90 +atmos_param/socrates/src/trunk/src/general/make_block_19.f90 +atmos_param/socrates/src/trunk/src/general/make_block_0.f90 +atmos_param/socrates/src/trunk/src/general/make_block_10.f90 +atmos_param/socrates/src/trunk/src/general/make_block_14.f90 +atmos_param/socrates/src/trunk/src/general/read_solar_spectrum.f90 +atmos_param/socrates/src/trunk/src/general/remove_negative_cont_90.f90 +atmos_param/socrates/src/trunk/src/general/make_block_3_1.f90 +atmos_param/socrates/src/trunk/src/general/set_interactive.f90 +atmos_param/socrates/src/trunk/src/general/make_block_8.f90 +atmos_param/socrates/src/trunk/src/general/make_block_3.f90 +atmos_param/socrates/src/trunk/src/general/make_block_15.f90 +atmos_param/socrates/src/trunk/src/general/make_block_9.f90 +atmos_param/socrates/src/trunk/src/general/read_instrument_response_90.f90 +atmos_param/socrates/src/trunk/src/general/make_block_4.f90 +atmos_param/socrates/src/trunk/src/general/map_heap_func.f90 +atmos_param/socrates/src/trunk/src/general/make_block_6.f90 +atmos_param/socrates/src/trunk/src/general/out_spectrum.f90 +atmos_param/socrates/src/trunk/src/general/make_block_2.f90 +atmos_param/socrates/src/trunk/src/general/rayleigh_jeans_tail.f90 +atmos_param/socrates/src/trunk/src/general/solar_intensity.f90 +atmos_param/socrates/src/trunk/src/general/make_block_5.f90 +atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_h2he.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_cdf_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_refract.f90 +atmos_param/socrates/src/trunk/src/modules_gen/scatter_pp_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_std_io_icf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdl_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/refract_re_ccf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_inst_flt.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_pp_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/weighting_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/error_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/file_type_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_data_in_icf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdf_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/unit_list_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/realtypefx_rd.f90 +atmos_param/socrates/src/trunk/src/modules_gen/def_solarspec.f90 +atmos_param/socrates/src/trunk/src/modules_gen/interp_mode_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_fixed_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_ucf.f90 +atmos_param/socrates/src/trunk/src/modules_gen/input_head_pcf.f90 +atmos_param/socrates/src/trunk/src/modules_core/errormessagelength_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90 +atmos_param/socrates/src/trunk/src/modules_core/rad_ccf.F90 +atmos_param/socrates/src/trunk/src/modules_core/yomhook.F90 +atmos_param/socrates/src/trunk/src/modules_core/parkind1.F90 +atmos_param/socrates/src/trunk/src/modules_core/file_manager.F90 +atmos_param/socrates/src/trunk/src/modules_core/missing_data_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/vectlib_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/ereport_mod.F90 +atmos_param/socrates/src/trunk/src/modules_core/realtype_rd.f90 +atmos_param/socrates/src/trunk/src/modules_core/filenamelength_mod.F90 +atmos_param/socrates/src/trunk/src/aux/output_vert_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_input_ss_cdl.f +atmos_param/socrates/src/trunk/src/aux/split_cdl_line.f +atmos_param/socrates/src/trunk/src/aux/input_cloud_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdl.f +atmos_param/socrates/src/trunk/src/aux/read_samson_p_field.f +atmos_param/socrates/src/trunk/src/aux/output_opt_profile_cdl.f +atmos_param/socrates/src/trunk/src/aux/input_cloud_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_radiance_cdl.f +atmos_param/socrates/src/trunk/src/aux/fnc_density.f +atmos_param/socrates/src/trunk/src/aux/calc_volume_fraction.f +atmos_param/socrates/src/trunk/src/aux/calc_cdl_stride.f +atmos_param/socrates/src/trunk/src/aux/interp.f +atmos_param/socrates/src/trunk/src/aux/merge_pressure.f +atmos_param/socrates/src/trunk/src/aux/angular_control_cdf.f +atmos_param/socrates/src/trunk/src/aux/extinction_profile.f +atmos_param/socrates/src/trunk/src/aux/read_genln2_flux.f +atmos_param/socrates/src/trunk/src/aux/write_cdl.f +atmos_param/socrates/src/trunk/src/aux/find_var_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdf.f +atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdl.f +atmos_param/socrates/src/trunk/src/aux/find_dimen_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_flux_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_horiz_cdl.f +atmos_param/socrates/src/trunk/src/aux/seaalbedo_driver.f +atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdf.f +atmos_param/socrates/src/trunk/src/aux/angular_control.f +atmos_param/socrates/src/trunk/src/aux/output_vert_cdf.f +atmos_param/socrates/src/trunk/src/aux/output_view_cdl.f +atmos_param/socrates/src/trunk/src/aux/read_raw_profile.f +atmos_param/socrates/src/trunk/src/aux/qsat_gg_ice.f +atmos_param/socrates/src/trunk/src/aux/output_flux_cdf.f +atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdf.f +atmos_param/socrates/src/trunk/src/aux/name_length.f +atmos_param/socrates/src/trunk/src/aux/sort_raw_profile.f +atmos_param/socrates/src/trunk/src/aux/read_averaged_scatter.f +atmos_param/socrates/src/trunk/src/aux/write_cdl_field.f +atmos_param/socrates/src/trunk/src/aux/planck_ss_source.f +atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdf.f +atmos_param/socrates/src/trunk/src/aux/output_radiance_cdf.f +atmos_param/socrates/src/trunk/src/aux/write_profile.f +atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdl.f +atmos_param/socrates/src/trunk/src/aux/planck_cumul.f +atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdf.f +atmos_param/socrates/src/trunk/src/aux/output_surf_cdl.f +atmos_param/socrates/src/trunk/src/aux/mono_rad_ss.f +atmos_param/socrates/src/trunk/src/aux/assign_horiz_cdl.f +atmos_param/socrates/src/trunk/src/aux/qsat.f +atmos_param/socrates/src/trunk/src/aux/set_state.f +atmos_param/socrates/src/trunk/src/aux/l_find_component.f +atmos_param/socrates/src/trunk/src/aux/qsat_gg.f +atmos_param/socrates/src/trunk/src/aux/read_cdl.f +atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdl.f +atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdl.f +atmos_param/socrates/src/trunk/src/general/non_blank.f +atmos_param/socrates/src/trunk/src/general/remove_blank.f +atmos_param/socrates/src/trunk/src/general/simpsons_rule.f +atmos_param/socrates/src/trunk/src/general/point_bracket.f +atmos_param/socrates/src/trunk/src/general/trapezoid.f +atmos_param/socrates/src/trunk/src/general/planck.f +atmos_param/socrates/src/trunk/src/general/read_line.f +atmos_param/socrates/src/trunk/src/general/make_block_6_1.f +atmos_param/socrates/src/trunk/src/general/calc_thermal_coeff.f +atmos_param/socrates/src/trunk/src/general/open_file_out.f +atmos_param/socrates/src/trunk/src/general/back_substitute.f +atmos_param/socrates/src/trunk/src/general/open_file_in.f +atmos_param/socrates/src/trunk/src/general/integrate_spline.f +atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_air.f +atmos_param/socrates/src/trunk/src/general/lock_code.f +atmos_param/socrates/src/trunk/src/general/make_block_6_2.f +atmos_param/socrates/src/trunk/src/general/inner_bracket.f +atmos_param/socrates/src/trunk/src/general/svd_decompose.f +atmos_param/socrates/src/trunk/src/general/calc_planck_tbl.f +atmos_param/socrates/src/trunk/src/general/read_word.f diff --git a/src/extra/python/isca/codebase.py b/src/extra/python/isca/codebase.py index 09353e7ce..4cbaad60b 100644 --- a/src/extra/python/isca/codebase.py +++ b/src/extra/python/isca/codebase.py @@ -34,7 +34,7 @@ def from_repo(cls, repo, commit=None, **kwargs): def from_directory(cls, directory, **kwargs): return cls(directory=directory, **kwargs) - def __init__(self, repo=None, commit=None, directory=None, storedir=P(GFDL_WORK, 'codebase'), safe_mode=False): + def __init__(self, repo=None, commit=None, directory=None, storedir=P(GFDL_WORK, 'codebase'), safe_mode=False, socrates_version='1703'): """Create a new CodeBase object. A CodeBase can be created with either a git repository or a file directory as it's source. @@ -119,6 +119,7 @@ def __init__(self, repo=None, commit=None, directory=None, storedir=P(GFDL_WORK, # read path names from the default file self.path_names = [] + self.extra_path_names = [] self.compile_flags = [] # users can append to this to add additional compiler options @property @@ -258,7 +259,7 @@ def compile(self, debug=False, optimisation=None): # get path_names from the directory if not self.path_names: - self.path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', self.name, 'path_names')) + self.path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', self.name, 'path_names')) + self.extra_path_names self.write_path_names(self.path_names) path_names_str = P(self.builddir, 'path_names') @@ -342,10 +343,15 @@ def simlink_to_soc_code(self): self.log.error(error_mesg) raise OSError(error_mesg) + def read_version_specific_paths(self, socrates_version_to_use): + self.extra_path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', self.name, 'socrates_version_paths', socrates_version_to_use)) + def __init__(self, *args, **kwargs): super(SocratesCodeBase, self).__init__(*args, **kwargs) self.disable_rrtm() self.simlink_to_soc_code() + socrates_version_to_use = kwargs['socrates_version'] + self.read_version_specific_paths(socrates_version_to_use) class GreyCodeBase(CodeBase): """The Frierson model. From d5c6bc5b36fdd83709f656f1e89e44a82f45b31d Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 23 Sep 2022 00:02:46 +0100 Subject: [PATCH 02/10] Updating test case to demonstrate how to use the new socrates-version parameter. Here it is specified to the default value, which should mean existing installations are unaffected. --- exp/test_cases/socrates_test/socrates_aquaplanet.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet.py b/exp/test_cases/socrates_test/socrates_aquaplanet.py index cc7d68363..3c76f82aa 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet.py @@ -9,7 +9,7 @@ base_dir = os.path.dirname(os.path.realpath(__file__)) # a CodeBase can be a directory on the computer, # useful for iterative development -cb = SocratesCodeBase.from_directory(GFDL_BASE) +cb = SocratesCodeBase.from_directory(GFDL_BASE, socrates_version='1703') # or it can point to a specific git repo and commit id. # This method should ensure future, independent, reproducibility of results. From 691752900d9af7e02263540af0622771d64224d9 Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 13 Sep 2024 11:38:43 +0100 Subject: [PATCH 03/10] Some way to making the socrates versions work nicely together, but now have to tackle the problem of the symbolic links. --- src/extra/python/isca/codebase.py | 20 +++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/src/extra/python/isca/codebase.py b/src/extra/python/isca/codebase.py index 1164b419c..1ff48389f 100644 --- a/src/extra/python/isca/codebase.py +++ b/src/extra/python/isca/codebase.py @@ -34,6 +34,14 @@ def from_repo(cls, repo, commit=None, **kwargs): def from_directory(cls, directory, **kwargs): return cls(directory=directory, **kwargs) + def modify_exec_name(self): + if self.__class__==SocratesCodeBase: + if self.socrates_version == '1703': + self.executable_name = 'soc_isca.x' + else: + self.executable_name = f'soc_isca_{self.socrates_version}.x' + + def __init__(self, repo=None, commit=None, directory=None, storedir=P(GFDL_WORK, 'codebase'), safe_mode=False, socrates_version='1703'): """Create a new CodeBase object. @@ -74,6 +82,9 @@ def __init__(self, repo=None, commit=None, directory=None, storedir=P(GFDL_WORK, self.commit = 'HEAD' if commit is None else commit workdir = url_to_folder(self.repo) + '-' + self.commit + self.socrates_version = socrates_version + self.modify_exec_name() + # useful directory shortcuts self.workdir = P(self.storedir, workdir) # base for all codebase I/O actions self.codedir = P(self.workdir, 'code') # where code is checked out / symlinked to directory @@ -306,7 +317,7 @@ class SocratesCodeBase(CodeBase): """ #path_names_file = P(_module_directory, 'templates', 'moist_path_names') name = 'socrates' - executable_name = 'soc_isca.x' + executable_name = None def disable_rrtm(self): # add no compile flag @@ -344,15 +355,14 @@ def simlink_to_soc_code(self): self.log.error(error_mesg) raise OSError(error_mesg) - def read_version_specific_paths(self, socrates_version_to_use): - self.extra_path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', self.name, 'socrates_version_paths', socrates_version_to_use)) + def read_version_specific_paths(self): + self.extra_path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', self.name, 'socrates_version_paths', self.socrates_version)) def __init__(self, *args, **kwargs): super(SocratesCodeBase, self).__init__(*args, **kwargs) self.disable_rrtm() self.simlink_to_soc_code() - socrates_version_to_use = kwargs['socrates_version'] - self.read_version_specific_paths(socrates_version_to_use) + self.read_version_specific_paths() class SocColumnCodeBase(CodeBase): """Isca without RRTM but with the Met Office radiation scheme, Socrates. THIS VERSION FOR SINGLE COLUMN USE. From e7770a40e95a1139c0361d605cc124d311719194 Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 13 Sep 2024 12:19:02 +0100 Subject: [PATCH 04/10] Updated socrates versions functionality to allow users to set GFDL_SOC_DIR, which then contains folders of different Socrates versions. Have updated docs to explain changes, but default behaviour of setting a single Socrates version should still work. --- docs/source/modules/socrates.rst | 1 + .../socrates/socrates_version_paths/1703 | 586 ++++++++--------- .../socrates/socrates_version_paths/2207 | 592 +++++++++--------- src/extra/python/isca/__init__.py | 8 + src/extra/python/isca/codebase.py | 17 +- 5 files changed, 610 insertions(+), 594 deletions(-) diff --git a/docs/source/modules/socrates.rst b/docs/source/modules/socrates.rst index 258b92505..5eff1671f 100644 --- a/docs/source/modules/socrates.rst +++ b/docs/source/modules/socrates.rst @@ -10,6 +10,7 @@ SOCRATES (Suite Of Community RAdiative Transfer codes based on Edwards and Sling * The code used to integrate Socrates into Isca is contained within the folder ``src/atmos_params/socrates/interface``. * The Socrates source code itself is **NOT** packed within this Isca repository, and **NEW** users will need to download it from the `Met Office Science Repository `_. Users can then either choose to put the Socrates code within the directory ``src/atmos_params/socrates/src/trunk``, or can set the bash environment variable ``GFDL_SOC`` equal to the location of the source code for Socrates. Detailed instructions on how to do this are included in the `README.md `_ for the Socrates test-case: ``exp/test_cases/socrates_test/README.md``. +* Some users of Isca may wish to compile Isca separately with several different versions of Socrates (If you only want a single version then you can ignore this). To do this, you will need to create a folder containing all of your Socrates versions and set the ``GFDL_SOC_DIR`` environment variable to that location. Within the ``GFDL_SOC_DIR`` folder should be folders containing each of your Socrates versions. Then when you create the ``SocratesCodeBase`` object in your experiment script, you can use the option ``socrates_version=YOUR_VERSIONS_FOLDER_NAME_HERE``. For example, if my ``GFDL_SOC_DIR`` folder has folders within it called ``1703`` and ``2207``, which are my different versions, then I can choose version ``1703`` by setting ``socrates_version=1703`` when I create a ``SocratesCodeBase`` object in my experiment script. Then, when Isca compiles, it will build seperate executables for the different Socrates versions. * The basis of ``socrates_interface`` was coded by Mark Hammond (Univ. of Oxford) and James Manners (Met Office) and modified by Stephen Thomson (Univ. of Exeter) [Thomson_and_Vallis2019]_. Features added include seasonality in the radiation based on Isca's ``astronomy`` package, and the ability to use a ``radiation timestep != atmospheric timestep``. * Socrates radiation scheme requires ``mass mixing ratios`` for all quantities (e.g. CO2, water vapor etc). This contrasts with RRTM, which wants ``volume mixing ratios``. diff --git a/src/extra/model/socrates/socrates_version_paths/1703 b/src/extra/model/socrates/socrates_version_paths/1703 index 067d163e1..1ca67610f 100644 --- a/src/extra/model/socrates/socrates_version_paths/1703 +++ b/src/extra/model/socrates/socrates_version_paths/1703 @@ -1,293 +1,293 @@ -atmos_param/socrates/src/trunk/src/aux/cdf_struc.finc -atmos_param/socrates/src/trunk/src/aux/cdl_struc.finc -atmos_param/socrates/src/trunk/src/aux/dec_disort.finc -atmos_param/socrates/src/trunk/src/aux/call_disort.finc -atmos_param/socrates/src/trunk/src/general/batch_error_main.finc -atmos_param/socrates/src/trunk/src/general/aerosol_component.finc -atmos_param/socrates/src/trunk/src/radiance_core/gauss_angle.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_dirn_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_brdf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eval_uplm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/shell_sort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rad_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/check_phf_term.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_surf_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_absorb.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calculate_density.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_flux_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ice_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_tbl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eig_sys.F90 -atmos_param/socrates/src/trunk/src/radiance_core/adjust_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_rad_layer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_dimen.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/interp1d.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_zero.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_fit.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gaussian_weight_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_list_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/trans_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/band_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_sample.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_matrix_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/grey_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_gauss_weight_90.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sum_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ses_rescale_contm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_evaluate.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cg_kappa_ms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_bound.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_gas_flux.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_pointer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_geometry.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_phase_fnc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_sph.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_one_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_top_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_cloud_parameter.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_level_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv_scl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_matrix_pentadiagonal.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_out.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sol_scat_cos.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_full.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eigenvalue_tri.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_homogen_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_continuum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mixed_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_aer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_inhom_corr_cairns.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rebin_esft_terms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_gather_spline.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_cg_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ukca_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_wenyi.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering_all.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt.F90 -atmos_param/socrates/src/trunk/src/radiance_core/overlap_coupled.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_cld.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_coefficient_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/build_sph_matrix.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_tiled_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/column_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_control.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_no_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_water_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/legendre_weight.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_without_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_albedo_basis.F90 -atmos_param/socrates/src/trunk/src/radiance_core/increment_rad_cf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scat_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_ses.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_ss_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/layer_part_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_optical_properties.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/hemi_sph_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/read_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_t_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_stream.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_tseq.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cloud_maxcs_split.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_atm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region.F90 -atmos_param/socrates/src/trunk/src/radiance_core/quicksort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_omega.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_radiance_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_poly.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_truncation.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/aggregate_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/radiance_calc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ir_source.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_wat.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_gill.F90 -atmos_param/socrates/src/trunk/src/aux/write_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/read_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_representation_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_profile_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/write_samson.f90 -atmos_param/socrates/src/trunk/src/aux/filter_function.f90 -atmos_param/socrates/src/trunk/src/aux/qsat_alg_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/method_merge_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/rand_gauss.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_11.f90 -atmos_param/socrates/src/trunk/src/general/make_block_12.f90 -atmos_param/socrates/src/trunk/src/general/sum_unity.f90 -atmos_param/socrates/src/trunk/src/general/trapezoid_90.f90 -atmos_param/socrates/src/trunk/src/general/get_free_unit.F90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter.f90 -atmos_param/socrates/src/trunk/src/general/make_block_18.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_gas_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_17.f90 -atmos_param/socrates/src/trunk/src/general/make_block_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_19.f90 -atmos_param/socrates/src/trunk/src/general/make_block_0.f90 -atmos_param/socrates/src/trunk/src/general/make_block_10.f90 -atmos_param/socrates/src/trunk/src/general/make_block_14.f90 -atmos_param/socrates/src/trunk/src/general/read_solar_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_cont_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3_1.f90 -atmos_param/socrates/src/trunk/src/general/set_interactive.f90 -atmos_param/socrates/src/trunk/src/general/make_block_8.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3.f90 -atmos_param/socrates/src/trunk/src/general/make_block_15.f90 -atmos_param/socrates/src/trunk/src/general/make_block_9.f90 -atmos_param/socrates/src/trunk/src/general/read_instrument_response_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_4.f90 -atmos_param/socrates/src/trunk/src/general/map_heap_func.f90 -atmos_param/socrates/src/trunk/src/general/make_block_6.f90 -atmos_param/socrates/src/trunk/src/general/out_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_jeans_tail.f90 -atmos_param/socrates/src/trunk/src/general/solar_intensity.f90 -atmos_param/socrates/src/trunk/src/general/make_block_5.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_h2he.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_refract.f90 -atmos_param/socrates/src/trunk/src/modules_gen/scatter_pp_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_std_io_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdl_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/refract_re_ccf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_inst_flt.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_pp_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/weighting_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/error_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/file_type_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_data_in_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/unit_list_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/realtypefx_rd.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_solarspec.f90 -atmos_param/socrates/src/trunk/src/modules_gen/interp_mode_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_fixed_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/input_head_pcf.f90 -atmos_param/socrates/src/trunk/src/radiation_control/close_cloud_gen.F90 -atmos_param/socrates/src/trunk/src/radiation_control/mcica_order.F90 -atmos_param/socrates/src/trunk/src/radiation_control/rand_no_mcica.F90 -atmos_param/socrates/src/trunk/src/radiation_control/set_moist_aerosol_properties.F90 -atmos_param/socrates/src/trunk/src/radiation_control/mcica_mod.F90 -atmos_param/socrates/src/trunk/src/radiation_control/cld_generator_mod.F90 -atmos_param/socrates/src/trunk/src/radiation_control/open_cloud_gen.F90 -atmos_param/socrates/src/trunk/src/modules_core/errormessagelength_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90 -atmos_param/socrates/src/trunk/src/modules_core/rad_ccf.F90 -atmos_param/socrates/src/trunk/src/modules_core/yomhook.F90 -atmos_param/socrates/src/trunk/src/modules_core/parkind1.F90 -atmos_param/socrates/src/trunk/src/modules_core/file_manager.F90 -atmos_param/socrates/src/trunk/src/modules_core/missing_data_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/vectlib_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/ereport_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/realtype_rd.f90 -atmos_param/socrates/src/trunk/src/modules_core/filenamelength_mod.F90 -atmos_param/socrates/src/trunk/src/aux/output_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_ss_cdl.f -atmos_param/socrates/src/trunk/src/aux/split_cdl_line.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_samson_p_field.f -atmos_param/socrates/src/trunk/src/aux/output_opt_profile_cdl.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdl.f -atmos_param/socrates/src/trunk/src/aux/fnc_density.f -atmos_param/socrates/src/trunk/src/aux/calc_volume_fraction.f -atmos_param/socrates/src/trunk/src/aux/calc_cdl_stride.f -atmos_param/socrates/src/trunk/src/aux/interp.f -atmos_param/socrates/src/trunk/src/aux/merge_pressure.f -atmos_param/socrates/src/trunk/src/aux/angular_control_cdf.f -atmos_param/socrates/src/trunk/src/aux/extinction_profile.f -atmos_param/socrates/src/trunk/src/aux/read_genln2_flux.f -atmos_param/socrates/src/trunk/src/aux/write_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_var_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_dimen_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/seaalbedo_driver.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdf.f -atmos_param/socrates/src/trunk/src/aux/angular_control.f -atmos_param/socrates/src/trunk/src/aux/output_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_view_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg_ice.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdf.f -atmos_param/socrates/src/trunk/src/aux/name_length.f -atmos_param/socrates/src/trunk/src/aux/sort_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/read_averaged_scatter.f -atmos_param/socrates/src/trunk/src/aux/write_cdl_field.f -atmos_param/socrates/src/trunk/src/aux/planck_ss_source.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdf.f -atmos_param/socrates/src/trunk/src/aux/interpolate_p.f -atmos_param/socrates/src/trunk/src/aux/write_profile.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdl.f -atmos_param/socrates/src/trunk/src/aux/planck_cumul.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_surf_cdl.f -atmos_param/socrates/src/trunk/src/aux/mono_rad_ss.f -atmos_param/socrates/src/trunk/src/aux/assign_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/qsat.f -atmos_param/socrates/src/trunk/src/aux/set_state.f -atmos_param/socrates/src/trunk/src/aux/l_find_component.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg.f -atmos_param/socrates/src/trunk/src/aux/read_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdl.f -atmos_param/socrates/src/trunk/src/general/non_blank.f -atmos_param/socrates/src/trunk/src/general/remove_blank.f -atmos_param/socrates/src/trunk/src/general/simpsons_rule.f -atmos_param/socrates/src/trunk/src/general/point_bracket.f -atmos_param/socrates/src/trunk/src/general/trapezoid.f -atmos_param/socrates/src/trunk/src/general/planck.f -atmos_param/socrates/src/trunk/src/general/read_line.f -atmos_param/socrates/src/trunk/src/general/make_block_6_1.f -atmos_param/socrates/src/trunk/src/general/calc_thermal_coeff.f -atmos_param/socrates/src/trunk/src/general/open_file_out.f -atmos_param/socrates/src/trunk/src/general/back_substitute.f -atmos_param/socrates/src/trunk/src/general/open_file_in.f -atmos_param/socrates/src/trunk/src/general/integrate_spline.f -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_air.f -atmos_param/socrates/src/trunk/src/general/lock_code.f -atmos_param/socrates/src/trunk/src/general/make_block_6_2.f -atmos_param/socrates/src/trunk/src/general/inner_bracket.f -atmos_param/socrates/src/trunk/src/general/svd_decompose.f -atmos_param/socrates/src/trunk/src/general/calc_planck_tbl.f -atmos_param/socrates/src/trunk/src/general/read_word.f \ No newline at end of file +atmos_param/socrates/src/1703/src/aux/cdf_struc.finc +atmos_param/socrates/src/1703/src/aux/cdl_struc.finc +atmos_param/socrates/src/1703/src/aux/dec_disort.finc +atmos_param/socrates/src/1703/src/aux/call_disort.finc +atmos_param/socrates/src/1703/src/general/batch_error_main.finc +atmos_param/socrates/src/1703/src/general/aerosol_component.finc +atmos_param/socrates/src/1703/src/radiance_core/gauss_angle.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_mix_direct.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_dirn_weights.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_brdf.F90 +atmos_param/socrates/src/1703/src/radiance_core/triple_solar_source.F90 +atmos_param/socrates/src/1703/src/radiance_core/eval_uplm.F90 +atmos_param/socrates/src/1703/src/radiance_core/shell_sort.F90 +atmos_param/socrates/src/1703/src/radiance_core/rad_pcf.F90 +atmos_param/socrates/src/1703/src/radiance_core/check_phf_term.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_n_source_coeff.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_surf_rad.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_random_overlap.F90 +atmos_param/socrates/src/1703/src/radiance_core/scale_absorb.F90 +atmos_param/socrates/src/1703/src/radiance_core/calculate_density.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_flux_ipa.F90 +atmos_param/socrates/src/1703/src/radiance_core/opt_prop_ice_cloud.F90 +atmos_param/socrates/src/1703/src/radiance_core/diff_planck_source_tbl.F90 +atmos_param/socrates/src/1703/src/radiance_core/eig_sys.F90 +atmos_param/socrates/src/1703/src/radiance_core/adjust_ir_radiance.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_rad_layer.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_dimen.F90 +atmos_param/socrates/src/1703/src/radiance_core/mcica_column.F90 +atmos_param/socrates/src/1703/src/radiance_core/interp1d.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_uplm_zero.F90 +atmos_param/socrates/src/1703/src/radiance_core/spline_fit.F90 +atmos_param/socrates/src/1703/src/radiance_core/gaussian_weight_pcf.F90 +atmos_param/socrates/src/1703/src/radiance_core/gas_list_pcf.F90 +atmos_param/socrates/src/1703/src/radiance_core/trans_source_coeff.F90 +atmos_param/socrates/src/1703/src/radiance_core/band_solver.F90 +atmos_param/socrates/src/1703/src/radiance_core/mcica_sample.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_mix_direct_hogan.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_uplm_sol.F90 +atmos_param/socrates/src/1703/src/radiance_core/sph_matrix_solver.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_spectrum.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_triple_app_scat.F90 +atmos_param/socrates/src/1703/src/radiance_core/grey_opt_prop.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_gauss_weight_90.F90 +atmos_param/socrates/src/1703/src/radiance_core/sum_k.F90 +atmos_param/socrates/src/1703/src/radiance_core/ses_rescale_contm.F90 +atmos_param/socrates/src/1703/src/radiance_core/spline_evaluate.F90 +atmos_param/socrates/src/1703/src/radiance_core/cg_kappa_ms.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_bound.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 +atmos_param/socrates/src/1703/src/radiance_core/monochromatic_gas_flux.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_cloud_pointer.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_cloud_geometry.F90 +atmos_param/socrates/src/1703/src/radiance_core/rescale_phase_fnc.F90 +atmos_param/socrates/src/1703/src/radiance_core/monochromatic_radiance_sph.F90 +atmos_param/socrates/src/1703/src/radiance_core/inter_k.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_one_gas.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_top_rad.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_n_cloud_parameter.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_level_weights.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_k_eqv_scl.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_matrix_pentadiagonal.F90 +atmos_param/socrates/src/1703/src/radiance_core/mix_app_scat.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_out.F90 +atmos_param/socrates/src/1703/src/radiance_core/sol_scat_cos.F90 +atmos_param/socrates/src/1703/src/radiance_core/copy_clr_full.F90 +atmos_param/socrates/src/1703/src/radiance_core/eigenvalue_tri.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_homogen_direct.F90 +atmos_param/socrates/src/1703/src/radiance_core/rescale_continuum.F90 +atmos_param/socrates/src/1703/src/radiance_core/mixed_solar_source.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_aer.F90 +atmos_param/socrates/src/1703/src/radiance_core/opt_prop_inhom_corr_cairns.F90 +atmos_param/socrates/src/1703/src/radiance_core/rebin_esft_terms.F90 +atmos_param/socrates/src/1703/src/radiance_core/mix_column.F90 +atmos_param/socrates/src/1703/src/radiance_core/prsc_gather_spline.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_cg_coeff.F90 +atmos_param/socrates/src/1703/src/radiance_core/inter_pt_lookup.F90 +atmos_param/socrates/src/1703/src/radiance_core/opt_prop_ukca_aerosol.F90 +atmos_param/socrates/src/1703/src/radiance_core/scale_wenyi.F90 +atmos_param/socrates/src/1703/src/radiance_core/triple_column.F90 +atmos_param/socrates/src/1703/src/radiance_core/single_scattering_all.F90 +atmos_param/socrates/src/1703/src/radiance_core/inter_pt.F90 +atmos_param/socrates/src/1703/src/radiance_core/overlap_coupled.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_cld.F90 +atmos_param/socrates/src/1703/src/radiance_core/solar_coefficient_basic.F90 +atmos_param/socrates/src/1703/src/radiance_core/build_sph_matrix.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_k_eqv.F90 +atmos_param/socrates/src/1703/src/radiance_core/augment_tiled_radiance.F90 +atmos_param/socrates/src/1703/src/radiance_core/column_solver.F90 +atmos_param/socrates/src/1703/src/radiance_core/augment_radiance.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_control.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_coeff_basic.F90 +atmos_param/socrates/src/1703/src/radiance_core/sph_solver.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_no_scat.F90 +atmos_param/socrates/src/1703/src/radiance_core/copy_clr_sol.F90 +atmos_param/socrates/src/1703/src/radiance_core/solar_source.F90 +atmos_param/socrates/src/1703/src/radiance_core/opt_prop_water_cloud.F90 +atmos_param/socrates/src/1703/src/radiance_core/legendre_weight.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_without_gas.F90 +atmos_param/socrates/src/1703/src/radiance_core/diff_albedo_basis.F90 +atmos_param/socrates/src/1703/src/radiance_core/increment_rad_cf.F90 +atmos_param/socrates/src/1703/src/radiance_core/single_scat_sol.F90 +atmos_param/socrates/src/1703/src/radiance_core/opt_prop_aerosol.F90 +atmos_param/socrates/src/1703/src/radiance_core/solve_band_ses.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_ss_prop.F90 +atmos_param/socrates/src/1703/src/radiance_core/prsc_opt_prop.F90 +atmos_param/socrates/src/1703/src/radiance_core/layer_part_integ.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_coeff_fast_lw.F90 +atmos_param/socrates/src/1703/src/radiance_core/gas_optical_properties.F90 +atmos_param/socrates/src/1703/src/radiance_core/single_scattering.F90 +atmos_param/socrates/src/1703/src/radiance_core/monochromatic_ir_radiance.F90 +atmos_param/socrates/src/1703/src/radiance_core/hemi_sph_integ.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_coeff_cloud.F90 +atmos_param/socrates/src/1703/src/radiance_core/read_spectrum.F90 +atmos_param/socrates/src/1703/src/radiance_core/inter_t_lookup.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_triple.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_stream.F90 +atmos_param/socrates/src/1703/src/radiance_core/solver_triple_hogan.F90 +atmos_param/socrates/src/1703/src/radiance_core/monochromatic_radiance_tseq.F90 +atmos_param/socrates/src/1703/src/radiance_core/cloud_maxcs_split.F90 +atmos_param/socrates/src/1703/src/radiance_core/def_atm.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_coeff.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_coeff_region.F90 +atmos_param/socrates/src/1703/src/radiance_core/quicksort.F90 +atmos_param/socrates/src/1703/src/radiance_core/rescale_tau_omega.F90 +atmos_param/socrates/src/1703/src/radiance_core/calc_radiance_ipa.F90 +atmos_param/socrates/src/1703/src/radiance_core/two_coeff_region_fast_lw.F90 +atmos_param/socrates/src/1703/src/radiance_core/diff_planck_source_poly.F90 +atmos_param/socrates/src/1703/src/radiance_core/set_truncation.F90 +atmos_param/socrates/src/1703/src/radiance_core/monochromatic_radiance.F90 +atmos_param/socrates/src/1703/src/radiance_core/aggregate_cloud.F90 +atmos_param/socrates/src/1703/src/radiance_core/radiance_calc.F90 +atmos_param/socrates/src/1703/src/radiance_core/ir_source.F90 +atmos_param/socrates/src/1703/src/aux/qsat_wat.F90 +atmos_param/socrates/src/1703/src/aux/qsat_gill.F90 +atmos_param/socrates/src/1703/src/aux/write_cdf.f90 +atmos_param/socrates/src/1703/src/aux/read_cdf.f90 +atmos_param/socrates/src/1703/src/aux/aerosol_representation_pcf.f90 +atmos_param/socrates/src/1703/src/aux/aerosol_profile_pcf.f90 +atmos_param/socrates/src/1703/src/aux/write_samson.f90 +atmos_param/socrates/src/1703/src/aux/filter_function.f90 +atmos_param/socrates/src/1703/src/aux/qsat_alg_pcf.f90 +atmos_param/socrates/src/1703/src/aux/method_merge_pcf.f90 +atmos_param/socrates/src/1703/src/aux/rand_gauss.f90 +atmos_param/socrates/src/1703/src/general/make_block_2_1.f90 +atmos_param/socrates/src/1703/src/general/make_block_11.f90 +atmos_param/socrates/src/1703/src/general/make_block_12.f90 +atmos_param/socrates/src/1703/src/general/sum_unity.f90 +atmos_param/socrates/src/1703/src/general/trapezoid_90.f90 +atmos_param/socrates/src/1703/src/general/get_free_unit.F90 +atmos_param/socrates/src/1703/src/general/rayleigh_scatter.f90 +atmos_param/socrates/src/1703/src/general/make_block_18.f90 +atmos_param/socrates/src/1703/src/general/remove_negative_gas_90.f90 +atmos_param/socrates/src/1703/src/general/make_block_17.f90 +atmos_param/socrates/src/1703/src/general/make_block_1.f90 +atmos_param/socrates/src/1703/src/general/make_block_19.f90 +atmos_param/socrates/src/1703/src/general/make_block_0.f90 +atmos_param/socrates/src/1703/src/general/make_block_10.f90 +atmos_param/socrates/src/1703/src/general/make_block_14.f90 +atmos_param/socrates/src/1703/src/general/read_solar_spectrum.f90 +atmos_param/socrates/src/1703/src/general/remove_negative_cont_90.f90 +atmos_param/socrates/src/1703/src/general/make_block_3_1.f90 +atmos_param/socrates/src/1703/src/general/set_interactive.f90 +atmos_param/socrates/src/1703/src/general/make_block_8.f90 +atmos_param/socrates/src/1703/src/general/make_block_3.f90 +atmos_param/socrates/src/1703/src/general/make_block_15.f90 +atmos_param/socrates/src/1703/src/general/make_block_9.f90 +atmos_param/socrates/src/1703/src/general/read_instrument_response_90.f90 +atmos_param/socrates/src/1703/src/general/make_block_4.f90 +atmos_param/socrates/src/1703/src/general/map_heap_func.f90 +atmos_param/socrates/src/1703/src/general/make_block_6.f90 +atmos_param/socrates/src/1703/src/general/out_spectrum.f90 +atmos_param/socrates/src/1703/src/general/make_block_2.f90 +atmos_param/socrates/src/1703/src/general/rayleigh_jeans_tail.f90 +atmos_param/socrates/src/1703/src/general/solar_intensity.f90 +atmos_param/socrates/src/1703/src/general/make_block_5.f90 +atmos_param/socrates/src/1703/src/general/rayleigh_scatter_h2he.f90 +atmos_param/socrates/src/1703/src/modules_gen/dimensions_field_cdf_ucf.f90 +atmos_param/socrates/src/1703/src/modules_gen/def_refract.f90 +atmos_param/socrates/src/1703/src/modules_gen/scatter_pp_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/def_std_io_icf.f90 +atmos_param/socrates/src/1703/src/modules_gen/dimensions_cdl_ucf.f90 +atmos_param/socrates/src/1703/src/modules_gen/refract_re_ccf.f90 +atmos_param/socrates/src/1703/src/modules_gen/def_inst_flt.f90 +atmos_param/socrates/src/1703/src/modules_gen/dimensions_pp_ucf.f90 +atmos_param/socrates/src/1703/src/modules_gen/weighting_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/error_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/file_type_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/def_data_in_icf.f90 +atmos_param/socrates/src/1703/src/modules_gen/dimensions_cdf_ucf.f90 +atmos_param/socrates/src/1703/src/modules_gen/unit_list_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/realtypefx_rd.f90 +atmos_param/socrates/src/1703/src/modules_gen/def_solarspec.f90 +atmos_param/socrates/src/1703/src/modules_gen/interp_mode_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/dimensions_fixed_pcf.f90 +atmos_param/socrates/src/1703/src/modules_gen/dimensions_field_ucf.f90 +atmos_param/socrates/src/1703/src/modules_gen/input_head_pcf.f90 +atmos_param/socrates/src/1703/src/radiation_control/close_cloud_gen.F90 +atmos_param/socrates/src/1703/src/radiation_control/mcica_order.F90 +atmos_param/socrates/src/1703/src/radiation_control/rand_no_mcica.F90 +atmos_param/socrates/src/1703/src/radiation_control/set_moist_aerosol_properties.F90 +atmos_param/socrates/src/1703/src/radiation_control/mcica_mod.F90 +atmos_param/socrates/src/1703/src/radiation_control/cld_generator_mod.F90 +atmos_param/socrates/src/1703/src/radiation_control/open_cloud_gen.F90 +atmos_param/socrates/src/1703/src/modules_core/errormessagelength_mod.F90 +atmos_param/socrates/src/1703/src/modules_core/dimensions_spec_ucf.F90 +atmos_param/socrates/src/1703/src/modules_core/rad_ccf.F90 +atmos_param/socrates/src/1703/src/modules_core/yomhook.F90 +atmos_param/socrates/src/1703/src/modules_core/parkind1.F90 +atmos_param/socrates/src/1703/src/modules_core/file_manager.F90 +atmos_param/socrates/src/1703/src/modules_core/missing_data_mod.F90 +atmos_param/socrates/src/1703/src/modules_core/vectlib_mod.F90 +atmos_param/socrates/src/1703/src/modules_core/ereport_mod.F90 +atmos_param/socrates/src/1703/src/modules_core/realtype_rd.f90 +atmos_param/socrates/src/1703/src/modules_core/filenamelength_mod.F90 +atmos_param/socrates/src/1703/src/aux/output_vert_cdl.f +atmos_param/socrates/src/1703/src/aux/assign_input_opt_cdf.f +atmos_param/socrates/src/1703/src/aux/assign_input_ss_cdl.f +atmos_param/socrates/src/1703/src/aux/split_cdl_line.f +atmos_param/socrates/src/1703/src/aux/input_cloud_cdf.f +atmos_param/socrates/src/1703/src/aux/assign_viewing_geom_cdl.f +atmos_param/socrates/src/1703/src/aux/read_samson_p_field.f +atmos_param/socrates/src/1703/src/aux/output_opt_profile_cdl.f +atmos_param/socrates/src/1703/src/aux/input_cloud_cdl.f +atmos_param/socrates/src/1703/src/aux/output_radiance_cdl.f +atmos_param/socrates/src/1703/src/aux/fnc_density.f +atmos_param/socrates/src/1703/src/aux/calc_volume_fraction.f +atmos_param/socrates/src/1703/src/aux/calc_cdl_stride.f +atmos_param/socrates/src/1703/src/aux/interp.f +atmos_param/socrates/src/1703/src/aux/merge_pressure.f +atmos_param/socrates/src/1703/src/aux/angular_control_cdf.f +atmos_param/socrates/src/1703/src/aux/extinction_profile.f +atmos_param/socrates/src/1703/src/aux/read_genln2_flux.f +atmos_param/socrates/src/1703/src/aux/write_cdl.f +atmos_param/socrates/src/1703/src/aux/find_var_cdl.f +atmos_param/socrates/src/1703/src/aux/assign_input_vert_cdf.f +atmos_param/socrates/src/1703/src/aux/input_aerosol_cdf.f +atmos_param/socrates/src/1703/src/aux/assign_input_novert_cdl.f +atmos_param/socrates/src/1703/src/aux/find_dimen_cdl.f +atmos_param/socrates/src/1703/src/aux/output_flux_cdl.f +atmos_param/socrates/src/1703/src/aux/assign_input_opt_cdl.f +atmos_param/socrates/src/1703/src/aux/output_horiz_cdl.f +atmos_param/socrates/src/1703/src/aux/seaalbedo_driver.f +atmos_param/socrates/src/1703/src/aux/assign_viewing_geom_cdf.f +atmos_param/socrates/src/1703/src/aux/angular_control.f +atmos_param/socrates/src/1703/src/aux/output_vert_cdf.f +atmos_param/socrates/src/1703/src/aux/output_view_cdl.f +atmos_param/socrates/src/1703/src/aux/read_raw_profile.f +atmos_param/socrates/src/1703/src/aux/qsat_gg_ice.f +atmos_param/socrates/src/1703/src/aux/output_flux_cdf.f +atmos_param/socrates/src/1703/src/aux/assign_surface_char_cdf.f +atmos_param/socrates/src/1703/src/aux/name_length.f +atmos_param/socrates/src/1703/src/aux/sort_raw_profile.f +atmos_param/socrates/src/1703/src/aux/read_averaged_scatter.f +atmos_param/socrates/src/1703/src/aux/write_cdl_field.f +atmos_param/socrates/src/1703/src/aux/planck_ss_source.f +atmos_param/socrates/src/1703/src/aux/output_photolysis_cdf.f +atmos_param/socrates/src/1703/src/aux/output_radiance_cdf.f +atmos_param/socrates/src/1703/src/aux/interpolate_p.f +atmos_param/socrates/src/1703/src/aux/write_profile.f +atmos_param/socrates/src/1703/src/aux/assign_surface_char_cdl.f +atmos_param/socrates/src/1703/src/aux/planck_cumul.f +atmos_param/socrates/src/1703/src/aux/input_aerosol_cdl.f +atmos_param/socrates/src/1703/src/aux/assign_input_novert_cdf.f +atmos_param/socrates/src/1703/src/aux/output_surf_cdl.f +atmos_param/socrates/src/1703/src/aux/mono_rad_ss.f +atmos_param/socrates/src/1703/src/aux/assign_horiz_cdl.f +atmos_param/socrates/src/1703/src/aux/qsat.f +atmos_param/socrates/src/1703/src/aux/set_state.f +atmos_param/socrates/src/1703/src/aux/l_find_component.f +atmos_param/socrates/src/1703/src/aux/qsat_gg.f +atmos_param/socrates/src/1703/src/aux/read_cdl.f +atmos_param/socrates/src/1703/src/aux/assign_input_vert_cdl.f +atmos_param/socrates/src/1703/src/aux/output_photolysis_cdl.f +atmos_param/socrates/src/1703/src/general/non_blank.f +atmos_param/socrates/src/1703/src/general/remove_blank.f +atmos_param/socrates/src/1703/src/general/simpsons_rule.f +atmos_param/socrates/src/1703/src/general/point_bracket.f +atmos_param/socrates/src/1703/src/general/trapezoid.f +atmos_param/socrates/src/1703/src/general/planck.f +atmos_param/socrates/src/1703/src/general/read_line.f +atmos_param/socrates/src/1703/src/general/make_block_6_1.f +atmos_param/socrates/src/1703/src/general/calc_thermal_coeff.f +atmos_param/socrates/src/1703/src/general/open_file_out.f +atmos_param/socrates/src/1703/src/general/back_substitute.f +atmos_param/socrates/src/1703/src/general/open_file_in.f +atmos_param/socrates/src/1703/src/general/integrate_spline.f +atmos_param/socrates/src/1703/src/general/rayleigh_scatter_air.f +atmos_param/socrates/src/1703/src/general/lock_code.f +atmos_param/socrates/src/1703/src/general/make_block_6_2.f +atmos_param/socrates/src/1703/src/general/inner_bracket.f +atmos_param/socrates/src/1703/src/general/svd_decompose.f +atmos_param/socrates/src/1703/src/general/calc_planck_tbl.f +atmos_param/socrates/src/1703/src/general/read_word.f \ No newline at end of file diff --git a/src/extra/model/socrates/socrates_version_paths/2207 b/src/extra/model/socrates/socrates_version_paths/2207 index 1c2f68854..c0f3db254 100644 --- a/src/extra/model/socrates/socrates_version_paths/2207 +++ b/src/extra/model/socrates/socrates_version_paths/2207 @@ -1,296 +1,296 @@ -atmos_param/socrates/src/trunk/src/aux/cdf_struc.finc -atmos_param/socrates/src/trunk/src/aux/cdl_struc.finc -atmos_param/socrates/src/trunk/src/aux/dec_disort.finc -atmos_param/socrates/src/trunk/src/aux/call_disort.finc -atmos_param/socrates/src/trunk/src/general/batch_error_main.finc -atmos_param/socrates/src/trunk/src/general/aerosol_component.finc -atmos_param/socrates/src/trunk/src/radiance_core/gauss_angle.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_dirn_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_brdf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eval_uplm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/shell_sort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rad_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/check_phf_term.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_surf_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_absorb.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_flux_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ice_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_mod.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eig_sys.F90 -atmos_param/socrates/src/trunk/src/radiance_core/adjust_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_rad_layer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_dimen.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/interp1d.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_zero.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_fit.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gaussian_weight_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_list_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/trans_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/band_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_sample.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_matrix_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/grey_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_gauss_weight_90.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sum_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ses_rescale_contm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_evaluate.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cg_kappa_ms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_bound.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_gas_flux.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_pointer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_geometry.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_phase_fnc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_sph.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_one_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_top_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_cloud_parameter.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_level_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv_scl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_matrix_pentadiagonal.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_out.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sol_scat_cos.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_full.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eigenvalue_tri.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_homogen_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_continuum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mixed_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_aer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_inhom_corr_cairns.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rebin_esft_terms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_gather_spline.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_cg_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ukca_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_wenyi.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering_all.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt.F90 -atmos_param/socrates/src/trunk/src/radiance_core/overlap_coupled.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_cld.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_coefficient_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/build_sph_matrix.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_tiled_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/column_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_control.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_no_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_water_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/legendre_weight.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_without_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_albedo_basis.F90 -atmos_param/socrates/src/trunk/src/radiance_core/increment_rad_cf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scat_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_ses.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_ss_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/layer_part_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_optical_properties.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/hemi_sph_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/read_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_t_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_stream.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_tseq.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cloud_maxcs_split.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_atm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region.F90 -atmos_param/socrates/src/trunk/src/radiance_core/quicksort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_omega.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_radiance_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_truncation.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/aggregate_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/radiance_calc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ir_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_planck.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_spherical_geometry.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spherical_trans_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spherical_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diffusivity_factor.F90 -atmos_param/socrates/src/trunk/src/radiance_core/planck_flux_band_mod.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spherical_path.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_actinic_flux_mod.F90 -atmos_param/socrates/src/trunk/src/nlte/interpolate_p_mod.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_csr.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_contrib_func.F90 -atmos_param/socrates/src/trunk/src/radiance_core/circumsolar_fraction.F90 -atmos_param/socrates/src/trunk/src/radiance_core/legendre_mod.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_wat.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_gill.F90 -atmos_param/socrates/src/trunk/src/aux/write_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/read_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_representation_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_profile_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/write_samson.f90 -atmos_param/socrates/src/trunk/src/aux/filter_function.f90 -atmos_param/socrates/src/trunk/src/aux/qsat_alg_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/method_merge_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/rand_gauss.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_11.f90 -atmos_param/socrates/src/trunk/src/general/make_block_12.f90 -atmos_param/socrates/src/trunk/src/general/sum_unity.f90 -atmos_param/socrates/src/trunk/src/general/trapezoid_90.f90 -atmos_param/socrates/src/trunk/src/general/get_free_unit.F90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter.f90 -atmos_param/socrates/src/trunk/src/general/make_block_18.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_gas_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_17.f90 -atmos_param/socrates/src/trunk/src/general/make_block_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_19.f90 -atmos_param/socrates/src/trunk/src/general/make_block_0.f90 -atmos_param/socrates/src/trunk/src/general/make_block_10.f90 -atmos_param/socrates/src/trunk/src/general/make_block_14.f90 -atmos_param/socrates/src/trunk/src/general/read_solar_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_cont_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3_1.f90 -atmos_param/socrates/src/trunk/src/general/set_interactive.f90 -atmos_param/socrates/src/trunk/src/general/make_block_8.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3.f90 -atmos_param/socrates/src/trunk/src/general/make_block_15.f90 -atmos_param/socrates/src/trunk/src/general/make_block_9.f90 -atmos_param/socrates/src/trunk/src/general/read_instrument_response_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_4.f90 -atmos_param/socrates/src/trunk/src/general/map_heap_func.f90 -atmos_param/socrates/src/trunk/src/general/make_block_6.f90 -atmos_param/socrates/src/trunk/src/general/out_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_jeans_tail.f90 -atmos_param/socrates/src/trunk/src/general/solar_intensity.f90 -atmos_param/socrates/src/trunk/src/general/make_block_5.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_h2he.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_refract.f90 -atmos_param/socrates/src/trunk/src/modules_gen/scatter_pp_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_std_io_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdl_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/refract_re_ccf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_inst_flt.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_pp_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/weighting_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/error_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/file_type_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_data_in_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/unit_list_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/realtypefx_rd.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_solarspec.f90 -atmos_param/socrates/src/trunk/src/modules_gen/interp_mode_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_fixed_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/input_head_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_core/errormessagelength_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90 -atmos_param/socrates/src/trunk/src/modules_core/rad_ccf.F90 -atmos_param/socrates/src/trunk/src/modules_core/yomhook.F90 -atmos_param/socrates/src/trunk/src/modules_core/parkind1.F90 -atmos_param/socrates/src/trunk/src/modules_core/file_manager.F90 -atmos_param/socrates/src/trunk/src/modules_core/missing_data_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/vectlib_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/ereport_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/realtype_rd.f90 -atmos_param/socrates/src/trunk/src/modules_core/filenamelength_mod.F90 -atmos_param/socrates/src/trunk/src/aux/output_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_ss_cdl.f -atmos_param/socrates/src/trunk/src/aux/split_cdl_line.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_samson_p_field.f -atmos_param/socrates/src/trunk/src/aux/output_opt_profile_cdl.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdl.f -atmos_param/socrates/src/trunk/src/aux/fnc_density.f -atmos_param/socrates/src/trunk/src/aux/calc_volume_fraction.f -atmos_param/socrates/src/trunk/src/aux/calc_cdl_stride.f -atmos_param/socrates/src/trunk/src/aux/interp.f -atmos_param/socrates/src/trunk/src/aux/merge_pressure.f -atmos_param/socrates/src/trunk/src/aux/angular_control_cdf.f -atmos_param/socrates/src/trunk/src/aux/extinction_profile.f -atmos_param/socrates/src/trunk/src/aux/read_genln2_flux.f -atmos_param/socrates/src/trunk/src/aux/write_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_var_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_dimen_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/seaalbedo_driver.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdf.f -atmos_param/socrates/src/trunk/src/aux/angular_control.f -atmos_param/socrates/src/trunk/src/aux/output_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_view_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg_ice.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdf.f -atmos_param/socrates/src/trunk/src/aux/name_length.f -atmos_param/socrates/src/trunk/src/aux/sort_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/read_averaged_scatter.f -atmos_param/socrates/src/trunk/src/aux/write_cdl_field.f -atmos_param/socrates/src/trunk/src/aux/planck_ss_source.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdf.f -atmos_param/socrates/src/trunk/src/aux/write_profile.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdl.f -atmos_param/socrates/src/trunk/src/aux/planck_cumul.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_surf_cdl.f -atmos_param/socrates/src/trunk/src/aux/mono_rad_ss.f -atmos_param/socrates/src/trunk/src/aux/assign_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/qsat.f -atmos_param/socrates/src/trunk/src/aux/set_state.f -atmos_param/socrates/src/trunk/src/aux/l_find_component.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg.f -atmos_param/socrates/src/trunk/src/aux/read_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdl.f -atmos_param/socrates/src/trunk/src/general/non_blank.f -atmos_param/socrates/src/trunk/src/general/remove_blank.f -atmos_param/socrates/src/trunk/src/general/simpsons_rule.f -atmos_param/socrates/src/trunk/src/general/point_bracket.f -atmos_param/socrates/src/trunk/src/general/trapezoid.f -atmos_param/socrates/src/trunk/src/general/planck.f -atmos_param/socrates/src/trunk/src/general/read_line.f -atmos_param/socrates/src/trunk/src/general/make_block_6_1.f -atmos_param/socrates/src/trunk/src/general/calc_thermal_coeff.f -atmos_param/socrates/src/trunk/src/general/open_file_out.f -atmos_param/socrates/src/trunk/src/general/back_substitute.f -atmos_param/socrates/src/trunk/src/general/open_file_in.f -atmos_param/socrates/src/trunk/src/general/integrate_spline.f -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_air.f -atmos_param/socrates/src/trunk/src/general/lock_code.f -atmos_param/socrates/src/trunk/src/general/make_block_6_2.f -atmos_param/socrates/src/trunk/src/general/inner_bracket.f -atmos_param/socrates/src/trunk/src/general/svd_decompose.f -atmos_param/socrates/src/trunk/src/general/calc_planck_tbl.f -atmos_param/socrates/src/trunk/src/general/read_word.f +atmos_param/socrates/src/2207/src/aux/cdf_struc.finc +atmos_param/socrates/src/2207/src/aux/cdl_struc.finc +atmos_param/socrates/src/2207/src/aux/dec_disort.finc +atmos_param/socrates/src/2207/src/aux/call_disort.finc +atmos_param/socrates/src/2207/src/general/batch_error_main.finc +atmos_param/socrates/src/2207/src/general/aerosol_component.finc +atmos_param/socrates/src/2207/src/radiance_core/gauss_angle.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_mix_direct.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_dirn_weights.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_brdf.F90 +atmos_param/socrates/src/2207/src/radiance_core/triple_solar_source.F90 +atmos_param/socrates/src/2207/src/radiance_core/eval_uplm.F90 +atmos_param/socrates/src/2207/src/radiance_core/shell_sort.F90 +atmos_param/socrates/src/2207/src/radiance_core/rad_pcf.F90 +atmos_param/socrates/src/2207/src/radiance_core/check_phf_term.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_n_source_coeff.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_surf_rad.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_random_overlap.F90 +atmos_param/socrates/src/2207/src/radiance_core/scale_absorb.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_flux_ipa.F90 +atmos_param/socrates/src/2207/src/radiance_core/opt_prop_ice_cloud.F90 +atmos_param/socrates/src/2207/src/radiance_core/diff_planck_source_mod.F90 +atmos_param/socrates/src/2207/src/radiance_core/eig_sys.F90 +atmos_param/socrates/src/2207/src/radiance_core/adjust_ir_radiance.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_rad_layer.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_dimen.F90 +atmos_param/socrates/src/2207/src/radiance_core/mcica_column.F90 +atmos_param/socrates/src/2207/src/radiance_core/interp1d.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_uplm_zero.F90 +atmos_param/socrates/src/2207/src/radiance_core/spline_fit.F90 +atmos_param/socrates/src/2207/src/radiance_core/gaussian_weight_pcf.F90 +atmos_param/socrates/src/2207/src/radiance_core/gas_list_pcf.F90 +atmos_param/socrates/src/2207/src/radiance_core/trans_source_coeff.F90 +atmos_param/socrates/src/2207/src/radiance_core/band_solver.F90 +atmos_param/socrates/src/2207/src/radiance_core/mcica_sample.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_mix_direct_hogan.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_uplm_sol.F90 +atmos_param/socrates/src/2207/src/radiance_core/sph_matrix_solver.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_spectrum.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_triple_app_scat.F90 +atmos_param/socrates/src/2207/src/radiance_core/grey_opt_prop.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_gauss_weight_90.F90 +atmos_param/socrates/src/2207/src/radiance_core/sum_k.F90 +atmos_param/socrates/src/2207/src/radiance_core/ses_rescale_contm.F90 +atmos_param/socrates/src/2207/src/radiance_core/spline_evaluate.F90 +atmos_param/socrates/src/2207/src/radiance_core/cg_kappa_ms.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_bound.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 +atmos_param/socrates/src/2207/src/radiance_core/monochromatic_gas_flux.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_cloud_pointer.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_cloud_geometry.F90 +atmos_param/socrates/src/2207/src/radiance_core/rescale_phase_fnc.F90 +atmos_param/socrates/src/2207/src/radiance_core/monochromatic_radiance_sph.F90 +atmos_param/socrates/src/2207/src/radiance_core/inter_k.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_one_gas.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_top_rad.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_n_cloud_parameter.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_level_weights.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_k_eqv_scl.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_matrix_pentadiagonal.F90 +atmos_param/socrates/src/2207/src/radiance_core/mix_app_scat.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_out.F90 +atmos_param/socrates/src/2207/src/radiance_core/sol_scat_cos.F90 +atmos_param/socrates/src/2207/src/radiance_core/copy_clr_full.F90 +atmos_param/socrates/src/2207/src/radiance_core/eigenvalue_tri.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_homogen_direct.F90 +atmos_param/socrates/src/2207/src/radiance_core/rescale_continuum.F90 +atmos_param/socrates/src/2207/src/radiance_core/mixed_solar_source.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_aer.F90 +atmos_param/socrates/src/2207/src/radiance_core/opt_prop_inhom_corr_cairns.F90 +atmos_param/socrates/src/2207/src/radiance_core/rebin_esft_terms.F90 +atmos_param/socrates/src/2207/src/radiance_core/mix_column.F90 +atmos_param/socrates/src/2207/src/radiance_core/prsc_gather_spline.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_cg_coeff.F90 +atmos_param/socrates/src/2207/src/radiance_core/inter_pt_lookup.F90 +atmos_param/socrates/src/2207/src/radiance_core/opt_prop_ukca_aerosol.F90 +atmos_param/socrates/src/2207/src/radiance_core/scale_wenyi.F90 +atmos_param/socrates/src/2207/src/radiance_core/triple_column.F90 +atmos_param/socrates/src/2207/src/radiance_core/single_scattering_all.F90 +atmos_param/socrates/src/2207/src/radiance_core/inter_pt.F90 +atmos_param/socrates/src/2207/src/radiance_core/overlap_coupled.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_cld.F90 +atmos_param/socrates/src/2207/src/radiance_core/solar_coefficient_basic.F90 +atmos_param/socrates/src/2207/src/radiance_core/build_sph_matrix.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_k_eqv.F90 +atmos_param/socrates/src/2207/src/radiance_core/augment_tiled_radiance.F90 +atmos_param/socrates/src/2207/src/radiance_core/column_solver.F90 +atmos_param/socrates/src/2207/src/radiance_core/augment_radiance.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_control.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_coeff_basic.F90 +atmos_param/socrates/src/2207/src/radiance_core/sph_solver.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_no_scat.F90 +atmos_param/socrates/src/2207/src/radiance_core/copy_clr_sol.F90 +atmos_param/socrates/src/2207/src/radiance_core/solar_source.F90 +atmos_param/socrates/src/2207/src/radiance_core/opt_prop_water_cloud.F90 +atmos_param/socrates/src/2207/src/radiance_core/legendre_weight.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_without_gas.F90 +atmos_param/socrates/src/2207/src/radiance_core/diff_albedo_basis.F90 +atmos_param/socrates/src/2207/src/radiance_core/increment_rad_cf.F90 +atmos_param/socrates/src/2207/src/radiance_core/single_scat_sol.F90 +atmos_param/socrates/src/2207/src/radiance_core/opt_prop_aerosol.F90 +atmos_param/socrates/src/2207/src/radiance_core/solve_band_ses.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_ss_prop.F90 +atmos_param/socrates/src/2207/src/radiance_core/prsc_opt_prop.F90 +atmos_param/socrates/src/2207/src/radiance_core/layer_part_integ.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_coeff_fast_lw.F90 +atmos_param/socrates/src/2207/src/radiance_core/gas_optical_properties.F90 +atmos_param/socrates/src/2207/src/radiance_core/single_scattering.F90 +atmos_param/socrates/src/2207/src/radiance_core/monochromatic_ir_radiance.F90 +atmos_param/socrates/src/2207/src/radiance_core/hemi_sph_integ.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_coeff_cloud.F90 +atmos_param/socrates/src/2207/src/radiance_core/read_spectrum.F90 +atmos_param/socrates/src/2207/src/radiance_core/inter_t_lookup.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_triple.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_stream.F90 +atmos_param/socrates/src/2207/src/radiance_core/solver_triple_hogan.F90 +atmos_param/socrates/src/2207/src/radiance_core/monochromatic_radiance_tseq.F90 +atmos_param/socrates/src/2207/src/radiance_core/cloud_maxcs_split.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_atm.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_coeff.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_coeff_region.F90 +atmos_param/socrates/src/2207/src/radiance_core/quicksort.F90 +atmos_param/socrates/src/2207/src/radiance_core/rescale_tau_omega.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_radiance_ipa.F90 +atmos_param/socrates/src/2207/src/radiance_core/two_coeff_region_fast_lw.F90 +atmos_param/socrates/src/2207/src/radiance_core/set_truncation.F90 +atmos_param/socrates/src/2207/src/radiance_core/monochromatic_radiance.F90 +atmos_param/socrates/src/2207/src/radiance_core/aggregate_cloud.F90 +atmos_param/socrates/src/2207/src/radiance_core/radiance_calc.F90 +atmos_param/socrates/src/2207/src/radiance_core/ir_source.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_planck.F90 +atmos_param/socrates/src/2207/src/radiance_core/def_spherical_geometry.F90 +atmos_param/socrates/src/2207/src/radiance_core/spherical_trans_coeff.F90 +atmos_param/socrates/src/2207/src/radiance_core/spherical_solar_source.F90 +atmos_param/socrates/src/2207/src/radiance_core/diffusivity_factor.F90 +atmos_param/socrates/src/2207/src/radiance_core/planck_flux_band_mod.F90 +atmos_param/socrates/src/2207/src/radiance_core/spherical_path.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_actinic_flux_mod.F90 +atmos_param/socrates/src/2207/src/nlte/interpolate_p_mod.F90 +atmos_param/socrates/src/2207/src/radiance_core/rescale_tau_csr.F90 +atmos_param/socrates/src/2207/src/radiance_core/calc_contrib_func.F90 +atmos_param/socrates/src/2207/src/radiance_core/circumsolar_fraction.F90 +atmos_param/socrates/src/2207/src/radiance_core/legendre_mod.F90 +atmos_param/socrates/src/2207/src/aux/qsat_wat.F90 +atmos_param/socrates/src/2207/src/aux/qsat_gill.F90 +atmos_param/socrates/src/2207/src/aux/write_cdf.f90 +atmos_param/socrates/src/2207/src/aux/read_cdf.f90 +atmos_param/socrates/src/2207/src/aux/aerosol_representation_pcf.f90 +atmos_param/socrates/src/2207/src/aux/aerosol_profile_pcf.f90 +atmos_param/socrates/src/2207/src/aux/write_samson.f90 +atmos_param/socrates/src/2207/src/aux/filter_function.f90 +atmos_param/socrates/src/2207/src/aux/qsat_alg_pcf.f90 +atmos_param/socrates/src/2207/src/aux/method_merge_pcf.f90 +atmos_param/socrates/src/2207/src/aux/rand_gauss.f90 +atmos_param/socrates/src/2207/src/general/make_block_2_1.f90 +atmos_param/socrates/src/2207/src/general/make_block_11.f90 +atmos_param/socrates/src/2207/src/general/make_block_12.f90 +atmos_param/socrates/src/2207/src/general/sum_unity.f90 +atmos_param/socrates/src/2207/src/general/trapezoid_90.f90 +atmos_param/socrates/src/2207/src/general/get_free_unit.F90 +atmos_param/socrates/src/2207/src/general/rayleigh_scatter.f90 +atmos_param/socrates/src/2207/src/general/make_block_18.f90 +atmos_param/socrates/src/2207/src/general/remove_negative_gas_90.f90 +atmos_param/socrates/src/2207/src/general/make_block_17.f90 +atmos_param/socrates/src/2207/src/general/make_block_1.f90 +atmos_param/socrates/src/2207/src/general/make_block_19.f90 +atmos_param/socrates/src/2207/src/general/make_block_0.f90 +atmos_param/socrates/src/2207/src/general/make_block_10.f90 +atmos_param/socrates/src/2207/src/general/make_block_14.f90 +atmos_param/socrates/src/2207/src/general/read_solar_spectrum.f90 +atmos_param/socrates/src/2207/src/general/remove_negative_cont_90.f90 +atmos_param/socrates/src/2207/src/general/make_block_3_1.f90 +atmos_param/socrates/src/2207/src/general/set_interactive.f90 +atmos_param/socrates/src/2207/src/general/make_block_8.f90 +atmos_param/socrates/src/2207/src/general/make_block_3.f90 +atmos_param/socrates/src/2207/src/general/make_block_15.f90 +atmos_param/socrates/src/2207/src/general/make_block_9.f90 +atmos_param/socrates/src/2207/src/general/read_instrument_response_90.f90 +atmos_param/socrates/src/2207/src/general/make_block_4.f90 +atmos_param/socrates/src/2207/src/general/map_heap_func.f90 +atmos_param/socrates/src/2207/src/general/make_block_6.f90 +atmos_param/socrates/src/2207/src/general/out_spectrum.f90 +atmos_param/socrates/src/2207/src/general/make_block_2.f90 +atmos_param/socrates/src/2207/src/general/rayleigh_jeans_tail.f90 +atmos_param/socrates/src/2207/src/general/solar_intensity.f90 +atmos_param/socrates/src/2207/src/general/make_block_5.f90 +atmos_param/socrates/src/2207/src/general/rayleigh_scatter_h2he.f90 +atmos_param/socrates/src/2207/src/modules_gen/dimensions_field_cdf_ucf.f90 +atmos_param/socrates/src/2207/src/modules_gen/def_refract.f90 +atmos_param/socrates/src/2207/src/modules_gen/scatter_pp_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/def_std_io_icf.f90 +atmos_param/socrates/src/2207/src/modules_gen/dimensions_cdl_ucf.f90 +atmos_param/socrates/src/2207/src/modules_gen/refract_re_ccf.f90 +atmos_param/socrates/src/2207/src/modules_gen/def_inst_flt.f90 +atmos_param/socrates/src/2207/src/modules_gen/dimensions_pp_ucf.f90 +atmos_param/socrates/src/2207/src/modules_gen/weighting_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/error_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/file_type_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/def_data_in_icf.f90 +atmos_param/socrates/src/2207/src/modules_gen/dimensions_cdf_ucf.f90 +atmos_param/socrates/src/2207/src/modules_gen/unit_list_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/realtypefx_rd.f90 +atmos_param/socrates/src/2207/src/modules_gen/def_solarspec.f90 +atmos_param/socrates/src/2207/src/modules_gen/interp_mode_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/dimensions_fixed_pcf.f90 +atmos_param/socrates/src/2207/src/modules_gen/dimensions_field_ucf.f90 +atmos_param/socrates/src/2207/src/modules_gen/input_head_pcf.f90 +atmos_param/socrates/src/2207/src/modules_core/errormessagelength_mod.F90 +atmos_param/socrates/src/2207/src/modules_core/dimensions_spec_ucf.F90 +atmos_param/socrates/src/2207/src/modules_core/rad_ccf.F90 +atmos_param/socrates/src/2207/src/modules_core/yomhook.F90 +atmos_param/socrates/src/2207/src/modules_core/parkind1.F90 +atmos_param/socrates/src/2207/src/modules_core/file_manager.F90 +atmos_param/socrates/src/2207/src/modules_core/missing_data_mod.F90 +atmos_param/socrates/src/2207/src/modules_core/vectlib_mod.F90 +atmos_param/socrates/src/2207/src/modules_core/ereport_mod.F90 +atmos_param/socrates/src/2207/src/modules_core/realtype_rd.f90 +atmos_param/socrates/src/2207/src/modules_core/filenamelength_mod.F90 +atmos_param/socrates/src/2207/src/aux/output_vert_cdl.f +atmos_param/socrates/src/2207/src/aux/assign_input_opt_cdf.f +atmos_param/socrates/src/2207/src/aux/assign_input_ss_cdl.f +atmos_param/socrates/src/2207/src/aux/split_cdl_line.f +atmos_param/socrates/src/2207/src/aux/input_cloud_cdf.f +atmos_param/socrates/src/2207/src/aux/assign_viewing_geom_cdl.f +atmos_param/socrates/src/2207/src/aux/read_samson_p_field.f +atmos_param/socrates/src/2207/src/aux/output_opt_profile_cdl.f +atmos_param/socrates/src/2207/src/aux/input_cloud_cdl.f +atmos_param/socrates/src/2207/src/aux/output_radiance_cdl.f +atmos_param/socrates/src/2207/src/aux/fnc_density.f +atmos_param/socrates/src/2207/src/aux/calc_volume_fraction.f +atmos_param/socrates/src/2207/src/aux/calc_cdl_stride.f +atmos_param/socrates/src/2207/src/aux/interp.f +atmos_param/socrates/src/2207/src/aux/merge_pressure.f +atmos_param/socrates/src/2207/src/aux/angular_control_cdf.f +atmos_param/socrates/src/2207/src/aux/extinction_profile.f +atmos_param/socrates/src/2207/src/aux/read_genln2_flux.f +atmos_param/socrates/src/2207/src/aux/write_cdl.f +atmos_param/socrates/src/2207/src/aux/find_var_cdl.f +atmos_param/socrates/src/2207/src/aux/assign_input_vert_cdf.f +atmos_param/socrates/src/2207/src/aux/input_aerosol_cdf.f +atmos_param/socrates/src/2207/src/aux/assign_input_novert_cdl.f +atmos_param/socrates/src/2207/src/aux/find_dimen_cdl.f +atmos_param/socrates/src/2207/src/aux/output_flux_cdl.f +atmos_param/socrates/src/2207/src/aux/assign_input_opt_cdl.f +atmos_param/socrates/src/2207/src/aux/output_horiz_cdl.f +atmos_param/socrates/src/2207/src/aux/seaalbedo_driver.f +atmos_param/socrates/src/2207/src/aux/assign_viewing_geom_cdf.f +atmos_param/socrates/src/2207/src/aux/angular_control.f +atmos_param/socrates/src/2207/src/aux/output_vert_cdf.f +atmos_param/socrates/src/2207/src/aux/output_view_cdl.f +atmos_param/socrates/src/2207/src/aux/read_raw_profile.f +atmos_param/socrates/src/2207/src/aux/qsat_gg_ice.f +atmos_param/socrates/src/2207/src/aux/output_flux_cdf.f +atmos_param/socrates/src/2207/src/aux/assign_surface_char_cdf.f +atmos_param/socrates/src/2207/src/aux/name_length.f +atmos_param/socrates/src/2207/src/aux/sort_raw_profile.f +atmos_param/socrates/src/2207/src/aux/read_averaged_scatter.f +atmos_param/socrates/src/2207/src/aux/write_cdl_field.f +atmos_param/socrates/src/2207/src/aux/planck_ss_source.f +atmos_param/socrates/src/2207/src/aux/output_photolysis_cdf.f +atmos_param/socrates/src/2207/src/aux/output_radiance_cdf.f +atmos_param/socrates/src/2207/src/aux/write_profile.f +atmos_param/socrates/src/2207/src/aux/assign_surface_char_cdl.f +atmos_param/socrates/src/2207/src/aux/planck_cumul.f +atmos_param/socrates/src/2207/src/aux/input_aerosol_cdl.f +atmos_param/socrates/src/2207/src/aux/assign_input_novert_cdf.f +atmos_param/socrates/src/2207/src/aux/output_surf_cdl.f +atmos_param/socrates/src/2207/src/aux/mono_rad_ss.f +atmos_param/socrates/src/2207/src/aux/assign_horiz_cdl.f +atmos_param/socrates/src/2207/src/aux/qsat.f +atmos_param/socrates/src/2207/src/aux/set_state.f +atmos_param/socrates/src/2207/src/aux/l_find_component.f +atmos_param/socrates/src/2207/src/aux/qsat_gg.f +atmos_param/socrates/src/2207/src/aux/read_cdl.f +atmos_param/socrates/src/2207/src/aux/assign_input_vert_cdl.f +atmos_param/socrates/src/2207/src/aux/output_photolysis_cdl.f +atmos_param/socrates/src/2207/src/general/non_blank.f +atmos_param/socrates/src/2207/src/general/remove_blank.f +atmos_param/socrates/src/2207/src/general/simpsons_rule.f +atmos_param/socrates/src/2207/src/general/point_bracket.f +atmos_param/socrates/src/2207/src/general/trapezoid.f +atmos_param/socrates/src/2207/src/general/planck.f +atmos_param/socrates/src/2207/src/general/read_line.f +atmos_param/socrates/src/2207/src/general/make_block_6_1.f +atmos_param/socrates/src/2207/src/general/calc_thermal_coeff.f +atmos_param/socrates/src/2207/src/general/open_file_out.f +atmos_param/socrates/src/2207/src/general/back_substitute.f +atmos_param/socrates/src/2207/src/general/open_file_in.f +atmos_param/socrates/src/2207/src/general/integrate_spline.f +atmos_param/socrates/src/2207/src/general/rayleigh_scatter_air.f +atmos_param/socrates/src/2207/src/general/lock_code.f +atmos_param/socrates/src/2207/src/general/make_block_6_2.f +atmos_param/socrates/src/2207/src/general/inner_bracket.f +atmos_param/socrates/src/2207/src/general/svd_decompose.f +atmos_param/socrates/src/2207/src/general/calc_planck_tbl.f +atmos_param/socrates/src/2207/src/general/read_word.f diff --git a/src/extra/python/isca/__init__.py b/src/extra/python/isca/__init__.py index 830b10774..12ce5e24d 100644 --- a/src/extra/python/isca/__init__.py +++ b/src/extra/python/isca/__init__.py @@ -39,6 +39,14 @@ GFDL_SOC = None log.warning('Environment variable GFDL_SOC not set, but this is only required if using SocratesCodebase. Setting to '+str(GFDL_SOC)) +try: + GFDL_SOC_DIR = os.environ['GFDL_SOC_DIR'] +except: + # if the user doesn't have the SOC variable set, then use None + GFDL_SOC_DIR = None + log.warning('Environment variable GFDL_SOC_DIR not set, but this is only required if using SocratesCodebase with multiple socrates versions. Setting to '+str(GFDL_SOC_DIR)) + + def get_env_file(env=GFDL_ENV): filepath = os.path.join(GFDL_BASE, 'src', 'extra', 'env', env) if os.path.exists(filepath): diff --git a/src/extra/python/isca/codebase.py b/src/extra/python/isca/codebase.py index 1ff48389f..043803143 100644 --- a/src/extra/python/isca/codebase.py +++ b/src/extra/python/isca/codebase.py @@ -5,7 +5,7 @@ from jinja2 import Environment, FileSystemLoader import sh -from isca import GFDL_WORK, GFDL_BASE, GFDL_SOC, _module_directory, get_env_file +from isca import GFDL_WORK, GFDL_BASE, GFDL_SOC, GFDL_SOC_DIR, _module_directory, get_env_file from .loghandler import Logger from .helpers import url_to_folder, destructive, useworkdir, mkdir, git, P, git_run_in_directory, check_for_sh_stdout @@ -325,9 +325,13 @@ def disable_rrtm(self): self.log.info('RRTM compilation disabled.') def simlink_to_soc_code(self): - #Make symlink to socrates source code if one doesn't already exist. - socrates_desired_location = self.codedir+'/src/atmos_param/socrates/src/trunk' + if GFDL_SOC_DIR is None and self.socrates_version!='1703': + error_mesg = f'You have not set the value of GFDL_SOC_DIR, but you have asked for version {self.socrates_version} of Socrates when the default is 1703. Please see Isca docs page for Socrates for information at Isca/docs/source/modules/socrates.rst.' + self.log.error(error_mesg) + raise OSError(error_mesg) + #Make symlink to socrates source code if one doesn't already exist. + socrates_desired_location = self.codedir+f'/src/atmos_param/socrates/src/{self.socrates_version}' #First check if socrates is in correct place already if os.path.exists(socrates_desired_location): link_correct = os.path.exists(socrates_desired_location+'/src/') @@ -348,8 +352,11 @@ def simlink_to_soc_code(self): if socrates_code_in_desired_location: self.log.info('Socrates source code already in correct place. Continuing.') else: - if GFDL_SOC is not None: - sh.ln('-s', GFDL_SOC, socrates_desired_location) + if GFDL_SOC_DIR is not None: + self.log.info('You have set the value of GFDL_SOC_DIR, so Isca will be configured to allow for multiple socrates versions. ') + sh.ln('-s', f'{GFDL_SOC_DIR}/{self.socrates_version}/', socrates_desired_location) + elif GFDL_SOC is not None: + sh.ln('-s', GFDL_SOC, socrates_desired_location) elif GFDL_SOC is None: error_mesg = 'Socrates code is required for SocratesCodebase, but source code is not provided in location GFDL_SOC='+ str(GFDL_SOC) self.log.error(error_mesg) From cb89b6e39d1b1e196ad9930f7087860a791115d5 Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 13 Sep 2024 12:46:06 +0100 Subject: [PATCH 05/10] Updating socrates column model class so that it inherits the properties of the socrates code base, rather than having to redefine everything. Done the same with Column code base. Have also changed column model path names so that it inherits socrates paths in the same way as socrates code base. --- .../column_test_socrates_ozone.py | 4 +- src/extra/model/socrates_column/path_names | 384 ------------------ src/extra/python/isca/codebase.py | 60 +-- 3 files changed, 11 insertions(+), 437 deletions(-) diff --git a/exp/test_cases/column_test_case/column_test_socrates_ozone.py b/exp/test_cases/column_test_case/column_test_socrates_ozone.py index fb6a9193b..3ae00012f 100644 --- a/exp/test_cases/column_test_case/column_test_socrates_ozone.py +++ b/exp/test_cases/column_test_case/column_test_socrates_ozone.py @@ -154,8 +154,8 @@ 'socrates_rad_nml': { 'stellar_constant':1370., - 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7'), - 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7'), + 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7'), + 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7'), 'dt_rad':7200, 'store_intermediate_rad':True, 'chunk_size': 1, # MUST BE 1 FOR COLUMN MODEL diff --git a/src/extra/model/socrates_column/path_names b/src/extra/model/socrates_column/path_names index 92c7dbe95..8cebb40b6 100644 --- a/src/extra/model/socrates_column/path_names +++ b/src/extra/model/socrates_column/path_names @@ -185,390 +185,6 @@ shared/topography/gaussian_topog.F90 shared/topography/topography.F90 shared/tracer_manager/tracer_manager.F90 shared/tridiagonal/tridiagonal.F90 -atmos_param/socrates/src/trunk/src/aux/cdf_struc.finc -atmos_param/socrates/src/trunk/src/aux/cdl_struc.finc -atmos_param/socrates/src/trunk/src/aux/dec_disort.finc -atmos_param/socrates/src/trunk/src/aux/call_disort.finc -atmos_param/socrates/src/trunk/src/general/batch_error_main.finc -atmos_param/socrates/src/trunk/src/general/aerosol_component.finc -atmos_param/socrates/src/trunk/src/radiance_core/gauss_angle.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_dirn_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_brdf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eval_uplm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/shell_sort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rad_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/check_phf_term.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_surf_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_absorb.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calculate_density.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_flux_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ice_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_tbl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eig_sys.F90 -atmos_param/socrates/src/trunk/src/radiance_core/adjust_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_rad_layer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_dimen.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/interp1d.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_zero.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_fit.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gaussian_weight_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_list_pcf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/trans_source_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/band_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mcica_sample.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_mix_direct_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_uplm_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_matrix_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/grey_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_gauss_weight_90.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sum_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ses_rescale_contm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/spline_evaluate.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cg_kappa_ms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_bound.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_gas_flux.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_pointer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_cloud_geometry.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_phase_fnc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_sph.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_k.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_one_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_top_rad.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_n_cloud_parameter.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_level_weights.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv_scl.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_matrix_pentadiagonal.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_app_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_out.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sol_scat_cos.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_full.F90 -atmos_param/socrates/src/trunk/src/radiance_core/eigenvalue_tri.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_homogen_direct.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_continuum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mixed_solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_aer.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_inhom_corr_cairns.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rebin_esft_terms.F90 -atmos_param/socrates/src/trunk/src/radiance_core/mix_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_gather_spline.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_cg_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_ukca_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/scale_wenyi.F90 -atmos_param/socrates/src/trunk/src/radiance_core/triple_column.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering_all.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_pt.F90 -atmos_param/socrates/src/trunk/src/radiance_core/overlap_coupled.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_cld.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_coefficient_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/build_sph_matrix.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_k_eqv.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_tiled_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/column_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/augment_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_control.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_basic.F90 -atmos_param/socrates/src/trunk/src/radiance_core/sph_solver.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_no_scat.F90 -atmos_param/socrates/src/trunk/src/radiance_core/copy_clr_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solar_source.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_water_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/legendre_weight.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_without_gas.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_albedo_basis.F90 -atmos_param/socrates/src/trunk/src/radiance_core/increment_rad_cf.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scat_sol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/opt_prop_aerosol.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solve_band_ses.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_ss_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/prsc_opt_prop.F90 -atmos_param/socrates/src/trunk/src/radiance_core/layer_part_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/gas_optical_properties.F90 -atmos_param/socrates/src/trunk/src/radiance_core/single_scattering.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_ir_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/hemi_sph_integ.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/read_spectrum.F90 -atmos_param/socrates/src/trunk/src/radiance_core/inter_t_lookup.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_stream.F90 -atmos_param/socrates/src/trunk/src/radiance_core/solver_triple_hogan.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance_tseq.F90 -atmos_param/socrates/src/trunk/src/radiance_core/cloud_maxcs_split.F90 -atmos_param/socrates/src/trunk/src/radiance_core/def_atm.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region.F90 -atmos_param/socrates/src/trunk/src/radiance_core/quicksort.F90 -atmos_param/socrates/src/trunk/src/radiance_core/rescale_tau_omega.F90 -atmos_param/socrates/src/trunk/src/radiance_core/calc_radiance_ipa.F90 -atmos_param/socrates/src/trunk/src/radiance_core/two_coeff_region_fast_lw.F90 -atmos_param/socrates/src/trunk/src/radiance_core/diff_planck_source_poly.F90 -atmos_param/socrates/src/trunk/src/radiance_core/set_truncation.F90 -atmos_param/socrates/src/trunk/src/radiance_core/monochromatic_radiance.F90 -atmos_param/socrates/src/trunk/src/radiance_core/aggregate_cloud.F90 -atmos_param/socrates/src/trunk/src/radiance_core/radiance_calc.F90 -atmos_param/socrates/src/trunk/src/radiance_core/ir_source.F90 -atmos_param/socrates/src/trunk/src/scatter/conjugate_gradient_cloud_90.f90 -atmos_param/socrates/src/trunk/src/scatter/method_weight_pcf.f90 -atmos_param/socrates/src/trunk/src/scatter/select_weight_scatter_90.f90 -atmos_param/socrates/src/trunk/src/scatter/measure_particle_pcf.f90 -atmos_param/socrates/src/trunk/src/scatter/prec_integral_tcf.f90 -atmos_param/socrates/src/trunk/src/scatter/def_s_scat_prop.f90 -atmos_param/socrates/src/trunk/src/scatter/db_scatter_integral.f90 -atmos_param/socrates/src/trunk/src/scatter/weightings_90.f90 -atmos_param/socrates/src/trunk/src/scatter/def_db_ss_mono.f90 -atmos_param/socrates/src/trunk/src/scatter/cloud_fitting.f90 -atmos_param/socrates/src/trunk/src/scatter/shape_particle_pcf.f90 -atmos_param/socrates/src/trunk/src/scatter/number_particle_90.f90 -atmos_param/socrates/src/trunk/src/scatter/db_interp_ss_mono.f90 -atmos_param/socrates/src/trunk/src/scatter/db_read_single_wavelength.f90 -atmos_param/socrates/src/trunk/src/scatter/get_refract_index.f90 -atmos_param/socrates/src/trunk/src/scatter/read_scatter_block_90.f90 -atmos_param/socrates/src/trunk/src/scatter/proj_area_particle.f90 -atmos_param/socrates/src/trunk/src/scatter/line_search_cloud_90.f90 -atmos_param/socrates/src/trunk/src/scatter/volume_particle.f90 -atmos_param/socrates/src/trunk/src/scatter/distribution_pcf.f90 -atmos_param/socrates/src/trunk/src/scatter/size_integral_90.f90 -atmos_param/socrates/src/trunk/src/scatter/particle_size_90.f90 -atmos_param/socrates/src/trunk/src/scatter/max_size_acf.f90 -atmos_param/socrates/src/trunk/src/scatter/write_average_90.f90 -atmos_param/socrates/src/trunk/src/scatter/adt_mitchell96.f90 -atmos_param/socrates/src/trunk/src/scatter/get_db_wavelengths.f90 -atmos_param/socrates/src/trunk/src/scatter/decompose_phf_90.f90 -atmos_param/socrates/src/trunk/src/scatter/cloud_fit_parm_acf.f90 -atmos_param/socrates/src/trunk/src/scatter/cloud_fit_90.f90 -atmos_param/socrates/src/trunk/src/scatter/ice_db_read_geometry.f90 -atmos_param/socrates/src/trunk/src/scatter/def_sct_db.f90 -atmos_param/socrates/src/trunk/src/scatter/open_average_90.f90 -atmos_param/socrates/src/trunk/src/scatter/def_size_dist.f90 -atmos_param/socrates/src/trunk/src/scatter/parm_integ_acf.f90 -atmos_param/socrates/src/trunk/src/scatter/bna_factor_ccf.f90 -atmos_param/socrates/src/trunk/src/scatter/def_db_crystal_geometry.f90 -atmos_param/socrates/src/trunk/src/scatter/get_wavelengths.f90 -atmos_param/socrates/src/trunk/src/scatter/weightings_single_90.f90 -atmos_param/socrates/src/trunk/src/scatter/scatter_algorithm_pcf.f90 -atmos_param/socrates/src/trunk/src/scatter/db_type_ucf.f90 -atmos_param/socrates/src/trunk/src/scatter/scatter_integral_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/voigt_profile.f90 -atmos_param/socrates/src/trunk/src/correlated_k/adjust_path.f90 -atmos_param/socrates/src/trunk/src/correlated_k/func_scale_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/read_pt_line_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/set_condition_ck_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/caviar_continuum_v1_0.f90 -atmos_param/socrates/src/trunk/src/correlated_k/rad_weight_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/select_weight_ck_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/trans_k_dist.f90 -atmos_param/socrates/src/trunk/src/correlated_k/type_residual_pcf.f90 -atmos_param/socrates/src/trunk/src/correlated_k/map_shell.f90 -atmos_param/socrates/src/trunk/src/correlated_k/terminate_scale_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/ckd_continuum_v2_4.f90 -atmos_param/socrates/src/trunk/src/correlated_k/write_fit_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/ck_parm_acf.f90 -atmos_param/socrates/src/trunk/src/correlated_k/fit_parabola_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/func_scale_derivative_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/optimal_k.f90 -atmos_param/socrates/src/trunk/src/correlated_k/open_file_out_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/residual_gradient_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/scale_ck_fit_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/read_ref_pt_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/corr_k_single.f90 -atmos_param/socrates/src/trunk/src/correlated_k/planck_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/exponent_fit_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/conjugate_gradient_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/line_prof_corr_mod.f90 -atmos_param/socrates/src/trunk/src/correlated_k/set_extern_ckd_frn_data.f90 -atmos_param/socrates/src/trunk/src/correlated_k/set_g_point_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/bi_interp.f90 -atmos_param/socrates/src/trunk/src/correlated_k/residual_trans_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/set_extern_ckd_self_data.f90 -atmos_param/socrates/src/trunk/src/correlated_k/line_search_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/read_hitran.f90 -atmos_param/socrates/src/trunk/src/correlated_k/read_nc.f90 -atmos_param/socrates/src/trunk/src/correlated_k/ckd_extern_data.f90 -atmos_param/socrates/src/trunk/src/correlated_k/def_hitran_record.f90 -atmos_param/socrates/src/trunk/src/correlated_k/d_planck_90.f90 -atmos_param/socrates/src/trunk/src/correlated_k/scale_parameters_acf.f90 -atmos_param/socrates/src/trunk/src/correlated_k/offset_residual_trans_acf.f90 -atmos_param/socrates/src/trunk/src/correlated_k/hitran_cnst.f90 -atmos_param/socrates/src/trunk/src/correlated_k/ck_fit_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/qsat_wat.F90 -atmos_param/socrates/src/trunk/src/aux/qsat_gill.F90 -atmos_param/socrates/src/trunk/src/aux/write_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/read_cdf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_representation_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/aerosol_profile_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/write_samson.f90 -atmos_param/socrates/src/trunk/src/aux/filter_function.f90 -atmos_param/socrates/src/trunk/src/aux/qsat_alg_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/method_merge_pcf.f90 -atmos_param/socrates/src/trunk/src/aux/rand_gauss.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2_1.f90 -atmos_param/socrates/src/trunk/src/general/make_block_11.f90 -atmos_param/socrates/src/trunk/src/general/make_block_12.f90 -atmos_param/socrates/src/trunk/src/general/sum_unity.f90 -atmos_param/socrates/src/trunk/src/general/trapezoid_90.f90 -atmos_param/socrates/src/trunk/src/general/get_free_unit.F90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter.f90 -atmos_param/socrates/src/trunk/src/general/make_block_18.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_gas_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_17.f90 -atmos_param/socrates/src/trunk/src/general/make_block_1.f90 -atmos_param/socrates/src/trunk/src/general/solar_intensity_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_19.f90 -atmos_param/socrates/src/trunk/src/general/make_block_0.f90 -atmos_param/socrates/src/trunk/src/general/make_block_10.f90 -atmos_param/socrates/src/trunk/src/general/make_block_14.f90 -atmos_param/socrates/src/trunk/src/general/read_solar_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/remove_negative_cont_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3_1.f90 -atmos_param/socrates/src/trunk/src/general/set_interactive.f90 -atmos_param/socrates/src/trunk/src/general/make_block_8.f90 -atmos_param/socrates/src/trunk/src/general/make_block_3.f90 -atmos_param/socrates/src/trunk/src/general/make_block_15.f90 -atmos_param/socrates/src/trunk/src/general/make_block_9.f90 -atmos_param/socrates/src/trunk/src/general/read_instrument_response_90.f90 -atmos_param/socrates/src/trunk/src/general/make_block_4.f90 -atmos_param/socrates/src/trunk/src/general/map_heap_func.f90 -atmos_param/socrates/src/trunk/src/general/make_block_6.f90 -atmos_param/socrates/src/trunk/src/general/out_spectrum.f90 -atmos_param/socrates/src/trunk/src/general/make_block_2.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_jeans_tail.f90 -atmos_param/socrates/src/trunk/src/general/solar_intensity.f90 -atmos_param/socrates/src/trunk/src/general/make_block_5.f90 -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_h2he.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_refract.f90 -atmos_param/socrates/src/trunk/src/modules_gen/scatter_pp_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_std_io_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdl_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/refract_re_ccf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_inst_flt.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_pp_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/weighting_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/error_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/file_type_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_data_in_icf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_cdf_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/unit_list_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/realtypefx_rd.f90 -atmos_param/socrates/src/trunk/src/modules_gen/def_solarspec.f90 -atmos_param/socrates/src/trunk/src/modules_gen/interp_mode_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_fixed_pcf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/dimensions_field_ucf.f90 -atmos_param/socrates/src/trunk/src/modules_gen/input_head_pcf.f90 -atmos_param/socrates/src/trunk/src/radiation_control/close_cloud_gen.F90 -atmos_param/socrates/src/trunk/src/radiation_control/mcica_order.F90 -atmos_param/socrates/src/trunk/src/radiation_control/rand_no_mcica.F90 -atmos_param/socrates/src/trunk/src/radiation_control/set_moist_aerosol_properties.F90 -atmos_param/socrates/src/trunk/src/radiation_control/mcica_mod.F90 -atmos_param/socrates/src/trunk/src/radiation_control/cld_generator_mod.F90 -atmos_param/socrates/src/trunk/src/radiation_control/open_cloud_gen.F90 -atmos_param/socrates/src/trunk/src/um/out_nml.f90 -atmos_param/socrates/src/trunk/src/um/def_um_nml.f90 -atmos_param/socrates/src/trunk/src/modules_core/errormessagelength_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90 -atmos_param/socrates/src/trunk/src/modules_core/rad_ccf.F90 -atmos_param/socrates/src/trunk/src/modules_core/yomhook.F90 -atmos_param/socrates/src/trunk/src/modules_core/parkind1.F90 -atmos_param/socrates/src/trunk/src/modules_core/file_manager.F90 -atmos_param/socrates/src/trunk/src/modules_core/missing_data_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/vectlib_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/ereport_mod.F90 -atmos_param/socrates/src/trunk/src/modules_core/realtype_rd.f90 -atmos_param/socrates/src/trunk/src/modules_core/filenamelength_mod.F90 -atmos_param/socrates/src/trunk/src/scatter/grow_particles.f -atmos_param/socrates/src/trunk/src/scatter/mie_scatter.f -atmos_param/socrates/src/trunk/src/scatter/adt_integral.f -atmos_param/socrates/src/trunk/src/scatter/gamma_fnc.f -atmos_param/socrates/src/trunk/src/scatter/refractive_index.f -atmos_param/socrates/src/trunk/src/aux/output_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_ss_cdl.f -atmos_param/socrates/src/trunk/src/aux/split_cdl_line.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_samson_p_field.f -atmos_param/socrates/src/trunk/src/aux/output_opt_profile_cdl.f -atmos_param/socrates/src/trunk/src/aux/input_cloud_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdl.f -atmos_param/socrates/src/trunk/src/aux/fnc_density.f -atmos_param/socrates/src/trunk/src/aux/calc_volume_fraction.f -atmos_param/socrates/src/trunk/src/aux/calc_cdl_stride.f -atmos_param/socrates/src/trunk/src/aux/interp.f -atmos_param/socrates/src/trunk/src/aux/merge_pressure.f -atmos_param/socrates/src/trunk/src/aux/angular_control_cdf.f -atmos_param/socrates/src/trunk/src/aux/extinction_profile.f -atmos_param/socrates/src/trunk/src/aux/read_genln2_flux.f -atmos_param/socrates/src/trunk/src/aux/write_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_var_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdl.f -atmos_param/socrates/src/trunk/src/aux/find_dimen_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_opt_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/seaalbedo_driver.f -atmos_param/socrates/src/trunk/src/aux/assign_viewing_geom_cdf.f -atmos_param/socrates/src/trunk/src/aux/angular_control.f -atmos_param/socrates/src/trunk/src/aux/output_vert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_view_cdl.f -atmos_param/socrates/src/trunk/src/aux/read_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg_ice.f -atmos_param/socrates/src/trunk/src/aux/output_flux_cdf.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdf.f -atmos_param/socrates/src/trunk/src/aux/name_length.f -atmos_param/socrates/src/trunk/src/aux/sort_raw_profile.f -atmos_param/socrates/src/trunk/src/aux/read_averaged_scatter.f -atmos_param/socrates/src/trunk/src/aux/write_cdl_field.f -atmos_param/socrates/src/trunk/src/aux/planck_ss_source.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_radiance_cdf.f -atmos_param/socrates/src/trunk/src/aux/interpolate_p.f -atmos_param/socrates/src/trunk/src/aux/write_profile.f -atmos_param/socrates/src/trunk/src/aux/assign_surface_char_cdl.f -atmos_param/socrates/src/trunk/src/aux/planck_cumul.f -atmos_param/socrates/src/trunk/src/aux/input_aerosol_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_novert_cdf.f -atmos_param/socrates/src/trunk/src/aux/output_surf_cdl.f -atmos_param/socrates/src/trunk/src/aux/mono_rad_ss.f -atmos_param/socrates/src/trunk/src/aux/assign_horiz_cdl.f -atmos_param/socrates/src/trunk/src/aux/qsat.f -atmos_param/socrates/src/trunk/src/aux/set_state.f -atmos_param/socrates/src/trunk/src/aux/l_find_component.f -atmos_param/socrates/src/trunk/src/aux/qsat_gg.f -atmos_param/socrates/src/trunk/src/aux/read_cdl.f -atmos_param/socrates/src/trunk/src/aux/assign_input_vert_cdl.f -atmos_param/socrates/src/trunk/src/aux/output_photolysis_cdl.f -atmos_param/socrates/src/trunk/src/general/non_blank.f -atmos_param/socrates/src/trunk/src/general/remove_blank.f -atmos_param/socrates/src/trunk/src/general/simpsons_rule.f -atmos_param/socrates/src/trunk/src/general/point_bracket.f -atmos_param/socrates/src/trunk/src/general/trapezoid.f -atmos_param/socrates/src/trunk/src/general/planck.f -atmos_param/socrates/src/trunk/src/general/read_line.f -atmos_param/socrates/src/trunk/src/general/make_block_6_1.f -atmos_param/socrates/src/trunk/src/general/calc_thermal_coeff.f -atmos_param/socrates/src/trunk/src/general/open_file_out.f -atmos_param/socrates/src/trunk/src/general/back_substitute.f -atmos_param/socrates/src/trunk/src/general/open_file_in.f -atmos_param/socrates/src/trunk/src/general/integrate_spline.f -atmos_param/socrates/src/trunk/src/general/rayleigh_scatter_air.f -atmos_param/socrates/src/trunk/src/general/lock_code.f -atmos_param/socrates/src/trunk/src/general/make_block_6_2.f -atmos_param/socrates/src/trunk/src/general/inner_bracket.f -atmos_param/socrates/src/trunk/src/general/svd_decompose.f -atmos_param/socrates/src/trunk/src/general/calc_planck_tbl.f -atmos_param/socrates/src/trunk/src/general/read_word.f atmos_param/socrates/interface/read_control.F90 atmos_param/socrates/interface/set_atm.F90 atmos_param/socrates/interface/set_cld.F90 diff --git a/src/extra/python/isca/codebase.py b/src/extra/python/isca/codebase.py index 043803143..ea75af8a1 100644 --- a/src/extra/python/isca/codebase.py +++ b/src/extra/python/isca/codebase.py @@ -40,7 +40,11 @@ def modify_exec_name(self): self.executable_name = 'soc_isca.x' else: self.executable_name = f'soc_isca_{self.socrates_version}.x' - + elif self.__class__==SocColumnCodeBase: + if self.socrates_version == '1703': + self.executable_name = 'soc_column_isca.x' + else: + self.executable_name = f'soc_column_isca_{self.socrates_version}.x' def __init__(self, repo=None, commit=None, directory=None, storedir=P(GFDL_WORK, 'codebase'), safe_mode=False, socrates_version='1703'): """Create a new CodeBase object. @@ -363,7 +367,7 @@ def simlink_to_soc_code(self): raise OSError(error_mesg) def read_version_specific_paths(self): - self.extra_path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', self.name, 'socrates_version_paths', self.socrates_version)) + self.extra_path_names = self.read_path_names(P(self.srcdir, 'extra', 'model', 'socrates', 'socrates_version_paths', self.socrates_version)) def __init__(self, *args, **kwargs): super(SocratesCodeBase, self).__init__(*args, **kwargs) @@ -371,58 +375,19 @@ def __init__(self, *args, **kwargs): self.simlink_to_soc_code() self.read_version_specific_paths() -class SocColumnCodeBase(CodeBase): +class SocColumnCodeBase(SocratesCodeBase): """Isca without RRTM but with the Met Office radiation scheme, Socrates. THIS VERSION FOR SINGLE COLUMN USE. """ - #path_names_file = P(_module_directory, 'templates', 'moist_path_names') name = 'socrates_column' - executable_name = 'soc_column_isca.x' + executable_name = None def column_model(self): self.compile_flags.append('-DCOLUMN_MODEL') self.log.info('USING SINGLE COLUMN MODEL') - def disable_rrtm(self): - # add no compile flag - self.compile_flags.append('-DRRTM_NO_COMPILE') - self.log.info('RRTM compilation disabled.') - - def simlink_to_soc_code(self): - #Make symlink to socrates source code if one doesn't already exist. - socrates_desired_location = self.codedir+'/src/atmos_param/socrates/src/trunk' - - #First check if socrates is in correct place already - if os.path.exists(socrates_desired_location): - link_correct = os.path.exists(socrates_desired_location+'/src/') - if link_correct: - socrates_code_in_desired_location=True - else: - socrates_code_in_desired_location=False - if os.path.islink(socrates_desired_location): - self.log.info('Socrates source code symlink is in correct place, but is to incorrect location. Trying to correct.') - os.unlink(socrates_desired_location) - else: - self.log.info('Socrates source code is in correct place, but folder structure is wrong. Contents of the folder '+socrates_desired_location+' should include a src folder.') - else: - socrates_code_in_desired_location=False - self.log.info('Socrates source code symlink does not exist. Creating.') - - # If socrates is not in the right place already, then attempt to make symlink to location of code provided by GFDL_SOC - if socrates_code_in_desired_location: - self.log.info('Socrates source code already in correct place. Continuing.') - else: - if GFDL_SOC is not None: - sh.ln('-s', GFDL_SOC, socrates_desired_location) - elif GFDL_SOC is None: - error_mesg = 'Socrates code is required for SocratesCodebase, but source code is not provided in location GFDL_SOC='+ str(GFDL_SOC) - self.log.error(error_mesg) - raise OSError(error_mesg) - def __init__(self, *args, **kwargs): super(SocColumnCodeBase, self).__init__(*args, **kwargs) self.column_model() - self.disable_rrtm() - self.simlink_to_soc_code() class GreyCodeBase(CodeBase): """The Frierson model. @@ -452,10 +417,9 @@ def __init__(self, *args, **kwargs): self.disable_rrtm() self.disable_soc() -class ColumnCodeBase(CodeBase): +class ColumnCodeBase(IscaCodeBase): """This contains code that will allow one to use all model physics in a single column configuration (i.e. without calling the dynamical core) """ - #path_names_file = P(_module_directory, 'templates', 'moist_path_names') name = 'column' executable_name = 'column_isca.x' @@ -463,15 +427,9 @@ def column_model(self): self.compile_flags.append('-DCOLUMN_MODEL') self.log.info('USING SINGLE COLUMN MODEL') - def disable_soc(self): - # add no compile flag - self.compile_flags.append('-DSOC_NO_COMPILE') - self.log.info('SOCRATES compilations diabled.') - def __init__(self, *args, **kwargs): super(ColumnCodeBase, self).__init__(*args, **kwargs) self.column_model() - self.disable_soc() class DryCodeBase(GreyCodeBase): """The Held-Suarez model. From 0935e3c5696de7a90797c7ceeb48f0b1b56cd738 Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 13 Sep 2024 12:48:00 +0100 Subject: [PATCH 06/10] now that the trunk folder is no longer in use, references to it must be removed. --- exp/test_cases/socrates_test/socrates_aquaplanet.py | 4 ++-- ...tes_aquaplanet_amip_with_original_era_topo_testing_only.py | 4 ++-- .../socrates_test/socrates_aquaplanet_amip_with_topo.py | 4 ++-- .../socrates_aquaplanet_amip_with_topo_clouds.py | 4 ++-- exp/test_cases/socrates_test/socrates_aquaplanet_cloud.py | 4 ++-- 5 files changed, 10 insertions(+), 10 deletions(-) diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet.py b/exp/test_cases/socrates_test/socrates_aquaplanet.py index ab06c2d41..56647b706 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet.py @@ -81,8 +81,8 @@ }, 'socrates_rad_nml': { 'stellar_constant':1370., - 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7'), - 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7'), + 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7'), + 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7'), 'do_read_ozone': True, 'ozone_file_name':'ozone_1990', 'ozone_field_name':'ozone_1990', diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_original_era_topo_testing_only.py b/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_original_era_topo_testing_only.py index f26730041..3ce1aa368 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_original_era_topo_testing_only.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_original_era_topo_testing_only.py @@ -89,8 +89,8 @@ }, 'socrates_rad_nml': { 'stellar_constant':1370., - 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7'), - 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7'), + 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7'), + 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7'), 'do_read_ozone': True, 'ozone_file_name':'ozone_1990', 'ozone_field_name':'ozone_1990', diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo.py b/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo.py index a8cf5a3e6..76e841c82 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo.py @@ -83,8 +83,8 @@ }, 'socrates_rad_nml': { 'stellar_constant':1370., - 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7'), - 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7'), + 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7'), + 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7'), 'do_read_ozone': True, 'ozone_file_name':'ozone_1990', 'ozone_field_name':'ozone_1990', diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo_clouds.py b/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo_clouds.py index 9bda51c48..1c5cffd97 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo_clouds.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet_amip_with_topo_clouds.py @@ -101,8 +101,8 @@ }, 'socrates_rad_nml': { 'stellar_constant':1370., - 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7'), - 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7'), + 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7'), + 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7'), 'do_read_ozone': True, 'ozone_file_name':'ozone_1990', 'ozone_field_name':'ozone_1990', diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet_cloud.py b/exp/test_cases/socrates_test/socrates_aquaplanet_cloud.py index b8e6f8beb..bf84740b1 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet_cloud.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet_cloud.py @@ -100,8 +100,8 @@ }, 'socrates_rad_nml': { 'stellar_constant':1370., - 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7'), - 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7'), + 'lw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7'), + 'sw_spectral_filename':os.path.join(GFDL_BASE,'src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7'), 'do_read_ozone': True, 'ozone_file_name':'ozone_1990', 'ozone_field_name':'ozone_1990', From d386e1f91c1035bc775bdf9a943f5e2b36d0254a Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 13 Sep 2024 12:49:10 +0100 Subject: [PATCH 07/10] removing more references to trunk. --- docs/source/modules/socrates.rst | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/docs/source/modules/socrates.rst b/docs/source/modules/socrates.rst index 5eff1671f..9eb827a88 100644 --- a/docs/source/modules/socrates.rst +++ b/docs/source/modules/socrates.rst @@ -9,7 +9,7 @@ Summary SOCRATES (Suite Of Community RAdiative Transfer codes based on Edwards and Slingo) is the radiation scheme used by UK Met Office for Earth and planetary science [MannersEtAl2015]_, which has many significant advantages over RRTM, notably its flexibility in terms of atmospheric composition and the spectral properties of the radiation scheme (e.g. number of bands, etc). * The code used to integrate Socrates into Isca is contained within the folder ``src/atmos_params/socrates/interface``. -* The Socrates source code itself is **NOT** packed within this Isca repository, and **NEW** users will need to download it from the `Met Office Science Repository `_. Users can then either choose to put the Socrates code within the directory ``src/atmos_params/socrates/src/trunk``, or can set the bash environment variable ``GFDL_SOC`` equal to the location of the source code for Socrates. Detailed instructions on how to do this are included in the `README.md `_ for the Socrates test-case: ``exp/test_cases/socrates_test/README.md``. +* The Socrates source code itself is **NOT** packed within this Isca repository, and **NEW** users will need to download it from the `Met Office Science Repository `_. Users can then either choose to put the Socrates code within the directory ``src/atmos_params/socrates/src/1703``, or can set the bash environment variable ``GFDL_SOC`` equal to the location of the source code for Socrates. Detailed instructions on how to do this are included in the `README.md `_ for the Socrates test-case: ``exp/test_cases/socrates_test/README.md``. * Some users of Isca may wish to compile Isca separately with several different versions of Socrates (If you only want a single version then you can ignore this). To do this, you will need to create a folder containing all of your Socrates versions and set the ``GFDL_SOC_DIR`` environment variable to that location. Within the ``GFDL_SOC_DIR`` folder should be folders containing each of your Socrates versions. Then when you create the ``SocratesCodeBase`` object in your experiment script, you can use the option ``socrates_version=YOUR_VERSIONS_FOLDER_NAME_HERE``. For example, if my ``GFDL_SOC_DIR`` folder has folders within it called ``1703`` and ``2207``, which are my different versions, then I can choose version ``1703`` by setting ``socrates_version=1703`` when I create a ``SocratesCodeBase`` object in my experiment script. Then, when Isca compiles, it will build seperate executables for the different Socrates versions. * The basis of ``socrates_interface`` was coded by Mark Hammond (Univ. of Oxford) and James Manners (Met Office) and modified by Stephen Thomson (Univ. of Exeter) [Thomson_and_Vallis2019]_. Features added include seasonality in the radiation based on Isca's ``astronomy`` package, and the ability to use a ``radiation timestep != atmospheric timestep``. * Socrates radiation scheme requires ``mass mixing ratios`` for all quantities (e.g. CO2, water vapor etc). This contrasts with RRTM, which wants ``volume mixing ratios``. @@ -66,10 +66,10 @@ The following namelist variables set radiation time stepping and spatial samplin Spectral files ^^^^^^^^^^^^^^ -Socrates reads external input spectral files that tell it the number of spectral bands to use, with one file setting the shortwave options, and another file setting the longwave options. Some spectral files have lots of bands, which will make the model run slowly. The default files used in the Met Office's Unified Model-GA7, and also in Isca, can be found within the ``data/spectra`` directory of Socrates source code. For example, it can be here if you put the Socrates source code within the ``trunk`` directory: +Socrates reads external input spectral files that tell it the number of spectral bands to use, with one file setting the shortwave options, and another file setting the longwave options. Some spectral files have lots of bands, which will make the model run slowly. The default files used in the Met Office's Unified Model-GA7, and also in Isca, can be found within the ``data/spectra`` directory of Socrates source code. For example, it can be here if you put the Socrates source code within the ``1703`` directory: :: - src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7 for the longwave - src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7 for the shortwave + src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7 for the longwave + src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7 for the shortwave or here if you have set ``GFDL_SOC`` as an environment variable: :: From 99642678110faac88a2f6466b075f064842d57c2 Mon Sep 17 00:00:00 2001 From: sit23 Date: Fri, 13 Sep 2024 12:54:36 +0100 Subject: [PATCH 08/10] Updating readme too. --- exp/test_cases/socrates_test/README.md | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/exp/test_cases/socrates_test/README.md b/exp/test_cases/socrates_test/README.md index 937ce0f73..2ed9900cb 100644 --- a/exp/test_cases/socrates_test/README.md +++ b/exp/test_cases/socrates_test/README.md @@ -34,11 +34,11 @@ Navigate to the following Isca directory: `$GFDL_BASE/src/atmos_param/socrates/src` -make a folder called `trunk` and then put the contents of your downloaded Socrates code into the `trunk` folder. +make a folder called `1703` and then put the contents of your downloaded Socrates code into the `1703` folder. You should then have the following directory structure: -`$GFDL_BASE/src/atmos_param/socrates/src/trunk/src/radiance_core/` +`$GFDL_BASE/src/atmos_param/socrates/src/1703/src/radiance_core/` ### 3. Edit the number of angles in the phase function @@ -46,7 +46,7 @@ From this point, the Isca test case for Socrates should run without issue. Howev Open the file -`$GFDL_BASE/src/atmos_param/socrates/src/trunk/src/modules_core/dimensions_spec_ucf.F90` +`$GFDL_BASE/src/atmos_param/socrates/src/1703/src/modules_core/dimensions_spec_ucf.F90` and make the following changes: @@ -75,17 +75,17 @@ and run the test-case `socrates_aquaplanet.py`. This will compile and run Isca w * Isca is set up to pass socrates a certain number of vertical profiles for each time the Socrates is called. This number is set as `chunk_size` in the `socrates_rad_nml`. A value of 16 was found to be optimal on large linux-server-type machines in Exeter, but it is worth playing with this number to find the optimal number on your machine. * Socrates reads external input files that tell it the number of spectral bands to use, with one file setting the short-wave options, and another file setting the long-wave options. Some spectral files have lots of bands, which will make the model run slowly. The default files used in the Met Office's Unified Model-GA7, and also in Isca, can be found here: - * `$GFDL_BASE/src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_lw_ga7` for the long-wave - * `$GFDL_BASE/src/atmos_param/socrates/src/trunk/data/spectra/ga7/sp_sw_ga7` for the short-wave + * `$GFDL_BASE/src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_lw_ga7` for the long-wave + * `$GFDL_BASE/src/atmos_param/socrates/src/1703/data/spectra/ga7/sp_sw_ga7` for the short-wave * Other options are available within this folder, and a useful set of other spectral files are provided via this [webpage](https://simplex.giss.nasa.gov/gcm/ROCKE-3D/). ### 6. If you find Socrates doesn't compile -* Isca's Python front-end uses a static list of file names to be compiled for the Socrates version of Isca. This list of files is here: `$GFDL_BASE/src/extra/model/socrates/path_names`. This list was compiled from a version of Socrates that we first used with Isca, which is close to v17. +* Isca's Python front-end uses a static list of file names to be compiled for the Socrates version of Isca. This list of files is here: `$GFDL_BASE/src/extra/model/socrates/socrates_version_paths/SOCRATES_VERSION_NAME`, where `SOCRATES_VERSION_NAME` is replaced by whichever version of Socrates you're using. The original list is in file `1703`, which was compiled from a version of Socrates that we first used with Isca, which is close to version 17.03. -* When you download the Socrates code, please download the latest version, as this will include the latest updates etc. By doing this, however, you might find that the compilation of Isca fails because of files that are in `path_names` but no longer exist within Socrates, or new files that have been added to Socrates that are not in the `path_names` file, but are required. +* When you download the Socrates code, please download the latest version, as this will include the latest updates etc. By doing this, however, you might find that the compilation of Isca fails. To attempt to fix this, you can set `socrates_version=SOCRATES_VERSION_NAME` in your first call to `SocratesCodeBase`. This will then look for a file `$GFDL_BASE/src/extra/model/socrates/socrates_version_paths/SOCRATES_VERSION_NAME` containing the list of path names for your version. If the version you have chosen does not have such a file, then you'll have to create one. -* In the future, we will look to generate `path_names` dynamically. However, in the meantime, please begin by updating your `path_names` file to include **every** fortran file in the directory `src/radiance_core/` directory of Socrates. All the files in this folder are likely to be essential for compiling the version of Socrates you are using. +* In the future, we will look to generate path names for each socrates version dynamically. However, in the meantime, please begin by updating your `SOCRATES_VERSION_NAME` file to include **every** fortran file in the directory `src/radiance_core/` directory of Socrates. All the files in this folder are likely to be essential for compiling the version of Socrates you are using. * You may also find errors of the type `multiple definition of MAIN`. This happens because various pieces of code within Socrates are designed to be run offline, meaning they have MAIN sections. These MAIN sections cause conflicts with Isca's MAIN section, and so the relevant Socrates files cannot be part of Isca's compiled version. To get around this error, remove from `path_names` any Socrates files that cause this error (i.e. remove the relevant files from `path_names` that start with `atmos_param/socrates/src` not Isca's MAIN program, which is `atmos_solo/atmos_model.F90`). From 49419cc245f78ddc1e8911d44c7ccc1a01d2661c Mon Sep 17 00:00:00 2001 From: sit23 Date: Tue, 10 Dec 2024 14:13:26 +0000 Subject: [PATCH 09/10] Fixing test case that had missing definition of overwrite. --- exp/test_cases/socrates_test/socrates_aquaplanet.py | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/exp/test_cases/socrates_test/socrates_aquaplanet.py b/exp/test_cases/socrates_test/socrates_aquaplanet.py index 56647b706..56335e18d 100644 --- a/exp/test_cases/socrates_test/socrates_aquaplanet.py +++ b/exp/test_cases/socrates_test/socrates_aquaplanet.py @@ -199,6 +199,6 @@ #This will be the name of the folder that the data will appear in. exp.run(1, use_restart=False, num_cores=NCORES, overwrite_data=False) - + overwrite=False for i in range(2,121): exp.run(i, num_cores=NCORES, overwrite_data=overwrite) From e052c21d1cd0748e1874d9ce2c563ceacd86e18d Mon Sep 17 00:00:00 2001 From: sit23 Date: Tue, 10 Dec 2024 14:14:32 +0000 Subject: [PATCH 10/10] Defined new list of paths that allows socrates version 2411 to be compiled. --- .../socrates/socrates_version_paths/2411 | 301 ++++++++++++++++++ 1 file changed, 301 insertions(+) create mode 100644 src/extra/model/socrates/socrates_version_paths/2411 diff --git a/src/extra/model/socrates/socrates_version_paths/2411 b/src/extra/model/socrates/socrates_version_paths/2411 new file mode 100644 index 000000000..fb0732a62 --- /dev/null +++ b/src/extra/model/socrates/socrates_version_paths/2411 @@ -0,0 +1,301 @@ +atmos_param/socrates/src/2411/src/aux/cdf_struc.finc +atmos_param/socrates/src/2411/src/aux/cdl_struc.finc +atmos_param/socrates/src/2411/src/aux/dec_disort.finc +atmos_param/socrates/src/2411/src/aux/call_disort.finc +atmos_param/socrates/src/2411/src/general/batch_error_main.finc +atmos_param/socrates/src/2411/src/general/aerosol_component.finc +atmos_param/socrates/src/2411/src/radiance_core/gauss_angle.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_mix_direct.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_dirn_weights.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_brdf.F90 +atmos_param/socrates/src/2411/src/radiance_core/triple_solar_source.F90 +atmos_param/socrates/src/2411/src/radiance_core/eval_uplm.F90 +atmos_param/socrates/src/2411/src/radiance_core/shell_sort.F90 +atmos_param/socrates/src/2411/src/radiance_core/rad_pcf.F90 +atmos_param/socrates/src/2411/src/radiance_core/check_phf_term.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_n_source_coeff.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_surf_rad.F90 +atmos_param/socrates/src/2411/src/radiance_core/solve_band_random_overlap.F90 +atmos_param/socrates/src/2411/src/radiance_core/scale_absorb.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_flux_ipa.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_ice_cloud.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_fu_phf_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_baran_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/diff_planck_source_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/eig_sys.F90 +atmos_param/socrates/src/2411/src/radiance_core/adjust_ir_radiance.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_rad_layer.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_dimen.F90 +atmos_param/socrates/src/2411/src/radiance_core/mcica_column.F90 +atmos_param/socrates/src/2411/src/radiance_core/interp1d.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_uplm_zero.F90 +atmos_param/socrates/src/2411/src/radiance_core/spline_fit.F90 +atmos_param/socrates/src/2411/src/radiance_core/gaussian_weight_pcf.F90 +atmos_param/socrates/src/2411/src/radiance_core/gas_list_pcf.F90 +atmos_param/socrates/src/2411/src/radiance_core/trans_source_coeff.F90 +atmos_param/socrates/src/2411/src/radiance_core/band_solver.F90 +atmos_param/socrates/src/2411/src/radiance_core/mcica_sample.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_mix_direct_hogan.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_uplm_sol.F90 +atmos_param/socrates/src/2411/src/radiance_core/sph_matrix_solver.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_spectrum.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_triple_app_scat.F90 +atmos_param/socrates/src/2411/src/radiance_core/grey_opt_prop.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_gauss_weight_90.F90 +atmos_param/socrates/src/2411/src/radiance_core/sum_k.F90 +atmos_param/socrates/src/2411/src/radiance_core/ses_rescale_contm.F90 +atmos_param/socrates/src/2411/src/radiance_core/spline_evaluate.F90 +atmos_param/socrates/src/2411/src/radiance_core/cg_kappa_ms.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_bound.F90 +atmos_param/socrates/src/2411/src/radiance_core/solve_band_random_overlap_resort_rebin.F90 +atmos_param/socrates/src/2411/src/radiance_core/monochromatic_gas_flux.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_cloud_pointer.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_cloud_geometry.F90 +atmos_param/socrates/src/2411/src/radiance_core/rescale_phase_fnc.F90 +atmos_param/socrates/src/2411/src/radiance_core/monochromatic_radiance_sph.F90 +atmos_param/socrates/src/2411/src/radiance_core/inter_k.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_top_rad.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_n_cloud_parameter.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_level_weights.F90 +atmos_param/socrates/src/2411/src/radiance_core/solve_band_k_eqv_scl.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_matrix_pentadiagonal.F90 +atmos_param/socrates/src/2411/src/radiance_core/mix_app_scat.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_out.F90 +atmos_param/socrates/src/2411/src/radiance_core/sol_scat_cos.F90 +atmos_param/socrates/src/2411/src/radiance_core/copy_clr_full.F90 +atmos_param/socrates/src/2411/src/radiance_core/eigenvalue_tri.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_homogen_direct.F90 +atmos_param/socrates/src/2411/src/radiance_core/rescale_continuum.F90 +atmos_param/socrates/src/2411/src/radiance_core/mixed_solar_source.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_aer.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_inhom_corr_cairns.F90 +atmos_param/socrates/src/2411/src/radiance_core/rebin_esft_terms.F90 +atmos_param/socrates/src/2411/src/radiance_core/mix_column.F90 +atmos_param/socrates/src/2411/src/radiance_core/prsc_gather_spline.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_cg_coeff.F90 +atmos_param/socrates/src/2411/src/radiance_core/inter_pt_lookup.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_ukca_aerosol.F90 +atmos_param/socrates/src/2411/src/radiance_core/scale_wenyi.F90 +atmos_param/socrates/src/2411/src/radiance_core/triple_column.F90 +atmos_param/socrates/src/2411/src/radiance_core/single_scattering_all.F90 +atmos_param/socrates/src/2411/src/radiance_core/inter_pt.F90 +atmos_param/socrates/src/2411/src/radiance_core/overlap_coupled.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_cld.F90 +atmos_param/socrates/src/2411/src/radiance_core/solar_coefficient_basic.F90 +atmos_param/socrates/src/2411/src/radiance_core/build_sph_matrix.F90 +atmos_param/socrates/src/2411/src/radiance_core/augment_tiled_radiance.F90 +atmos_param/socrates/src/2411/src/radiance_core/column_solver.F90 +atmos_param/socrates/src/2411/src/radiance_core/augment_radiance.F90 +atmos_param/socrates/src/2411/src/radiance_core/augment_channel_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_photolysis_incr_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/finalise_photol_incr_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_qy.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_control.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_coeff_basic.F90 +atmos_param/socrates/src/2411/src/radiance_core/sph_solver.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_no_scat.F90 +atmos_param/socrates/src/2411/src/radiance_core/copy_clr_sol.F90 +atmos_param/socrates/src/2411/src/radiance_core/solar_source.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_water_cloud.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_pade_2_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/legendre_weight.F90 +atmos_param/socrates/src/2411/src/radiance_core/solve_band_without_gas.F90 +atmos_param/socrates/src/2411/src/radiance_core/diff_albedo_basis.F90 +atmos_param/socrates/src/2411/src/radiance_core/increment_rad_cf.F90 +atmos_param/socrates/src/2411/src/radiance_core/single_scat_sol.F90 +atmos_param/socrates/src/2411/src/radiance_core/opt_prop_aerosol.F90 +atmos_param/socrates/src/2411/src/radiance_core/solve_band_ses.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_ss_prop.F90 +atmos_param/socrates/src/2411/src/radiance_core/prsc_opt_prop.F90 +atmos_param/socrates/src/2411/src/radiance_core/layer_part_integ.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_coeff_fast_lw.F90 +atmos_param/socrates/src/2411/src/radiance_core/gas_optical_properties.F90 +atmos_param/socrates/src/2411/src/radiance_core/single_scattering.F90 +atmos_param/socrates/src/2411/src/radiance_core/monochromatic_ir_radiance.F90 +atmos_param/socrates/src/2411/src/radiance_core/hemi_sph_integ.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_coeff_cloud.F90 +atmos_param/socrates/src/2411/src/radiance_core/read_spectrum.F90 +atmos_param/socrates/src/2411/src/radiance_core/inter_t_lookup.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_triple.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_stream.F90 +atmos_param/socrates/src/2411/src/radiance_core/solver_triple_hogan.F90 +atmos_param/socrates/src/2411/src/radiance_core/monochromatic_radiance_tseq.F90 +atmos_param/socrates/src/2411/src/radiance_core/cloud_maxcs_split.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_atm.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_coeff.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_coeff_region.F90 +atmos_param/socrates/src/2411/src/radiance_core/quicksort.F90 +atmos_param/socrates/src/2411/src/radiance_core/rescale_tau_omega.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_radiance_ipa.F90 +atmos_param/socrates/src/2411/src/radiance_core/two_coeff_region_fast_lw.F90 +atmos_param/socrates/src/2411/src/radiance_core/set_truncation.F90 +atmos_param/socrates/src/2411/src/radiance_core/monochromatic_radiance.F90 +atmos_param/socrates/src/2411/src/radiance_core/aggregate_cloud.F90 +atmos_param/socrates/src/2411/src/radiance_core/radiance_calc.F90 +atmos_param/socrates/src/2411/src/radiance_core/ir_source.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_planck.F90 +atmos_param/socrates/src/2411/src/radiance_core/def_spherical_geometry.F90 +atmos_param/socrates/src/2411/src/radiance_core/spherical_trans_coeff.F90 +atmos_param/socrates/src/2411/src/radiance_core/spherical_solar_source.F90 +atmos_param/socrates/src/2411/src/radiance_core/diffusivity_factor.F90 +atmos_param/socrates/src/2411/src/radiance_core/planck_flux_band_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/spherical_path.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_actinic_flux_mod.F90 +atmos_param/socrates/src/2411/src/nlte/interpolate_p_mod.F90 +atmos_param/socrates/src/2411/src/radiance_core/rescale_tau_csr.F90 +atmos_param/socrates/src/2411/src/radiance_core/calc_contrib_func.F90 +atmos_param/socrates/src/2411/src/radiance_core/circumsolar_fraction.F90 +atmos_param/socrates/src/2411/src/radiance_core/legendre_mod.F90 +atmos_param/socrates/src/2411/src/aux/qsat_wat.F90 +atmos_param/socrates/src/2411/src/aux/qsat_gill.F90 +atmos_param/socrates/src/2411/src/aux/write_cdf.f90 +atmos_param/socrates/src/2411/src/aux/read_cdf.f90 +atmos_param/socrates/src/2411/src/aux/aerosol_representation_pcf.f90 +atmos_param/socrates/src/2411/src/aux/aerosol_profile_pcf.f90 +atmos_param/socrates/src/2411/src/aux/write_samson.f90 +atmos_param/socrates/src/2411/src/aux/filter_function.f90 +atmos_param/socrates/src/2411/src/aux/qsat_alg_pcf.f90 +atmos_param/socrates/src/2411/src/aux/method_merge_pcf.f90 +atmos_param/socrates/src/2411/src/aux/rand_gauss.f90 +atmos_param/socrates/src/2411/src/general/make_block_2_1.f90 +atmos_param/socrates/src/2411/src/general/make_block_11.f90 +atmos_param/socrates/src/2411/src/general/make_block_12.f90 +atmos_param/socrates/src/2411/src/general/sum_unity.f90 +atmos_param/socrates/src/2411/src/general/trapezoid_90.f90 +atmos_param/socrates/src/2411/src/general/get_free_unit.F90 +atmos_param/socrates/src/2411/src/general/rayleigh_scatter.f90 +atmos_param/socrates/src/2411/src/general/make_block_18.f90 +atmos_param/socrates/src/2411/src/general/remove_negative_gas_90.f90 +atmos_param/socrates/src/2411/src/general/make_block_17.f90 +atmos_param/socrates/src/2411/src/general/make_block_1.f90 +atmos_param/socrates/src/2411/src/general/make_block_19.f90 +atmos_param/socrates/src/2411/src/general/make_block_0.f90 +atmos_param/socrates/src/2411/src/general/make_block_10.f90 +atmos_param/socrates/src/2411/src/general/make_block_14.f90 +atmos_param/socrates/src/2411/src/general/read_solar_spectrum.f90 +atmos_param/socrates/src/2411/src/general/remove_negative_cont_90.f90 +atmos_param/socrates/src/2411/src/general/make_block_3_1.f90 +atmos_param/socrates/src/2411/src/general/set_interactive.f90 +atmos_param/socrates/src/2411/src/general/make_block_8.f90 +atmos_param/socrates/src/2411/src/general/make_block_3.f90 +atmos_param/socrates/src/2411/src/general/make_block_15.f90 +atmos_param/socrates/src/2411/src/general/make_block_9.f90 +atmos_param/socrates/src/2411/src/general/read_instrument_response_90.f90 +atmos_param/socrates/src/2411/src/general/make_block_4.f90 +atmos_param/socrates/src/2411/src/general/map_heap_func.f90 +atmos_param/socrates/src/2411/src/general/make_block_6.f90 +atmos_param/socrates/src/2411/src/general/out_spectrum.f90 +atmos_param/socrates/src/2411/src/general/make_block_2.f90 +atmos_param/socrates/src/2411/src/general/rayleigh_jeans_tail.f90 +atmos_param/socrates/src/2411/src/general/solar_intensity.f90 +atmos_param/socrates/src/2411/src/general/make_block_5.f90 +atmos_param/socrates/src/2411/src/general/rayleigh_scatter_h2he.f90 +atmos_param/socrates/src/2411/src/modules_gen/dimensions_field_cdf_ucf.f90 +atmos_param/socrates/src/2411/src/modules_gen/def_refract.f90 +atmos_param/socrates/src/2411/src/modules_gen/scatter_pp_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/def_std_io_icf.f90 +atmos_param/socrates/src/2411/src/modules_gen/dimensions_cdl_ucf.f90 +atmos_param/socrates/src/2411/src/modules_gen/refract_re_ccf.f90 +atmos_param/socrates/src/2411/src/modules_gen/def_inst_flt.f90 +atmos_param/socrates/src/2411/src/modules_gen/dimensions_pp_ucf.f90 +atmos_param/socrates/src/2411/src/modules_gen/weighting_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/error_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/file_type_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/def_data_in_icf.f90 +atmos_param/socrates/src/2411/src/modules_gen/dimensions_cdf_ucf.f90 +atmos_param/socrates/src/2411/src/modules_gen/unit_list_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/realtypefx_rd.f90 +atmos_param/socrates/src/2411/src/modules_gen/def_solarspec.f90 +atmos_param/socrates/src/2411/src/modules_gen/interp_mode_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/dimensions_fixed_pcf.f90 +atmos_param/socrates/src/2411/src/modules_gen/dimensions_field_ucf.f90 +atmos_param/socrates/src/2411/src/modules_gen/input_head_pcf.f90 +atmos_param/socrates/src/2411/src/modules_core/errormessagelength_mod.F90 +atmos_param/socrates/src/2411/src/modules_core/dimensions_spec_ucf.F90 +atmos_param/socrates/src/2411/src/modules_core/rad_ccf.F90 +atmos_param/socrates/src/2411/src/modules_core/yomhook.F90 +atmos_param/socrates/src/2411/src/modules_core/parkind1.F90 +atmos_param/socrates/src/2411/src/modules_core/file_manager.F90 +atmos_param/socrates/src/2411/src/modules_core/missing_data_mod.F90 +atmos_param/socrates/src/2411/src/modules_core/vectlib_mod.F90 +atmos_param/socrates/src/2411/src/modules_core/ereport_mod.F90 +atmos_param/socrates/src/2411/src/modules_core/realtype_rd.f90 +atmos_param/socrates/src/2411/src/modules_core/filenamelength_mod.F90 +atmos_param/socrates/src/2411/src/aux/output_vert_cdl.f +atmos_param/socrates/src/2411/src/aux/assign_input_opt_cdf.f +atmos_param/socrates/src/2411/src/aux/assign_input_ss_cdl.f +atmos_param/socrates/src/2411/src/aux/split_cdl_line.f +atmos_param/socrates/src/2411/src/aux/input_cloud_cdf.f +atmos_param/socrates/src/2411/src/aux/assign_viewing_geom_cdl.f +atmos_param/socrates/src/2411/src/aux/read_samson_p_field.f +atmos_param/socrates/src/2411/src/aux/output_opt_profile_cdl.f +atmos_param/socrates/src/2411/src/aux/input_cloud_cdl.f +atmos_param/socrates/src/2411/src/aux/output_radiance_cdl.f +atmos_param/socrates/src/2411/src/aux/fnc_density.f +atmos_param/socrates/src/2411/src/aux/calc_volume_fraction.f +atmos_param/socrates/src/2411/src/aux/calc_cdl_stride.f +atmos_param/socrates/src/2411/src/aux/interp.f +atmos_param/socrates/src/2411/src/aux/merge_pressure.f +atmos_param/socrates/src/2411/src/aux/angular_control_cdf.f +atmos_param/socrates/src/2411/src/aux/extinction_profile.f +atmos_param/socrates/src/2411/src/aux/read_genln2_flux.f +atmos_param/socrates/src/2411/src/aux/write_cdl.f +atmos_param/socrates/src/2411/src/aux/find_var_cdl.f +atmos_param/socrates/src/2411/src/aux/assign_input_vert_cdf.f +atmos_param/socrates/src/2411/src/aux/input_aerosol_cdf.f +atmos_param/socrates/src/2411/src/aux/assign_input_novert_cdl.f +atmos_param/socrates/src/2411/src/aux/find_dimen_cdl.f +atmos_param/socrates/src/2411/src/aux/output_flux_cdl.f +atmos_param/socrates/src/2411/src/aux/assign_input_opt_cdl.f +atmos_param/socrates/src/2411/src/aux/output_horiz_cdl.f +atmos_param/socrates/src/2411/src/aux/seaalbedo_driver.f +atmos_param/socrates/src/2411/src/aux/assign_viewing_geom_cdf.f +atmos_param/socrates/src/2411/src/aux/angular_control.f +atmos_param/socrates/src/2411/src/aux/output_vert_cdf.f +atmos_param/socrates/src/2411/src/aux/output_view_cdl.f +atmos_param/socrates/src/2411/src/aux/read_raw_profile.f +atmos_param/socrates/src/2411/src/aux/qsat_gg_ice.f +atmos_param/socrates/src/2411/src/aux/output_flux_cdf.f +atmos_param/socrates/src/2411/src/aux/assign_surface_char_cdf.f +atmos_param/socrates/src/2411/src/aux/name_length.f +atmos_param/socrates/src/2411/src/aux/sort_raw_profile.f +atmos_param/socrates/src/2411/src/aux/read_averaged_scatter.f +atmos_param/socrates/src/2411/src/aux/write_cdl_field.f +atmos_param/socrates/src/2411/src/aux/planck_ss_source.f +atmos_param/socrates/src/2411/src/aux/output_photolysis_cdf.f +atmos_param/socrates/src/2411/src/aux/output_radiance_cdf.f +atmos_param/socrates/src/2411/src/aux/write_profile.f +atmos_param/socrates/src/2411/src/aux/assign_surface_char_cdl.f +atmos_param/socrates/src/2411/src/aux/planck_cumul.f +atmos_param/socrates/src/2411/src/aux/input_aerosol_cdl.f +atmos_param/socrates/src/2411/src/aux/assign_input_novert_cdf.f +atmos_param/socrates/src/2411/src/aux/output_surf_cdl.f +atmos_param/socrates/src/2411/src/aux/mono_rad_ss.f +atmos_param/socrates/src/2411/src/aux/assign_horiz_cdl.f +atmos_param/socrates/src/2411/src/aux/qsat.f +atmos_param/socrates/src/2411/src/aux/set_state.f +atmos_param/socrates/src/2411/src/aux/l_find_component.f +atmos_param/socrates/src/2411/src/aux/qsat_gg.f +atmos_param/socrates/src/2411/src/aux/read_cdl.f +atmos_param/socrates/src/2411/src/aux/assign_input_vert_cdl.f +atmos_param/socrates/src/2411/src/aux/output_photolysis_cdl.f +atmos_param/socrates/src/2411/src/general/non_blank.f +atmos_param/socrates/src/2411/src/general/remove_blank.f +atmos_param/socrates/src/2411/src/general/simpsons_rule.f +atmos_param/socrates/src/2411/src/general/point_bracket.f +atmos_param/socrates/src/2411/src/general/trapezoid.f +atmos_param/socrates/src/2411/src/general/planck.f +atmos_param/socrates/src/2411/src/general/read_line.f +atmos_param/socrates/src/2411/src/general/make_block_6_1.f +atmos_param/socrates/src/2411/src/general/calc_thermal_coeff.f +atmos_param/socrates/src/2411/src/general/open_file_out.f +atmos_param/socrates/src/2411/src/general/back_substitute.f +atmos_param/socrates/src/2411/src/general/open_file_in.f +atmos_param/socrates/src/2411/src/general/integrate_spline.f +atmos_param/socrates/src/2411/src/general/rayleigh_scatter_air.f +atmos_param/socrates/src/2411/src/general/lock_code.f +atmos_param/socrates/src/2411/src/general/make_block_6_2.f +atmos_param/socrates/src/2411/src/general/inner_bracket.f +atmos_param/socrates/src/2411/src/general/svd_decompose.f +atmos_param/socrates/src/2411/src/general/calc_planck_tbl.f +atmos_param/socrates/src/2411/src/general/read_word.f