ACE3/addons/weather/functions/fnc_updateHumidity.sqf
2016-01-05 01:39:29 -06:00

35 lines
974 B
Plaintext

/*
* Author: ACE2 Team
* Updates GVAR(currentHumidity)
*
* Argument:
* Nothing
*
* Return value:
* Nothing
*
* Example:
* [] call ace_weather_fnc_updateHumidity
*
* Public: No
*/
#include "script_component.hpp"
private _month = date select 1;
GVAR(currentHumidity) = (GVAR(Humidity) select (_month - 1)) / 100;
if ((rain > 0) && {overcast > 0.7}) then {
GVAR(currentHumidity) = 1;
} else {
private _avgTemperature = ((GVAR(TempDay) select (_month - 1)) + (GVAR(TempNight) select (_month - 1))) / 2;
private _pS1 = 6.112 * exp((17.62 * _avgTemperature) / (243.12 + _avgTemperature));
private _PS2 = 6.112 * exp((17.62 * GVAR(currentTemperature)) / (243.12 + GVAR(currentTemperature)));
GVAR(currentHumidity) = GVAR(currentHumidity) * _PS1 / _PS2;
GVAR(currentHumidity) = GVAR(currentHumidity) + GVAR(humidityShift);
TRACE_1("humidityShift",GVAR(humidityShift));
};
GVAR(currentHumidity) = 0 max GVAR(currentHumidity) min 1;