int MDRainPotETSWGdayDef () {
if (_MDOutPetID != MFUnset) return (_MDOutPetID);
MFDefEntering ("Rainfed Potential Evapotranspiration (Shuttleworth - Wallace [day])");
if (((_MDInDayLengthID = MDSRadDayLengthDef ()) == CMfailed) ||
((_MDInI0HDayID = MDSRadI0HDayDef ()) == CMfailed) ||
((_MDInCParamAlbedoID = MDCParamAlbedoDef ()) == CMfailed) ||
((_MDInCParamCHeightID = MDCParamCHeightDef ()) == CMfailed) ||
((_MDInCParamLWidthID = MDCParamLWidthDef ()) == CMfailed) ||
((_MDInCParamRSSID = MDCParamRSSDef ()) == CMfailed) ||
((_MDInCParamR5ID = MDCParamR5Def ()) == CMfailed) ||
((_MDInCParamCDID = MDCParamCDDef ()) == CMfailed) ||
((_MDInCParamCRID = MDCParamCRDef ()) == CMfailed) ||
((_MDInCParamGLMaxID = MDCParamGLMaxDef ()) == CMfailed) ||
((_MDInCParamZ0gID = MDCParamZ0gDef ()) == CMfailed) ||
((_MDInLeafAreaIndexID = MDLeafAreaIndexDef ()) == CMfailed) ||
((_MDInStemAreaIndexID = MDStemAreaIndexDef ()) == CMfailed) ||
((_MDInSolRadID = MDSolarRadDef ()) == CMfailed) ||
((_MDInAtMeanID = MFVarGetID (MDVarAirTemperature, "degC", MFInput, MFState, MFBoundary)) == CMfailed) ||
((_MDInAtMinID = MFVarGetID (MDVarAirTempMinimum, "degC", MFInput, MFState, MFBoundary)) == CMfailed) ||
((_MDInVPressID = MFVarGetID (MDVarVaporPressure, "kPa", MFInput, MFState, MFBoundary)) == CMfailed) ||
((_MDInWSpeedID = MFVarGetID (MDVarWindSpeed, "m/s", MFInput, MFState, MFBoundary)) == CMfailed) ||
((_MDOutPetID = MFVarGetID (MDVarRainPotEvapotrans, "mm", MFOutput, MFFlux, MFBoundary)) == CMfailed) ||
(MFModelAddFunction (_MDRainPotETSWGday) == CMfailed)) return (CMfailed);
MFDefLeaving ("Rainfed Potential Evapotranspiration (Shuttleworth - Wallace [day])");
return(_MDOutPetID);
}
int MDRainInterceptDef () {
int optID = MFUnset;
const char *optStr, *optName = MDVarRainInterception;
const char *options [] = { MDNoneStr, MDInputStr, MDCalculateStr, (char *) NULL };
if ((optStr = MFOptionGet (optName)) != (char *) NULL) optID = CMoptLookup (options,optStr,true);
if ((optID == MDnone) || (_MDOutInterceptID != MFUnset)) return (_MDOutInterceptID);
MFDefEntering ("Rainfed Intercept");
switch (optID) {
case MDinput: _MDOutInterceptID = MFVarGetID (MDVarRainInterception, "mm", MFInput, MFFlux, false); break;
case MDcalc:
if (((_MDInPrecipID = MDPrecipitationDef ()) == CMfailed) ||
((_MDInSPackChgID = MDSPackChgDef ()) == CMfailed) ||
((_MDInLeafAreaIndexID = MDLeafAreaIndexDef ()) == CMfailed) ||
((_MDInStemAreaIndexID = MDStemAreaIndexDef ()) == CMfailed) ||
((_MDInPetID = MDRainPotETDef ()) == CMfailed) ||
((_MDOutInterceptID = MFVarGetID (MDVarRainInterception, "mm", MFOutput, MFFlux, MFBoundary)) == CMfailed) ||
(MFModelAddFunction (_MDRainIntercept) == CMfailed)) return (CMfailed);
break;
default: MFOptionMessage (optName, optStr, options); return (CMfailed);
}
MFDefLeaving ("Rainfed Intercept");
return (_MDOutInterceptID);
}
