コード例 #1
0
ファイル: water_balance.c プロジェクト: Jinyan-Yang/GDAY
void calculate_water_balance(control *c, fluxes *f, met *m, params *p,
                             state *s, int daylen, double trans_leaf,
                             double omega_leaf, double rnet_leaf) {
    /*

    Calculate the water balance (including all water fluxes).

    Parameters:
    ----------
    control : structure
        control structure
    fluxes : structure
        fluxes structure
    met : structure
        meteorological drivers structure
    params : structure
        parameters structure
    day : int
        project day. (Dummy argument, only passed for daily model)
    daylen : double
        length of day in hours. (Dummy argument, only passed for daily model)
    trans_leaf : double
        leaf transpiration (Dummy argument, only passed for sub-daily model)
    omega_leaf : double
        decoupling coefficient (Dummy argument, only passed for sub-daily model)
    rnet_leaf : double
        total canopy rnet (Dummy argument, only passed for sub-daily model)

    */
    double soil_evap, et, interception, runoff, conv,
           transpiration, net_rad, SEC_2_DAY, DAY_2_SEC,
           transpiration_am, transpiration_pm, gs_am, gs_pm, LE_am,
           LE_pm, ga_am, ga_pm, net_rad_am, net_rad_pm, trans_am,
           omega_am, gs_mol_m2_hfday_am, ga_mol_m2_hfday_am, gpp_am,
           gpp_pm, trans_pm, omega_pm, gs_mol_m2_hfday_pm, ga_mol_m2_hfday_pm,
           throughfall, canopy_evap;

    SEC_2_DAY = 60.0 * 60.0 * daylen;
    DAY_2_SEC = 1.0 / SEC_2_DAY;

    if (c->sub_daily) {
        /* calculate potential canopy evap rate, this may be reduced later
           depending on canopy water storage */
        canopy_evap = calc_canopy_evaporation(m, p, s, rnet_leaf);

        /* mol m-2 s-1 to mm/day */
        conv = MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_HLFHR;
        canopy_evap *= conv;
        calc_interception(c, m, p, f, s, &throughfall, &interception,
                          &canopy_evap);
    } else {
        /* don't need to work out the canopy evap */
        calc_interception(c, m, p, f, s, &throughfall, &interception,
                          &canopy_evap);

    }

    net_rad = calc_net_radiation(p, m->sw_rad, m->tair);
    soil_evap = calc_soil_evaporation(m, p, s, net_rad);
    if (c->sub_daily) {
        soil_evap *= MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_HLFHR;
    } else {
        net_rad_am = calc_net_radiation(p, m->sw_rad_am, m->tair_am);
        net_rad_pm = calc_net_radiation(p, m->sw_rad_pm, m->tair_pm);
        soil_evap *= MOLE_WATER_2_G_WATER * G_TO_KG * (60.0 * 60.0 * daylen);
    }

    if (c->sub_daily) {
        /* mol m-2 s-1 to mm/30 min */
        transpiration = trans_leaf * MOLE_WATER_2_G_WATER * G_TO_KG * \
                        SEC_2_HLFHR;

    } else {
        /* gC m-2 day-1 -> umol m-2 s-1 */
        conv = GRAMS_C_TO_MOL_C * MOL_TO_UMOL * DAY_2_SEC;
        gpp_am = f->gpp_am * conv;
        gpp_pm = f->gpp_pm * conv;

        penman_canopy_wrapper(p, s, m->press, m->vpd_am, m->tair_am, m->wind_am,
                              net_rad_am, m->Ca, gpp_am, &ga_am, &gs_am,
                              &transpiration_am, &LE_am, &omega_am);
        penman_canopy_wrapper(p, s, m->press, m->vpd_pm, m->tair_pm, m->wind_pm,
                              net_rad_pm, m->Ca, gpp_pm, &ga_pm, &gs_pm,
                              &transpiration_pm, &LE_pm, &omega_pm);

        /* mol m-2 s-1 to mm/day */
        conv = MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_DAY;
        transpiration = (transpiration_am + transpiration_pm) * conv;

        f->omega = (omega_am + omega_pm) / 2.0;

        /* output in mol H20 m-2 s-1 */
        f->gs_mol_m2_sec = gs_am + gs_pm;
        f->ga_mol_m2_sec = ga_am + ga_pm;
    }

    /*
    ** NB. et, transpiration & soil evap may all be adjusted in
    ** update_water_storage if we don't have sufficient water
    */
    et = transpiration + soil_evap + canopy_evap;

    update_water_storage(c, f, p, s, throughfall, interception, canopy_evap,
                         &transpiration, &soil_evap, &et, &runoff);

    if (c->sub_daily) {
        sum_hourly_water_fluxes(f, soil_evap, transpiration, et, interception,
                                throughfall, canopy_evap, runoff, omega_leaf);
    } else {
        update_daily_water_struct(f, soil_evap, transpiration, et, interception,
                                  throughfall, canopy_evap, runoff);
    }

    return;
}
コード例 #2
0
void calculate_water_balance_sub_daily(control *c, fluxes *f, met *m,
                                       nrutil *nr, params *p, state *s,
                                       int daylen, double trans,
                                       double omega_leaf,
                                       double rnet_leaf) {
    /*
        Calculate the water balance (including all water fluxes).
        - we are using all the hydraulics instead

        Parameters:
        ----------
        control : structure
            control structure
        fluxes : structure
            fluxes structure
        met : structure
            meteorological drivers structure
        params : structure
            parameters structure
        day : int
            project day. (Dummy argument, only passed for daily model)
        daylen : double
            length of day in hours. (Dummy argument, only passed for daily
            model)
        trans : double
            transpiration (Dummy argument, only passed for sub-daily
            model)
        omega_leaf : double
            decoupling coefficient (Dummy argument, only passed for sub-daily
            model)
        rnet_leaf : double
            total canopy rnet (Dummy argument, only passed for sub-daily model)
    */

    int    i;
    double soil_evap, et, interception, runoff, conv, transpiration, net_rad;
    double SEC_2_DAY, DAY_2_SEC, transpiration_am, transpiration_pm, gs_am;
    double canopy_evap, surface_water;

    // Water drained through the bottom soil layer
    double water_lost = 0.0;

    if (c->water_balance == HYDRAULICS) {

        zero_water_movement(f, p);

        // calculate potential canopy evap rate, this may be reduced later
        // depending on canopy water storage
        canopy_evap = calc_canopy_evaporation(m, p, s, rnet_leaf);

        /* mol m-2 s-1 to mm d-1 */
        conv = MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_HLFHR;
        canopy_evap *= conv;

        /* We could now replace this interception bit with the Rutter scheme? */
        calc_interception(c, m, p, f, s, &surface_water, &interception,
                          &canopy_evap);

        net_rad = calc_net_radiation(p, m->sw_rad, m->tair);
        soil_evap = calc_soil_evaporation(m, p, s, net_rad);
        soil_evap *= MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_HLFHR;


        /* mol m-2 s-1 to mm/30 min */
        transpiration = trans * MOLE_WATER_2_G_WATER * G_TO_KG * \
                        SEC_2_HLFHR;

        et = transpiration + soil_evap + canopy_evap;

        //
        // The loop needs to be outside the func as we need to be able to
        // calculate the soil conductance per layer and call this via
        // the integration func when we update the soil water balance
        //
        for (i = 0; i < p->n_layers; i++) {
            f->soil_conduct[i] = calc_soil_conductivity(s->water_frac[i],
                                                        p->cond1[i],
                                                        p->cond2[i],
                                                        p->cond3[i]);
        }

        calc_soil_water_potential(f, p, s);
        calc_soil_root_resistance(f, p, s);

        // If we have leaves we are transpiring
        if (s->lai > 0.0) {
            calc_water_uptake_per_layer(f, p, s);
        }

        // Calculates the thickness of the top dry layer and determines water
        // lost in upper layers due to evaporation
        calc_wetting_layers(f, p, s, soil_evap, surface_water);
        extract_water_from_layers(f, s, soil_evap, transpiration);

        //
        // determines water movement between soil layers due drainage
        // down the profile
        //
        for (i = 0; i < p->n_layers; i++) {
            calc_soil_balance(f, nr, p, s, i, &water_lost);
        }

        //
        // how much surface water infiltrantes the first soil layer in the
        // current time step? Water which does not infiltrate in a single step
        // is considered runoff
        //
        runoff = calc_infiltration(f, p, s, surface_water);
        runoff += water_lost * M_TO_MM;

        // Don't see point of calculating these again
        // Find SWP & soil resistance without updating waterfrac yet
        calc_soil_water_potential(f, p, s);
        calc_soil_root_resistance(f, p, s);

        update_soil_water_storage(f, p, s, &soil_evap, &transpiration);
        et = transpiration + soil_evap + canopy_evap;
    } else {

        // Simple soil water bucket appoximation

        // calculate potential canopy evap rate, this may be reduced later
        // depending on canopy water storage
        canopy_evap = calc_canopy_evaporation(m, p, s, rnet_leaf);

        /* mol m-2 s-1 to mm/day */
        conv = MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_HLFHR;
        canopy_evap *= conv;
        calc_interception(c, m, p, f, s, &surface_water, &interception,
                          &canopy_evap);

        net_rad = calc_net_radiation(p, m->sw_rad, m->tair);
        soil_evap = calc_soil_evaporation(m, p, s, net_rad);
        soil_evap *= MOLE_WATER_2_G_WATER * G_TO_KG * SEC_2_HLFHR;

        /* mol m-2 s-1 to mm/30 min */
        transpiration = trans * MOLE_WATER_2_G_WATER * G_TO_KG * \
                        SEC_2_HLFHR;

        /*
        ** NB. et, transpiration & soil evap may all be adjusted in
        ** update_water_storage if we don't have sufficient water
        */
        et = transpiration + soil_evap + canopy_evap;


        update_water_storage(c, f, p, s, surface_water, interception, canopy_evap,
                             &transpiration, &soil_evap, &et, &runoff);

    }

    sum_hourly_water_fluxes(f, soil_evap, transpiration, et, interception,
                            surface_water, canopy_evap, runoff, omega_leaf,
                            m->rain);


}