mirror of
https://github.com/OPM/ResInsight.git
synced 2025-02-25 18:55:39 -06:00
124 lines
3.9 KiB
C
124 lines
3.9 KiB
C
/*
|
|
Copyright (C) 2013 Statoil ASA, Norway.
|
|
|
|
The file 'well_conn_collection.c' is part of ERT - Ensemble based Reservoir Tool.
|
|
|
|
ERT is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
ERT is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
See the GNU General Public License at <http://www.gnu.org/licenses/gpl.html>
|
|
for more details.
|
|
*/
|
|
|
|
#include <stdbool.h>
|
|
|
|
#include <ert/util/util.h>
|
|
#include <ert/util/type_macros.h>
|
|
#include <ert/util/vector.h>
|
|
|
|
#include <ert/ecl/ecl_kw.h>
|
|
#include <ert/ecl/ecl_rsthead.h>
|
|
|
|
#include <ert/ecl_well/well_const.h>
|
|
#include <ert/ecl_well/well_conn.h>
|
|
#include <ert/ecl_well/well_conn_collection.h>
|
|
|
|
|
|
#define WELL_CONN_COLLECTION_TYPE_ID 67150087
|
|
|
|
struct well_conn_collection_struct {
|
|
UTIL_TYPE_ID_DECLARATION;
|
|
vector_type * connection_list;
|
|
};
|
|
|
|
|
|
UTIL_IS_INSTANCE_FUNCTION( well_conn_collection , WELL_CONN_COLLECTION_TYPE_ID )
|
|
static UTIL_SAFE_CAST_FUNCTION( well_conn_collection , WELL_CONN_COLLECTION_TYPE_ID )
|
|
|
|
|
|
well_conn_collection_type * well_conn_collection_alloc() {
|
|
well_conn_collection_type * wellcc = util_malloc( sizeof * wellcc );
|
|
UTIL_TYPE_ID_INIT( wellcc , WELL_CONN_COLLECTION_TYPE_ID );
|
|
wellcc->connection_list = vector_alloc_new();
|
|
return wellcc;
|
|
}
|
|
|
|
/*
|
|
The collection takes ownership of the connection object and frees it
|
|
when the collection is discarded.
|
|
*/
|
|
|
|
void well_conn_collection_add( well_conn_collection_type * wellcc , well_conn_type * conn) {
|
|
vector_append_owned_ref( wellcc->connection_list , conn , well_conn_free__);
|
|
}
|
|
|
|
/*
|
|
The collection only stores a refernce to the object, which will be destroyed by 'someone else'.
|
|
*/
|
|
|
|
void well_conn_collection_add_ref( well_conn_collection_type * wellcc , well_conn_type * conn) {
|
|
vector_append_ref( wellcc->connection_list , conn );
|
|
}
|
|
|
|
|
|
void well_conn_collection_free( well_conn_collection_type * wellcc ) {
|
|
vector_free( wellcc->connection_list );
|
|
free( wellcc );
|
|
}
|
|
|
|
void well_conn_collection_free__( void * arg ) {
|
|
well_conn_collection_type * wellcc = well_conn_collection_safe_cast( arg );
|
|
well_conn_collection_free( wellcc );
|
|
}
|
|
|
|
|
|
int well_conn_collection_get_size( const well_conn_collection_type * wellcc ) {
|
|
return vector_get_size( wellcc->connection_list );
|
|
}
|
|
|
|
|
|
const well_conn_type * well_conn_collection_iget_const(const well_conn_collection_type * wellcc , int index) {
|
|
int size = well_conn_collection_get_size( wellcc );
|
|
if (index < size)
|
|
return vector_iget_const( wellcc->connection_list , index );
|
|
else
|
|
return NULL;
|
|
}
|
|
|
|
well_conn_type * well_conn_collection_iget(const well_conn_collection_type * wellcc , int index) {
|
|
int size = well_conn_collection_get_size( wellcc );
|
|
if (index < size)
|
|
return vector_iget( wellcc->connection_list , index );
|
|
else
|
|
return NULL;
|
|
}
|
|
|
|
|
|
int well_conn_collection_load_from_kw( well_conn_collection_type * wellcc ,
|
|
const ecl_kw_type * iwel_kw ,
|
|
const ecl_kw_type * icon_kw ,
|
|
const ecl_kw_type * scon_kw ,
|
|
const ecl_kw_type * xcon_kw ,
|
|
int iwell ,
|
|
const ecl_rsthead_type * rst_head) {
|
|
|
|
const int iwel_offset = rst_head->niwelz * iwell;
|
|
int num_connections = ecl_kw_iget_int( iwel_kw , iwel_offset + IWEL_CONNECTIONS_INDEX );
|
|
int iconn;
|
|
|
|
for (iconn = 0; iconn < num_connections; iconn++) {
|
|
well_conn_type * conn = well_conn_alloc_from_kw( icon_kw , scon_kw, xcon_kw, rst_head , iwell , iconn );
|
|
if (conn)
|
|
well_conn_collection_add( wellcc , conn );
|
|
}
|
|
return num_connections;
|
|
|
|
}
|
|
|