R/RcppExports.R

In emf-creaf/medfateland: Mediterranean Landscape Simulation

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

.genros <- function(phi, theta, a1, a2, b, n1, n2, c) {
    .Call(`_medfateland_genros`, phi, theta, a1, a2, b, n1, n2, c)
}

.ellipseROS <- function(phi, theta, vws, ros) {
    .Call(`_medfateland_ellipseROS`, phi, theta, vws, ros)
}

.doubleEllipseROS <- function(phi, theta, vws, ros) {
    .Call(`_medfateland_doubleEllipseROS`, phi, theta, vws, ros)
}

.fireBrandFallingHeight <- function(initialHeight, timeFalling, Dp) {
    .Call(`_medfateland_fireBrandFallingHeight`, initialHeight, timeFalling, Dp)
}

.totalFirebrandLoftingTime <- function(z, z0, zF, Dp) {
    .Call(`_medfateland_totalFirebrandLoftingTime`, z, z0, zF, Dp)
}

.totalGasFlowPersistenceTime <- function(z, t0, zF) {
    .Call(`_medfateland_totalGasFlowPersistenceTime`, z, t0, zF)
}

.findFireBrandLoftedHeight <- function(t0, z0, zF, Dp) {
    .Call(`_medfateland_findFireBrandLoftedHeight`, t0, z0, zF, Dp)
}

.willBurnWhenHitFloor <- function(zIni, Dp) {
    .Call(`_medfateland_willBurnWhenHitFloor`, zIni, Dp)
}

.fireBrandBurningTimeFromCanopyStructure <- function(LAIc) {
    .Call(`_medfateland_fireBrandBurningTimeFromCanopyStructure`, LAIc)
}

.fireBrandFlameHeightFromCanopyStructure <- function(crownLength, LAIc) {
    .Call(`_medfateland_fireBrandFlameHeightFromCanopyStructure`, crownLength, LAIc)
}

.initSerghei <- function(limits, nrow, ncol, sf2cell, xList, input_dir, output_dir) {
    .Call(`_medfateland_initSerghei`, limits, nrow, ncol, sf2cell, xList, input_dir, output_dir)
}

.callSergheiDay <- function(lct, xList, gridMeteo, localResults, sf2cell, serghei_interface) {
    invisible(.Call(`_medfateland_callSergheiDay`, lct, xList, gridMeteo, localResults, sf2cell, serghei_interface))
}

.finishSerghei <- function() {
    invisible(.Call(`_medfateland_finishSerghei`))
}

drainageCells <- function(queenNeigh, waterQ, iCell) {
    .Call(`_medfateland_drainageCells`, queenNeigh, waterQ, iCell)
}

.getTrackSpeciesTranspiration <- function(trackSpecies, Eplant, x) {
    .Call(`_medfateland_getTrackSpeciesTranspiration`, trackSpecies, Eplant, x)
}

.getTrackSpeciesDDS <- function(trackSpecies, DDS, x) {
    .Call(`_medfateland_getTrackSpeciesDDS`, trackSpecies, DDS, x)
}

.copySnowpackToSoil <- function(y) {
    invisible(.Call(`_medfateland_copySnowpackToSoil`, y))
}

.copySnowpackFromSoil <- function(y) {
    invisible(.Call(`_medfateland_copySnowpackFromSoil`, y))
}

.copyStateFromResults <- function(y, localResults) {
    invisible(.Call(`_medfateland_copyStateFromResults`, y, localResults))
}

.createDayOutput <- function(nX, standSummary, carbonBalanceSummary, biomassBalanceSummary) {
    .Call(`_medfateland_createDayOutput`, nX, standSummary, carbonBalanceSummary, biomassBalanceSummary)
}

.resetWaterBalanceDayOutput <- function(outWB) {
    invisible(.Call(`_medfateland_resetWaterBalanceDayOutput`, outWB))
}

.fcpp_landunit_day <- function(xi, model, date, internalCommunication, standSummary, carbonBalanceSummary, biomassBalanceSummary) {
    .Call(`_medfateland_fcpp_landunit_day`, xi, model, date, internalCommunication, standSummary, carbonBalanceSummary, biomassBalanceSummary)
}

.tetisModifyKsat <- function(y, watershed_control, reverse) {
    invisible(.Call(`_medfateland_tetisModifyKsat`, y, watershed_control, reverse))
}

.tetisInterFlow <- function(outWB, y, waterO, queenNeigh, waterQ, watershed_control, patchsize) {
    invisible(.Call(`_medfateland_tetisInterFlow`, outWB, y, waterO, queenNeigh, waterQ, watershed_control, patchsize))
}

.tetisBaseFlow <- function(outWB, y, waterO, queenNeigh, waterQ, watershed_control, patchsize) {
    invisible(.Call(`_medfateland_tetisBaseFlow`, outWB, y, waterO, queenNeigh, waterQ, watershed_control, patchsize))
}

.tetisApplyBaseflowChangesToAquifer <- function(outWB, y, patchsize) {
    invisible(.Call(`_medfateland_tetisApplyBaseflowChangesToAquifer`, outWB, y, patchsize))
}

.tetisApplyLocalFlowsToAquifer <- function(y, outWB) {
    invisible(.Call(`_medfateland_tetisApplyLocalFlowsToAquifer`, y, outWB))
}

.tetisApplyDeepAquiferLossToAquifer <- function(outWB, y, watershed_control) {
    invisible(.Call(`_medfateland_tetisApplyDeepAquiferLossToAquifer`, outWB, y, watershed_control))
}

.tetisOverlandFlows <- function(outWB, waterO, queenNeigh, waterQ, isChannel) {
    invisible(.Call(`_medfateland_tetisOverlandFlows`, outWB, waterO, queenNeigh, waterQ, isChannel))
}

.tetisSimulationNonSoilCells <- function(outWB, y, tminVec, tmaxVec, precVec, radVec, waterO, queenNeigh, waterQ, isChannel, watershed_control) {
    invisible(.Call(`_medfateland_tetisSimulationNonSoilCells`, outWB, y, tminVec, tmaxVec, precVec, radVec, waterO, queenNeigh, waterQ, isChannel, watershed_control))
}

.tetisCopySoilResultsToOutput <- function(y, soilCellResults, output, tminVec, tmaxVec) {
    invisible(.Call(`_medfateland_tetisCopySoilResultsToOutput`, y, soilCellResults, output, tminVec, tmaxVec))
}

.tetisChannelRouting <- function(ChannelExport, WatershedExport, isChannel, isOutlet, target_outlet, distance_to_outlet, outlet_backlog, watershed_control, patchsize) {
    invisible(.Call(`_medfateland_tetisChannelRouting`, ChannelExport, WatershedExport, isChannel, isOutlet, target_outlet, distance_to_outlet, outlet_backlog, watershed_control, patchsize))
}