void ensemble_init( ensemble_type * ensemble , config_type * config) { /*1 : Loading ensembles and settings from the config instance */ /*1a: Loading the eclipse summary cases. */ { thread_pool_type * tp = thread_pool_alloc( LOAD_THREADS , true ); { int i,j; for (i=0; i < config_get_occurences( config , "CASE_LIST"); i++) { const stringlist_type * case_list = config_iget_stringlist_ref( config , "CASE_LIST" , i ); for (j=0; j < stringlist_get_size( case_list ); j++) ensemble_load_from_glob( ensemble , stringlist_iget( case_list , j ) , tp); } } thread_pool_join( tp ); thread_pool_free( tp ); } { const sum_case_type * tmp = vector_iget_const( ensemble->data , 0 ); ensemble->refcase = tmp->ecl_sum; } /*1b: Other config settings */ if (config_item_set( config , "NUM_INTERP" )) ensemble->num_interp = config_iget_as_int( config , "NUM_INTERP" , 0 , 0 ); /*2: Remaining initialization */ ensemble_init_time_interp( ensemble ); if (vector_get_size( ensemble->data ) < MIN_SIZE ) util_exit("Sorry - quantiles make no sense with with < %d realizations; should have ~> 100.\n" , MIN_SIZE); }
void site_config_init(site_config_type * site_config , const config_type * config, bool user_config) { site_config_add_jobs(site_config , config); { int i; for (i = 0; i < config_get_occurences( config , SETENV_KEY); i++) { const stringlist_type * tokens = config_iget_stringlist_ref(config , SETENV_KEY , i); const char * var = stringlist_iget( tokens , 0); const char * value = stringlist_iget( tokens , 1); site_config_setenv( site_config , var , value ); } for (i=0; i < config_get_occurences( config, UPDATE_PATH_KEY); i++) { const stringlist_type * tokens = config_iget_stringlist_ref(config , UPDATE_PATH_KEY , i); const char * path = stringlist_iget( tokens , 0); const char * value = stringlist_iget( tokens , 1); site_config_update_pathvar( site_config , path , value ); } } /* When LSF is used several enviroment variables must be set (by the site wide file) - i.e. the calls to SETENV must come first. */ if (!site_config->user_mode) site_config_create_queue_drivers( site_config ); /* Set the umask for all file creation. A value of '0' will ensure that all files and directories are created with 'equal rights' for everyone - might be handy if you are helping someone... The default statoil value is 0022, i.e. write access is removed from group and others. The string is supposed to be in OCTAL representation (without any prefix characters). */ if (config_item_set(config , UMASK_KEY)) { const char * string_mask = config_iget( config , UMASK_KEY , 0 , 0); mode_t umask_value; if (util_sscanf_octal_int( string_mask , &umask_value)) site_config_set_umask( site_config , umask_value); else util_abort("%s: failed to parse:\"%s\" as a valid octal literal \n",__func__ , string_mask); } if (config_item_set(config , MAX_SUBMIT_KEY)) site_config_set_max_submit( site_config , config_get_value_as_int( config , MAX_SUBMIT_KEY )); /* LSF options */ { if (config_item_set(config , LSF_QUEUE_KEY)) site_config_set_lsf_queue( site_config , config_iget( config , LSF_QUEUE_KEY , 0 , 0)); if (config_item_set(config , LSF_RESOURCES_KEY)) { char * lsf_resource_request = config_alloc_joined_string(config , LSF_RESOURCES_KEY , " "); site_config_set_lsf_request( site_config , lsf_resource_request ); free( lsf_resource_request ); } if (config_item_set(config , MAX_RUNNING_LSF_KEY)) site_config_set_max_running_lsf( site_config , config_iget_as_int( config , MAX_RUNNING_LSF_KEY , 0 , 0)); if (config_item_set(config , LSF_SERVER_KEY)) site_config_set_lsf_server( site_config , config_iget( config , LSF_SERVER_KEY , 0 , 0)); } /* RSH options */ { if (config_item_set( config , RSH_COMMAND_KEY )) site_config_set_rsh_command( site_config , config_iget(config , RSH_COMMAND_KEY , 0,0)); if (config_item_set( config , MAX_RUNNING_RSH_KEY)) site_config_set_max_running_rsh( site_config , config_iget_as_int( config , MAX_RUNNING_RSH_KEY , 0,0)); /* Parsing the "host1:4" strings. */ if (user_config) { if (config_item_set( config , RSH_HOST_KEY)) { stringlist_type * rsh_host_list = config_alloc_complete_stringlist(config , RSH_HOST_KEY); int i; for (i=0; i < stringlist_get_size( rsh_host_list ); i++) site_config_add_rsh_host_from_string( site_config , stringlist_iget( rsh_host_list , i ) ); stringlist_free( rsh_host_list ); } } } if (config_item_set( config , QUEUE_SYSTEM_KEY)) { job_driver_type driver_type; { const char * queue_system = config_iget(config , QUEUE_SYSTEM_KEY , 0,0); if (strcmp(queue_system , LSF_DRIVER_NAME) == 0) { driver_type = LSF_DRIVER; } else if (strcmp(queue_system , RSH_DRIVER_NAME) == 0) driver_type = RSH_DRIVER; else if (strcmp(queue_system , LOCAL_DRIVER_NAME) == 0) driver_type = LOCAL_DRIVER; else { util_abort("%s: queue system :%s not recognized \n",__func__ , queue_system); driver_type = NULL_DRIVER; } } site_config_set_job_queue__( site_config , driver_type ); } /* Parsing local options */ if (config_item_set( config , MAX_RUNNING_LOCAL_KEY)) site_config_set_max_running_local( site_config , config_iget_as_int( config , MAX_RUNNING_LOCAL_KEY , 0,0)); if (config_item_set(config , JOB_SCRIPT_KEY)) site_config_set_job_script( site_config , config_iget( config , JOB_SCRIPT_KEY , 0 , 0)); if (config_item_set(config , LICENSE_PATH_KEY)) site_config_set_license_root_path( site_config , config_iget( config , LICENSE_PATH_KEY , 0 , 0)); if (user_config) site_config_install_job_queue( site_config ); /* Setting QUEUE_OPTIONS */ { int i; for (i=0; i < config_get_occurences(config , QUEUE_OPTION_KEY); i++) { stringlist_type * tokens = config_iget_stringlist_ref(config , QUEUE_OPTION_KEY , i); const char * driver_name = stringlist_iget( tokens , 0 ); const char * option_key = stringlist_iget( tokens , 1 ); const char * option_value = stringlist_alloc_joined_substring( tokens , 2 , stringlist_get_size( tokens ), " "); /* If it is desirable to keep the exact number of spaces in the option_value it should be quoted with "" in the configuration file. */ site_config_set_queue_option( site_config , driver_name , option_key , option_value ); } } }
void ecl_config_init( ecl_config_type * ecl_config , const config_type * config ) { if (config_item_set( config , ECLBASE_KEY )) ecl_config_set_eclbase( ecl_config , config_iget(config , ECLBASE_KEY ,0,0) ); if (config_item_set( config , DATA_FILE_KEY )) ecl_config_set_data_file( ecl_config , config_iget( config , DATA_FILE_KEY ,0,0)); if (config_item_set( config , SCHEDULE_FILE_KEY )) ecl_config_set_schedule_file( ecl_config , config_iget( config , SCHEDULE_FILE_KEY ,0,0)); if (config_item_set(config , GRID_KEY)) ecl_config_set_grid( ecl_config , config_iget(config , GRID_KEY , 0,0) ); if (config_item_set( config , ADD_FIXED_LENGTH_SCHEDULE_KW_KEY)) { int iocc; for (iocc = 0; iocc < config_get_occurences(config , ADD_FIXED_LENGTH_SCHEDULE_KW_KEY); iocc++) ecl_config_add_fixed_length_schedule_kw( ecl_config , config_iget(config , ADD_FIXED_LENGTH_SCHEDULE_KW_KEY , iocc , 0) , config_iget_as_int(config , ADD_FIXED_LENGTH_SCHEDULE_KW_KEY , iocc , 1)); } if (config_item_set( config , REFCASE_KEY)) { const char * refcase_path = config_get_value_as_path( config , REFCASE_KEY ); if (!ecl_config_load_refcase( ecl_config , refcase_path)) fprintf(stderr,"** Warning: loading refcase:%s failed \n", refcase_path); } if (config_item_set( config , REFCASE_LIST_KEY)) { config_content_item_type * item = config_get_content_item( config , REFCASE_LIST_KEY); int i; for (i=0; i < config_content_item_get_size( item ); i++) { config_content_node_type * node = config_content_item_iget_node( item , i ); int j; for (j=0; j < config_content_node_get_size( node ); j++) { const char * case_glob = config_content_node_iget_as_path( node , j ); ecl_refcase_list_add_matching( ecl_config->refcase_list , case_glob ); } } } /* Deprecated */ if (config_item_set( config , PLOT_REFCASE_LIST_KEY)) { const char * case_list_file = config_get_value( config , PLOT_REFCASE_LIST_KEY); FILE * stream = util_fopen(case_list_file , "r"); bool at_eof; do { char * case_name = util_fscanf_alloc_line(stream , &at_eof); if (case_name) { ecl_refcase_list_add_case( ecl_config->refcase_list , case_name); free( case_name ); } } while (!at_eof); fclose( stream ); } if (config_item_set(config , INIT_SECTION_KEY)) ecl_config_set_init_section( ecl_config , config_get_value( config , INIT_SECTION_KEY )); else if (ecl_config->can_restart) /** This is a hard error - the datafile contains <INIT>, however the config file does NOT contain INIT_SECTION, i.e. we have no information to fill in for the <INIT> section. This case will not be able to initialize an ECLIPSE model, and that is broken behaviour. */ util_exit("Sorry: when the datafile contains <INIT> the config file MUST have the INIT_SECTION keyword. \n"); /* The user has not supplied a INIT_SECTION keyword whatsoever, this essentially means that we can not restart - because: 1. The EQUIL section must be inlined in the DATAFILE without any special markup. 2. ECLIPSE will fail hard if the datafile contains both an EQUIL section and a restart statement, and when we have not marked the EQUIL section specially with the INIT_SECTION keyword it is impossible for ERT to dynamically change between a datafile with initialisation and a datafile for restart. IFF the user has no intentitions of any form of restart, this is perfectly legitemate. */ if (config_item_set( config , END_DATE_KEY )) { const char * date_string = config_get_value( config , END_DATE_KEY ); time_t end_date; if (util_sscanf_date( date_string , &end_date)) ecl_config_set_end_date( ecl_config , end_date ); else fprintf(stderr,"** WARNING **: Failed to parse %s as a date - should be in format dd/mm/yyyy \n",date_string); } }