libeccodes-data 2.6.0-2 / usr / share / eccodes / definitions / metar / runwayState1.def

if (substr(g,0,1) is "R" && ( substr(g,3,1) is "/" || substr(g,4,1) is "/" ) && length(g) > 9 ) {
      rename(g,runwayState1);
      group g : dump; non_alpha na;
			if (substr(runwayState1,3,1) is "/") {
				runwayDesignatorState1=to_string(runwayState1,1,2);
				runwayDepositCodeState1=to_string(runwayState1,4,1);
				runwayExtentOfContaminationCodeState1=to_string(runwayState1,5,1);
				runwayDepthOfDepositCodeState1=to_string(runwayState1,6,2);
				runwayFrictionCoefficientCodeState1=to_string(runwayState1,8,2);
			} else {
				runwayDesignatorState1=to_string(runwayState1,1,2);
				runwaySideCodeState1=to_string(runwayState1,3,1);
				runwayDepositCodeState1=to_string(runwayState1,5,1);
				runwayExtentOfContaminationCodeState1=to_string(runwayState1,6,1);
				runwayDepthOfDepositCodeState1=to_string(runwayState1,7,2);
				runwayFrictionCoefficientCodeState1=to_string(runwayState1,9,2);
			}
			runwayDepositState1=dict_search("metar/runwayStateDeposit.table",runwayDepositCodeState1,2);
			runwayExtentOfContaminationState1=dict_search("metar/runwayStateExtentOfContamination.table",runwayExtentOfContaminationCodeState1,2);
			runwayDepthOfDepositState1=dict_search("metar/runwayDepthOfDeposit.table",runwayDepthOfDepositCodeState1,2);
			if (is_integer(runwayFrictionCoefficientCodeState1)) {
					runwayFrictionCodeValueState1=to_integer(runwayFrictionCoefficientCodeState1);
					if (runwayFrictionCodeValueState1 < 91) {
							runwayFrictionCoefficientState1=dict_search("metar/runwayFrictionCoefficient.table",runwayFrictionCoefficientCodeState1,2);
					} else {
							runwayBrakingActionState1=dict_search("metar/runwayFrictionCoefficient.table",runwayFrictionCoefficientCodeState1,2);
					}
			} else {
					runwayBrakingActionState1=dict_search("metar/runwayFrictionCoefficient.table",runwayFrictionCoefficientCodeState1,2);
			}
}