vic/vic_run/src/physics.c
double
calc_scale_height(double tair,
                  double elevation)
{
    extern parameters_struct param;

    double                   h;

    h = CONST_RDAIR / CONST_G *
        ((tair + CONST_TKFRZ) + 0.5 * elevation * param.LAPSE_RATE);

    return(h);
}
/******************************************************************************
 * @brief    Calculate scale height based on average temperature in the column
 *****************************************************************************/
@brief    Calculate scale height based on average temperature in the column
@brief Calculate scale height based on average temperature in the column
double
calc_scale_height(double tair,
                  double elevation)
{
    extern parameters_struct param;
    double                   h;
    h = CONST_RDAIR / CONST_G *
        ((tair + CONST_TKFRZ) + 0.5 * elevation * param.LAPSE_RATE);
    return(h);
}
double calc_scale_height ( double tair , double elevation ) { extern parameters_struct param ; double h ; h = CONST_RDAIR / CONST_G * ( ( tair + CONST_TKFRZ ) + 0.5 * elevation * param . LAPSE_RATE ) ; return ( h ) ; }
@brief    Calculate scale height based on average temperature in the column
@brief Calculate scale height based on average temperature in the column