///////////////////////////////////////////////////////////////////////////////// // // Copyright (C) 2017 Statoil ASA // // ResInsight 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. // // ResInsight 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 // for more details. // ///////////////////////////////////////////////////////////////////////////////// #include "RicfCreateLgrForCompletions.h" #include "RicfApplicationTools.h" #include "RicfCommandFileExecutor.h" #include "ExportCommands/RicExportLgrFeature.h" #include "RicCreateTemporaryLgrFeature.h" #include "RicDeleteTemporaryLgrsFeature.h" #include "RimDialogData.h" #include "RimEclipseCase.h" #include "RimEclipseCaseCollection.h" #include "RimFractureTemplate.h" #include "RimOilField.h" #include "RimProject.h" #include "RimWellPath.h" #include "RiaLogging.h" #include "RiaWellNameComparer.h" #include "cafCmdFeatureManager.h" #include "cafPdmFieldScriptingCapability.h" #include CAF_PDM_SOURCE_INIT( RicfCreateLgrForCompletions, "createLgrForCompletions" ); //-------------------------------------------------------------------------------------------------- /// //-------------------------------------------------------------------------------------------------- RicfCreateLgrForCompletions::RicfCreateLgrForCompletions() { CAF_PDM_InitScriptableField( &m_caseId, "caseId", -1, "Case ID", "", "", "" ); CAF_PDM_InitScriptableField( &m_timeStep, "timeStep", 0, "Time Step Index", "", "", "" ); CAF_PDM_InitScriptableField( &m_wellPathNames, "wellPathNames", std::vector(), "Well Path Names", "", "", "" ); CAF_PDM_InitScriptableField( &m_refinementI, "refinementI", -1, "RefinementI", "", "", "" ); CAF_PDM_InitScriptableField( &m_refinementJ, "refinementJ", -1, "RefinementJ", "", "", "" ); CAF_PDM_InitScriptableField( &m_refinementK, "refinementK", -1, "RefinementK", "", "", "" ); CAF_PDM_InitScriptableField( &m_splitType, "splitType", Lgr::SplitTypeEnum(), "SplitType", "", "", "" ); } //-------------------------------------------------------------------------------------------------- /// //-------------------------------------------------------------------------------------------------- caf::PdmScriptResponse RicfCreateLgrForCompletions::execute() { using TOOLS = RicfApplicationTools; std::vector wellPaths; // Find well paths { QStringList wellsNotFound; wellPaths = TOOLS::wellPathsFromNames( TOOLS::toQStringList( m_wellPathNames ), &wellsNotFound ); if ( !wellsNotFound.empty() ) { QString error = QString( "createLgrForCompletions: These well paths were not found: " ) + wellsNotFound.join( ", " ); RiaLogging::error( error ); return caf::PdmScriptResponse( caf::PdmScriptResponse::COMMAND_ERROR, error ); } } if ( wellPaths.empty() ) { QString error( "No well paths found" ); RiaLogging::error( error ); return caf::PdmScriptResponse( caf::PdmScriptResponse::COMMAND_ERROR, error ); } caf::CmdFeatureManager* commandManager = caf::CmdFeatureManager::instance(); auto feature = dynamic_cast( commandManager->getCommandFeature( "RicCreateTemporaryLgrFeature" ) ); RimEclipseCase* eclipseCase = nullptr; { for ( RimEclipseCase* c : RimProject::current()->activeOilField()->analysisModels->cases() ) { if ( c->caseId() == m_caseId() ) { eclipseCase = c; break; } } if ( !eclipseCase ) { QString error( QString( "createLgrForCompletions: Could not find case with ID %1" ).arg( m_caseId() ) ); RiaLogging::error( error ); return caf::PdmScriptResponse( caf::PdmScriptResponse::COMMAND_ERROR, error ); } } RicDeleteTemporaryLgrsFeature::deleteAllTemporaryLgrs( eclipseCase ); caf::VecIjk lgrCellCounts( m_refinementI, m_refinementJ, m_refinementK ); QStringList wellsIntersectingOtherLgrs; feature->createLgrsForWellPaths( wellPaths, eclipseCase, m_timeStep, lgrCellCounts, m_splitType(), { RigCompletionData::PERFORATION, RigCompletionData::FRACTURE, RigCompletionData::FISHBONES }, &wellsIntersectingOtherLgrs ); feature->updateViews( eclipseCase ); caf::PdmScriptResponse response; if ( !wellsIntersectingOtherLgrs.empty() ) { auto wellsList = wellsIntersectingOtherLgrs.join( ", " ); QString warning( "createLgrForCompletions: No LGRs created for some wells due to existing intersecting " "LGR(s).Affected wells : " + wellsList ); RiaLogging::warning( warning ); response.updateStatus( caf::PdmScriptResponse::COMMAND_WARNING, warning ); } return response; }