Фенгитовый геобарометр Каддик-Томпсон, 2008

Предложен в 2008

На основе модели фенгита по Р. Когану и Т. Холланду

Формула данного барометра по приведенным в работе изполетам:

P(ГПа) = 4.19*Si_pfu + 0.0036 (T(deg C)+273.15) - 15.15;

source('recalc_common_oxygen.r');

#Minerals: Phe
#Range: Temp

sensors.p.phe_caddick_thompson <- function(Phe, Temp=600, usePFU = FALSE, ...){

    if (!usePFU) Phe <- recalc.common_oxygen(Phe,12);

    Pcalc <- 4.19*Phe$Si_pfu + 0.0036*(Temp+273.15) - 15.15;

    return (data.frame(Name=Phe$Name,T_seq=Temp,P_calc_phe_caddick_thompson=Pcalc));
}

sensors.p.phe_caddick_thompson.args <- function() {
    ars <- list();
    ars$minerals = c('Phe');
    ars$ranges = c('Temp');
    return(ars);
}